test: Move srfi-1 for-each and map tests to tests/srfi-1.test.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 29 May 2019 14:30:25 +0000 (16:30 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 29 May 2019 14:30:25 +0000 (16:30 +0200)
This fixes: `make check MES=guile'.

* tests/srfi-1.test ("map 1,2", "map 2,1", "for-each 1,2",
for-each 2,1"): Move from scm.test.
* tests/scm.test ("map 1,2", "map 2,1", "for-each 1,2",
for-each 2,1"): Remove.

tests/scm.test
tests/srfi-1.test

index c82a6d0e86959be4af8381eff9c566a714baa948..08a6c59168111bbfe0c0a159640a4d20edbef367 100755 (executable)
@@ -47,22 +47,8 @@ exec ${MES-mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests boot
 (pass-if "map 2 " (sequal? (map (lambda (i a) (cons i a)) '(1 2 3 4) '(a b c d))
                            '((1 . a) (2 . b) (3 . c) (4 . d))))
 
-(pass-if-equal "map 1,2"
-               '((0 . a))
-               (map (lambda (x y) (cons x y)) '(0) '(a b)))
-
-(pass-if-equal "map 2,1"
-               '((0 . a))
-               (map (lambda (x y) (cons x y)) '(0 1) '(a)))
-
 (pass-if "for-each" (sequal? (let ((acc '())) (for-each (lambda (x) (set! acc (cons x acc))) '(1 2 3 4)) acc) '(4 3 2 1)))
 
-(pass-if "for-each 1,2"
-         (for-each (lambda (x y) (cons x y)) '(0) '(a b)))
-
-(pass-if "for-each 2,1"
-         (for-each (lambda (x y) (cons x y)) '(0 1) '(a)))
-
 (define xxxa 0)
 (pass-if "set! " (seq? (begin (set! xxxa 1) xxxa) 1))
 (pass-if "set! 2" (seq? (let ((a 0)) (set! a 1) a) 1))
index 03235473541c4470f2400003600a7b47e4486d8b..5580adf35e4564a7dd7d937fc0fc7f74ea176bee 100755 (executable)
@@ -34,6 +34,20 @@ exec ${MES-src/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
 (pass-if "first dummy" #t)
 (pass-if-not "second dummy" #f)
 
+(pass-if-equal "map 1,2"
+               '((0 . a))
+               (map (lambda (x y) (cons x y)) '(0) '(a b)))
+
+(pass-if-equal "map 2,1"
+               '((0 . a))
+               (map (lambda (x y) (cons x y)) '(0 1) '(a)))
+
+(pass-if "for-each 1,2"
+         (for-each (lambda (x y) (cons x y)) '(0) '(a b)))
+
+(pass-if "for-each 2,1"
+         (for-each (lambda (x y) (cons x y)) '(0 1) '(a)))
+
 (pass-if-equal "fold"
                '(3 2 1)
                (fold cons '() '(1 2 3)))