diff options
| author |  Arthur A. Gleckler
| 2022-09-19 20:36:10 -0700 |
|---|---|---|
| committer | Arthur A. Gleckler
| 2022-09-19 20:36:10 -0700 |
| commit | a893afd4f6a7a515f555fd09b003a3e7ec7a310c (patch) | |
| tree | d0285391ecedae7b81a2b0a4da01880ebd363c01 /srfi-225-test.scm | |
| parent | Merge branch 'master' of github.com:johnwcowan/srfi-225 (diff) | |
Drop trailing whitespace.
Diffstat (limited to 'srfi-225-test.scm')
| -rw-r--r-- | srfi-225-test.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/srfi-225-test.scm b/srfi-225-test.scm index 4967f94..a7c76a8 100644 --- a/srfi-225-test.scm +++ b/srfi-225-test.scm @@ -654,7 +654,7 @@ (test-group "dict-fold" - + ;; simple case (let () (define value @@ -666,7 +666,7 @@ (test-assert (or (equal? '(a b c d) value) (equal? '(c d a b) value)))) - + (let () ;; continuation captured in a middle of fold @@ -737,7 +737,7 @@ (3 . c) (4 . d))))) '(1 2 3 4)) - + (test-for-each (let* ((cmp (dict-comparator dto (alist->dict '()))) (ordering (and cmp (comparator-ordered? cmp)))) ordering) @@ -815,7 +815,7 @@ (acc (cons 2 'b)) (acc (cons 2 'c)) (test-assert (dict=? dto equal? (acc (eof-object)) (alist->dict '((1 . a) (2 . c)))))) - + (unless mutable? (test-skip 1)) (test-group @@ -835,7 +835,7 @@ (acc (cons 2 'b)) (acc (cons 2 'c)) (test-assert (dict=? dto equal? (acc (eof-object)) (alist->dict '((1 . a) (2 . b)))))) - + (unless mutable? (test-skip 1)) (test-group |