starting phase `set-SOURCE-DATE-EPOCH' phase `set-SOURCE-DATE-EPOCH' succeeded after 0.0 seconds starting phase `set-paths' environment variable `PATH' set to `/gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/bin:/gnu/store/gww59gv5qxbfijg3vk5y182im7923s06-tar-1.32/bin:/gnu/store/2ayciqwxddkzq183dac82ijljc14j4zj-gzip-1.10/bin:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/bin:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/bin:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/bin:/gnu/store/6gqaw09zqw8w0vcax6simlq71bq7l5r0-diffutils-3.7/bin:/gnu/store/qw20chpgkgbcqmzhs60c8hjl1hmblyc8-patch-2.7.6/bin:/gnu/store/b5y5scfmh2d8kxcpl9p84294z2198cgf-findutils-4.7.0/bin:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/bin:/gnu/store/q1nfjb24vqjs1cgi8mlnskw34h16y09r-sed-4.8/bin:/gnu/store/4qr6mcvsxyzknxa7x1wny8x30f5i0r3n-grep-3.4/bin:/gnu/store/2v61vg0bizgrhybkqbrki2k7kr094waz-coreutils-8.32/bin:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/bin:/gnu/store/v1g7f3p4f0851mywrla8qmr9hb8jgfjr-bash-minimal-5.0.16/bin:/gnu/store/dyqxnydqk1810afjfbqzfvh0n83xyl62-ld-wrapper-0/bin:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/bin:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/bin:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/bin:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/sbin:/gnu/store/vxg5anykd56p7d2n4q4f0hx7d1161bgz-gcc-toolchain-7.5.0/bin:/gnu/store/vxg5anykd56p7d2n4q4f0hx7d1161bgz-gcc-toolchain-7.5.0/sbin' environment variable `CHICKEN_REPOSITORY_PATH' set to `/gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/var/lib/chicken/11:/gnu/store/f0xbi7vn8ilkkqakzg2ll9bm5jmspsqh-chicken-test-1.1/var/lib/chicken/11' environment variable `BASH_LOADABLES_PATH' unset environment variable `C_INCLUDE_PATH' set to `/gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/include:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/include:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/include:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/include:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/include:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/include:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/include:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/include:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/include:/gnu/store/vxg5anykd56p7d2n4q4f0hx7d1161bgz-gcc-toolchain-7.5.0/include:/gnu/store/hk7l42fwxmnrnlhyiixvaqf1i1crcckp-linux-libre-headers-5.4.20/include' environment variable `CPLUS_INCLUDE_PATH' set to `/gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/include:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/include:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/include:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/include:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/include:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/include:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/include:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/include/c++:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/include:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/include:/gnu/store/vxg5anykd56p7d2n4q4f0hx7d1161bgz-gcc-toolchain-7.5.0/include/c++:/gnu/store/vxg5anykd56p7d2n4q4f0hx7d1161bgz-gcc-toolchain-7.5.0/include:/gnu/store/hk7l42fwxmnrnlhyiixvaqf1i1crcckp-linux-libre-headers-5.4.20/include' environment variable `LIBRARY_PATH' set to `/gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/lib:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/lib:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/lib:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/lib:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/lib:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/lib:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/lib:/gnu/store/rzk3v28mhi4m7sh0qippp9a5rzy03rkg-glibc-2.31-static/lib:/gnu/store/x6i3vfg4gaqd42cqb6mzk52v4lds1467-glibc-utf8-locales-2.31/lib:/gnu/store/vxg5anykd56p7d2n4q4f0hx7d1161bgz-gcc-toolchain-7.5.0/lib' environment variable `GUIX_LOCPATH' set to `/gnu/store/x6i3vfg4gaqd42cqb6mzk52v4lds1467-glibc-utf8-locales-2.31/lib/locale' phase `set-paths' succeeded after 0.0 seconds starting phase `install-locale' using 'en_US.utf8' locale for category "LC_ALL" phase `install-locale' succeeded after 0.0 seconds starting phase `setup-chicken-environment' phase `setup-chicken-environment' succeeded after 0.0 seconds starting phase `unpack' `/gnu/store/64mhdh90jgbhhpc2iz4896zw4cg8x9q0-chicken-srfi-10.5.1-checkout/srfi-1.egg' -> `/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.egg' `/gnu/store/64mhdh90jgbhhpc2iz4896zw4cg8x9q0-chicken-srfi-10.5.1-checkout/srfi-1.scm' -> `/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.scm' `/gnu/store/64mhdh90jgbhhpc2iz4896zw4cg8x9q0-chicken-srfi-10.5.1-checkout/srfi-1.types' -> `/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.types' `/gnu/store/64mhdh90jgbhhpc2iz4896zw4cg8x9q0-chicken-srfi-10.5.1-checkout/tests/larceny.scm' -> `/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/tests/larceny.scm' `/gnu/store/64mhdh90jgbhhpc2iz4896zw4cg8x9q0-chicken-srfi-10.5.1-checkout/tests/run.scm' -> `/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/tests/run.scm' `/gnu/store/64mhdh90jgbhhpc2iz4896zw4cg8x9q0-chicken-srfi-10.5.1-checkout/tests/srfi-116.scm' -> `/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/tests/srfi-116.scm' phase `unpack' succeeded after 0.0 seconds starting phase `patch-usr-bin-file' phase `patch-usr-bin-file' succeeded after 0.0 seconds starting phase `patch-source-shebangs' phase `patch-source-shebangs' succeeded after 0.0 seconds starting phase `build' building srfi-1 /gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/bin/csc -host -D compiling-extension -J -s -regenerate-import-libraries -setup-mode -I /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1 -C -I/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1 -O3 -d0 srfi-1.scm -o /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.so /gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/bin/csc -regenerate-import-libraries -M -setup-mode -static -I /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1 -emit-link-file /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.link -host -D compiling-extension -c -unit srfi-1 -D compiling-static-extension -C -I/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1 -O3 -d0 srfi-1.scm -o /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.static.o /gnu/store/4f0ap08i50bx64cwizk1rh9h78win2yk-chicken-5.2.0/bin/csc -setup-mode -s -host -I /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1 -C -I/tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1 -O3 -d0 srfi-1.import.scm -o /tmp/guix-build-chicken-srfi-1-0.5.1.drv-0/srfi-1/srfi-1.import.so phase `build' succeeded after 11.7 seconds starting phase `install' building srfi-1 installing srfi-1 phase `install' succeeded after 0.1 seconds starting phase `check' building srfi-1 -- testing lists ------------------------------------------------------------- -- testing lists/constructors -------------------------------------------- (car abc) ........................................................ [ PASS] (cadr abc) ....................................................... [ PASS] (caddr abc) ...................................................... [ PASS] (xcons 1 2) ...................................................... [ PASS] (cdddr abc-dot-d) ................................................ [ PASS] (make-list 4 'c) ................................................. [ PASS] (list-tabulate 4 values) ......................................... [ PASS] (iota 5) ......................................................... [ PASS] 8 tests completed in 1/1000 seconds. 8 out of 8 (100%) tests passed. -- done testing lists/constructors --------------------------------------- -- testing lists/predcates ----------------------------------------------- (pair? (cons 1 2)) ............................................... [ PASS] (proper-list? '()) ............................................... [ PASS] (proper-list? '(1 2 3)) .......................................... [ PASS] (list? '()) ...................................................... [ PASS] (list? '(1 2 3)) ................................................. [ PASS] (dotted-list? (cons 1 2)) ........................................ [ PASS] (dotted-list? 2) ................................................. [ PASS] (null-list? '()) ................................................. [ PASS] (not (null-list? '(1 2 3))) ...................................... [ PASS] (null-list? 'a) .................................................. [ PASS] (not-pair? 'a) ................................................... [ PASS] (not (not-pair? (cons 'a 'b))) ................................... [ PASS] (list= = '(1 2 3) '(1 2 3)) ...................................... [ PASS] (not (list= = '(1 2 3 4) '(1 2 3))) .............................. [ PASS] (not (list= = '(1 2 3) '(1 2 3 4))) .............................. [ PASS] (list= = '(1 2 3) '(1 2 3)) ...................................... [ PASS] (not (list= = '(1 2 3) '(1 2 3 4) '(1 2 3 4))) ................... [ PASS] (not (list= = '(1 2 3) '(1 2 3) '(1 2 3 4))) ..................... [ PASS] 18 tests completed in 0 seconds. 18 out of 18 (100%) tests passed. -- done testing lists/predcates ------------------------------------------ -- testing list/cxrs ----------------------------------------------------- (caar abcd) ...................................................... [ PASS] (cdar abcd) ...................................................... [ PASS] (cadr abcd) ...................................................... [ PASS] (cddr abcd) ...................................................... [ PASS] (caaar abcdefgh) ................................................. [ PASS] (cdaar abcdefgh) ................................................. [ PASS] (cadar abcdefgh) ................................................. [ PASS] (cddar abcdefgh) ................................................. [ PASS] (caadr abcdefgh) ................................................. [ PASS] (cdadr abcdefgh) ................................................. [ PASS] (caddr abcdefgh) ................................................. [ PASS] (cdddr abcdefgh) ................................................. [ PASS] (caaaar abcdefghijklmnop) ........................................ [ PASS] (cdaaar abcdefghijklmnop) ........................................ [ PASS] (cadaar abcdefghijklmnop) ........................................ [ PASS] (cddaar abcdefghijklmnop) ........................................ [ PASS] (caadar abcdefghijklmnop) ........................................ [ PASS] (cdadar abcdefghijklmnop) ........................................ [ PASS] (caddar abcdefghijklmnop) ........................................ [ PASS] (cdddar abcdefghijklmnop) ........................................ [ PASS] (caaadr abcdefghijklmnop) ........................................ [ PASS] (cdaadr abcdefghijklmnop) ........................................ [ PASS] (cadadr abcdefghijklmnop) ........................................ [ PASS] (cddadr abcdefghijklmnop) ........................................ [ PASS] (caaddr abcdefghijklmnop) ........................................ [ PASS] (cdaddr abcdefghijklmnop) ........................................ [ PASS] (cadddr abcdefghijklmnop) ........................................ [ PASS] (cddddr abcdefghijklmnop) ........................................ [ PASS] 28 tests completed in 1/1000 seconds. 28 out of 28 (100%) tests passed. -- done testing list/cxrs ------------------------------------------------ -- testing lists/selectors ----------------------------------------------- (list-ref '(a b c d) 2) .......................................... [ PASS] (first ten) ...................................................... [ PASS] (second ten) ..................................................... [ PASS] (third ten) ...................................................... [ PASS] (fourth ten) ..................................................... [ PASS] (fifth ten) ...................................................... [ PASS] (sixth ten) ...................................................... [ PASS] (seventh ten) .................................................... [ PASS] (eighth ten) ..................................................... [ PASS] (ninth ten) ...................................................... [ PASS] (tenth ten) ...................................................... [ PASS] (list-ref '() 2) ................................................. [ PASS] (call-with-values (lambda () (car+cdr (cons 1 2))) list) ......... [ PASS] (take abcde 2) ................................................... [ PASS] (drop abcde 2) ................................................... [ PASS] (list-tail abcde 2) .............................................. [ PASS] (take dotted 2) .................................................. [ PASS] (drop dotted 2) .................................................. [ PASS] (list-tail dotted 2) ............................................. [ PASS] (drop dotted 3) .................................................. [ PASS] (list-tail dotted 3) ............................................. [ PASS] (append (take abcde 4) (drop abcde 4)) ........................... [ PASS] (take-right abcde 2) ............................................. [ PASS] (drop-right abcde 2) ............................................. [ PASS] (take-right dotted 2) ............................................ [ PASS] (drop-right dotted 2) ............................................ [ PASS] (take-right dotted 0) ............................................ [ PASS] (drop-right dotted 0) ............................................ [ PASS] (call-with-values (lambda () (split-at abcde 3)) append) ......... [ PASS] (last '(a b c)) .................................................. [ PASS] (last-pair '(a b c)) ............................................. [ PASS] 31 tests completed in 1/1000 seconds. 31 out of 31 (100%) tests passed. -- done testing lists/selectors ------------------------------------------ -- testing lists/misc ---------------------------------------------------- (length '()) ..................................................... [ PASS] (length '(1 2 3)) ................................................ [ PASS] (append '(x) '(y)) ............................................... [ PASS] (append '(a b) '(c d)) ........................................... [ PASS] (append '() '(a)) ................................................ [ PASS] (append '(x y)) .................................................. [ PASS] (append) ......................................................... [ PASS] (concatenate '((a b) (c d))) ..................................... [ PASS] (reverse '(a b c)) ............................................... [ PASS] (reverse '(a (b c) d (e (f)))) ................................... [ PASS] (append-reverse '(1 2) 'd) ....................................... [ PASS] (zip '(one two three) '(1 2 3) '(odd even odd)) .................. [ PASS] (zip '(1 2 3)) ................................................... [ PASS] (unzip1 '((1) (2) (3))) .......................................... [ PASS] (call-with-values (lambda () (unzip2 '((1 one) (2 two) (3 three... [ PASS] (call-with-values (lambda () (unzip3 '((1 one a) (2 two b) (3 t... [ PASS] (call-with-values (lambda () (unzip4 '((1 one a 4) (2 two b 5) ... [ PASS] (call-with-values (lambda () (unzip5 '((1 one a 4 #t) (2 two b ... [ PASS] (count even? '(3 1 4 1 5 9 2 5 6)) ............................... [ PASS] (count < '(1 2 4 8) '(2 4 6 8 10 12 14 16)) ...................... [ PASS] 20 tests completed in 1/1000 seconds. 20 out of 20 (100%) tests passed. -- done testing lists/misc ----------------------------------------------- -- testing lists/folds --------------------------------------------------- (fold + 0 lis) ................................................... [ PASS] (fold cons '() lis) .............................................. [ PASS] (fold (lambda (x count) (if (symbol? x) (+ count 1) count)) 0 '... [ PASS] (fold (lambda (s max-len) (max max-len (string-length s))) 0 '(... [ PASS] (fold (lambda (a b ans) (+ (* a b) ans)) 0 '(1 2 3) '(4 5 6)) .... [ PASS] (fold z '() '(a b) '(c d)) ....................................... [ PASS] (fold-right cons '() lis) ........................................ [ PASS] (fold-right (lambda (x l) (if (even? x) (cons x l) l)) '() '(0 ... [ PASS] (fold-right z '() '(a b) '(c d)) ................................. [ PASS] (pair-fold cons '() '(a b c)) .................................... [ PASS] (pair-fold z '() '(a b) '(c d)) .................................. [ PASS] (pair-fold-right cons '() '(a b c)) .............................. [ PASS] (pair-fold-right z '() '(a b) '(c d)) ............................ [ PASS] (reduce max 0 '(1 3 5 4 2 0)) .................................... [ PASS] (reduce - 0 '(1 2)) .............................................. [ PASS] (reduce-right - 0 '(1 2)) ........................................ [ PASS] (unfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) ... [ PASS] (unfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) [ PASS] (unfold null-list? car cdr '(1 2 3)) ............................. [ PASS] (unfold-right null-list? car cdr '(1 2 3)) ....................... [ PASS] (unfold null-list? car cdr '(1 2) (lambda (x) '(3 4))) ........... [ PASS] (map cadr '((a b) (d e) (g h))) .................................. [ PASS] (map-in-order cadr '((a b) (d e) (g h))) ......................... [ PASS] (map + '(1 2 3) '(4 5 6)) ........................................ [ PASS] (map-in-order + '(1 2 3) '(4 5 6)) ............................... [ PASS] (map-in-order z '(a b)) .......................................... [ PASS] ...v ............................................................. [ PASS] ...v ............................................................. [ PASS] (append-map (lambda (x) (list x (- x))) '(1 3 8)) ................ [ PASS] (append-map list '(1 2 3) '(4 5 6)) .............................. [ PASS] ...v ............................................................. [ PASS] ...v ............................................................. [ PASS] (filter-map (lambda (x) (and (number? x) (* x x))) '(a 1 b 3 c 7)) [ PASS] (filter-map (lambda (x y) (and (number? x) (number? y) (+ x y))... [ PASS] 34 tests completed in 1/500 seconds. 34 out of 34 (100%) tests passed. -- done testing lists/folds ---------------------------------------------- -- testing lists/filtering ----------------------------------------------- (filter even? '(0 7 8 8 43 -4)) .................................. [ PASS] (call-with-values (lambda () (partition symbol? '(one 2 3 four ... [ PASS] (remove even? '(0 7 8 8 43 -4)) .................................. [ PASS] 3 tests completed in 0 seconds. 3 out of 3 (100%) tests passed. -- done testing lists/filtering ------------------------------------------ -- testing lists/searching ----------------------------------------------- (find even? '(1 2 3)) ............................................ [ PASS] (any even? '(1 2 3)) ............................................. [ PASS] (find even? '(1 7 3)) ............................................ [ PASS] (any even? '(1 7 3)) ............................................. [ PASS] (find even? (cons (1 (cons 3 x)))) ............................... [ PASS] (any even? (cons (1 (cons 3 x)))) ................................ [ PASS] (find even? '(3 1 4 1 5 9)) ...................................... [ PASS] (find-tail even? '(3 1 37 -8 -5 0 0)) ............................ [ PASS] (take-while even? '(2 18 3 10 22 9)) ............................. [ PASS] (drop-while even? '(2 18 3 10 22 9)) ............................. [ PASS] (call-with-values (lambda () (span even? '(2 18 3 10 22 9))) list) [ PASS] (call-with-values (lambda () (break even? '(3 1 4 1 5 9))) list) . [ PASS] (any integer? '(a 3 b 2.7)) ...................................... [ PASS] (any integer? '(a 3.1 b 2.7)) .................................... [ PASS] (any < '(3 1 4 1 5) '(2 7 1 8 2)) ................................ [ PASS] (every integer? '(1 2 3 4 5)) .................................... [ PASS] (every integer? '(1 2 3 4.5 5)) .................................. [ PASS] (every < '(1 2 3) '(4 5 6)) ...................................... [ PASS] (list-index even? '(3 1 4 1 5 9)) ................................ [ PASS] (list-index < '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ................. [ PASS] (list-index = '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ................. [ PASS] (memq 'a '(a b c)) ............................................... [ PASS] (memq 'b '(a b c)) ............................................... [ PASS] (memq 'a '(b c d)) ............................................... [ PASS] (memq (list 'a) '(b (a) c)) ...................................... [ PASS] (member (list 'a) '(b (a) c)) .................................... [ PASS] (memv 101 '(100 101 102)) ........................................ [ PASS] 27 tests completed in 1/1000 seconds. 27 out of 27 (100%) tests passed. -- done testing lists/searching ------------------------------------------ -- testing lists/deletion ------------------------------------------------ (delete 3 '(1 2 3 4 5)) .......................................... [ PASS] (delete 5 '(3 4 5 6 7) <) ........................................ [ PASS] (delete-duplicates '(a b a c a b c z)) ........................... [ PASS] 3 tests completed in 1/1000 seconds. 3 out of 3 (100%) tests passed. -- done testing lists/deletion ------------------------------------------- -- testing lists/alists -------------------------------------------------- (assq 'a e) ...................................................... [ PASS] (assq 'b e) ...................................................... [ PASS] (assq 'd e) ...................................................... [ PASS] (assq (list 'a) '(((a)) ((b)) ((c)))) ............................ [ PASS] (assoc (list 'a) '(((a)) ((b)) ((c)))) ........................... [ PASS] (assv 5 e2) ...................................................... [ PASS] (assoc 5 e2 <) ................................................... [ PASS] (alist-cons 1 (list 1) e2) ....................................... [ PASS] (alist-delete 5 e2) .............................................. [ PASS] (alist-delete 5 e2 <) ............................................ [ PASS] 10 tests completed in 0 seconds. 10 out of 10 (100%) tests passed. -- done testing lists/alists --------------------------------------------- -- testing lists/mutators ------------------------------------------------ '(3 . 2) ......................................................... [ PASS] '(3 . 4) ......................................................... [ PASS] 2 tests completed in 0 seconds. 2 out of 2 (100%) tests passed. -- done testing lists/mutators ------------------------------------------- 11 subgroups completed in 1/125 seconds. 11 out of 11 (100%) subgroups passed. -- done testing lists -------------------------------------------------------- -- testing srfi-1 ------------------------------------------------------------ (xcons 1 2) .......................................................... [ PASS] (cons* 1) ............................................................ [ PASS] (cons* 1 2 3 4 5) .................................................... [ PASS] (make-list 5 #t) ..................................................... [ PASS] (make-list 0 #f) ..................................................... [ PASS] (length (make-list 3)) ............................................... [ PASS] (list-tabulate 5 (lambda (x) x)) ..................................... [ PASS] (list-tabulate 0 (lambda (x) (error "FOO!"))) ........................ [ PASS] (call/cc (lambda (abort) (let* ((c (list 1 2 3 4 5)) (cp (list-... ... [ PASS] (list-copy '(1 2 3 . 4)) ............................................. [ PASS] (list? (circular-list 1 2 3)) ........................................ [ PASS] (let* ((a (list 'a)) (b (list 'b)) (c (list 'c)) (x (circular-l... ... [ PASS] (iota 0) ............................................................. [ PASS] (iota 5 2 3) ......................................................... [ PASS] (iota 5 2) ........................................................... [ PASS] (proper-list? '(1 2 3 4 5)) .......................................... [ PASS] (proper-list? '()) ................................................... [ PASS] (proper-list? '(1 2 . 3)) ............................................ [ PASS] (proper-list? (circular-list 1 2 3)) ................................. [ PASS] (circular-list? '(1 2 3 4 5)) ........................................ [ PASS] (circular-list? '()) ................................................. [ PASS] (circular-list? '(1 2 . 3)) .......................................... [ PASS] (circular-list? (circular-list 1 2 3)) ............................... [ PASS] (dotted-list? '(1 2 3 4 5)) .......................................... [ PASS] (dotted-list? '()) ................................................... [ PASS] (dotted-list? '(1 2 . 3)) ............................................ [ PASS] (dotted-list? (circular-list 1 2 3)) ................................. [ PASS] (null-list? '()) ..................................................... [ PASS] (null-list? '(1 2)) .................................................. [ PASS] (null-list? (circular-list 1 2)) ..................................... [ PASS] (not-pair? 1) ........................................................ [ PASS] (not-pair? (cons 1 2)) ............................................... [ PASS] (list= = '(1 2 3) '(1 2 3) '(1 2 3)) ................................. [ PASS] (list= = '(1 2 3) '(1 2 3) '(1 4 3)) ................................. [ PASS] (list= (lambda (a b) (not (eq? a b))) '(#f #f #f) '(#t #t #t) '... ... [ PASS] (list= =) ............................................................ [ PASS] (= (first '(1 2 3 4 5 6 7 8 9 10)) 1) ................................ [ PASS] (= (second '(1 2 3 4 5 6 7 8 9 10)) 2) ............................... [ PASS] (= (third '(1 2 3 4 5 6 7 8 9 10)) 3) ................................ [ PASS] (= (fourth '(1 2 3 4 5 6 7 8 9 10)) 4) ............................... [ PASS] (= (fifth '(1 2 3 4 5 6 7 8 9 10)) 5) ................................ [ PASS] (= (sixth '(1 2 3 4 5 6 7 8 9 10)) 6) ................................ [ PASS] (= (seventh '(1 2 3 4 5 6 7 8 9 10)) 7) .............................. [ PASS] (= (eighth '(1 2 3 4 5 6 7 8 9 10)) 8) ............................... [ PASS] (= (ninth '(1 2 3 4 5 6 7 8 9 10)) 9) ................................ [ PASS] (= (tenth '(1 2 3 4 5 6 7 8 9 10)) 10) ............................... [ PASS] (let-values (((a b) (car+cdr '(1 . 2)))) (and (= a 1) (= b 2))) ...... [ PASS] (take '(1 2 3 4 5 6) 3) .............................................. [ PASS] (take '(1) 1) ........................................................ [ PASS] (let ((x (list 1 2 3 4 5 6))) (eq? (cdddr x) (drop x 3))) ............ [ PASS] (let ((x (list 1 2 3))) (eq? x (drop x 0))) .......................... [ PASS] (take-right '(1 2 3 4 5 6) 3) ........................................ [ PASS] (null? (take-right '(1 2 3 4 5 6) 0)) ................................ [ PASS] (take-right '(1 2 3 . 4) 2) .......................................... [ PASS] (take-right '(1 2 3 . 4) 0) .......................................... [ PASS] (drop-right '(1 2 3 4 5 6) 3) ........................................ [ PASS] (drop-right '(1 2 3) 0) .............................................. [ PASS] (drop-right '(1 2 3 . 4) 0) .......................................... [ PASS] ...(and (eq? x y) (eq? (cdr x) (cdr y)) (eq? (cddr x) (cddr y))... ... [ PASS] ...(and (eq? x y) (eq? (cdr x) (cdr y)) (eq? (cddr x) (cddr y))... ... [ PASS] (let-values (((a b) (split-at '(1 2 3 4 5 6) 2))) (and (equal? ... ... [ PASS] (let* ((x (list 1 2 3 4 5 6)) (y (cddr x))) (let-values (((a b)... ... [ PASS] (last '(1 2 3 37)) ................................................... [ PASS] (length+ (circular-list 1 2 3)) ...................................... [ PASS] (length+ '(1 2 3 4)) ................................................. [ PASS] ...(and (equal? r '(1 2 3 4 5 6)) (eq? r x) (eq? (cdr r) (cdr x... ... [ PASS] (concatenate '((1 2 3) (4 5 6) () (7 8 9))) .......................... [ PASS] (concatenate! `(,(list 1 2 3) ,(list 4 5 6) () ,(list 7 8 9))) ....... [ PASS] (append-reverse '(3 2 1) '(4 5 6)) ................................... [ PASS] (append-reverse! (list 3 2 1) (list 4 5 6)) .......................... [ PASS] (zip '(1 2 3) '(4 5 6)) .............................................. [ PASS] (zip '() '() '() '()) ................................................ [ PASS] (zip '(1) (circular-list 1 2)) ....................................... [ PASS] (unzip1 '((1) (2) (3) (4) (5))) ...................................... [ PASS] (let-values (((a b) (unzip2 '((10 11) (20 21) (30 31))))) (and ... ... [ PASS] (let-values (((a b c) (unzip3 '((10 11 12) (20 21 22) (30 31 32... ... [ PASS] (let-values (((a b c d) (unzip4 '((10 11 12 13) (20 21 22 23) (... ... [ PASS] (let-values (((a b c d e) (unzip5 '((10 11 12 13 14) (20 21 22 ... ... [ PASS] (count even? '(3 1 4 1 5 9 2 5 6)) ................................... [ PASS] (count < '(1 2 4 8) '(2 4 6 8 10 12 14 16)) .......................... [ PASS] (count < '(3 1 4 1) (circular-list 1 10)) ............................ [ PASS] (fold cons* '() '(a b c) '(1 2 3 4 5)) ............................... [ PASS] (fold-right cons* '() '(a b c) '(1 2 3 4 5)) ......................... [ PASS] (let* ((x (list 1 2 3)) (r (list x (cdr x) (cddr x))) (y (pair-... ... [ PASS] (pair-fold-right cons '() '(a b c)) .................................. [ PASS] (reduce max 'illegal '(1 2 3 4 5)) ................................... [ PASS] (reduce max 0 '()) ................................................... [ PASS] (reduce-right append 'illegal '((1 2) () (3 4 5))) ................... [ PASS] (unfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) ... ... [ PASS] (unfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) .... [ PASS] (map + '(3 1 4 1) (circular-list 1 0)) ............................... [ PASS] ...l ................................................................. [ PASS] (append-map (lambda (x) (list x (- x))) '(1 3 8)) .................... [ PASS] (append-map! (lambda (x) (list x (- x))) '(1 3 8)) ................... [ PASS] (let* ((l (list 1 2 3)) (m (map! (lambda (x) (* x x)) l))) (and... ... [ PASS] ...(map-in-order (lambda (x) (let ((n v)) (set! v (+ v 1)) n)) ... ... [ PASS] ...l ................................................................. [ PASS] (filter-map (lambda (x y) (and (number? x) (* x x))) '(a 1 b 3 ... ... [ PASS] (filter even? '(0 7 8 8 43 -4)) ...................................... [ PASS] (let-values (((a b) (partition symbol? '(one 2 3 four five 6)))... ... [ PASS] (remove even? '(0 7 8 8 43 -4)) ...................................... [ PASS] (let* ((x (list 0 7 8 8 43 -4)) (y (pair-fold cons '() x)) (r (... ... [ PASS] (let* ((x (list 'one 2 3 'four 'five 6)) (y (pair-fold cons '()... ... [ PASS] (let* ((x (list 0 7 8 8 43 -4)) (y (pair-fold cons '() x)) (r (... ... [ PASS] (find even? '(3 1 4 1 5 9 8)) ........................................ [ PASS] (find-tail even? '(3 1 4 1 5 9 8)) ................................... [ PASS] (find-tail even? '(1 3 5 7)) ......................................... [ PASS] (take-while even? '(2 18 3 10 22 9)) ................................. [ PASS] (let* ((x (list 2 18 3 10 22 9)) (r (take-while! even? x))) (an... ... [ PASS] (drop-while even? '(2 18 3 10 22 9)) ................................. [ PASS] (let-values (((a b) (span even? '(2 18 3 10 22 9)))) (and (equa... ... [ PASS] (let-values (((a b) (break even? '(3 1 4 1 5 9)))) (and (equal?... ... [ PASS] (let* ((x (list 2 18 3 10 22 9)) (cells (pair-fold cons '() x))... ... [ PASS] (let* ((x (list 3 1 4 1 5 9)) (cells (pair-fold cons '() x))) (... ... [ PASS] (any integer? '(a 3 b 2.7)) .......................................... [ PASS] (any integer? '(a 3.1 b 2.7)) ........................................ [ PASS] (any < '(3 1 4 1 5) (circular-list 2 7 1 8 2)) ....................... [ PASS] (any (lambda (a b) (if (< a b) 'yes #f)) '(1 2 3) '(0 1 4)) .......... [ PASS] (every integer? '(1 2 3)) ............................................ [ PASS] (every integer? '(3 4 5.1)) .......................................... [ PASS] (every < '(1 2 3) (circular-list 2 3 4)) ............................. [ PASS] (list-index even? '(3 1 4 1 5 9)) .................................... [ PASS] (list-index < '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ..................... [ PASS] (list-index = '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ..................... [ PASS] (member 5 '(1 2 5 37 48) <) .......................................... [ PASS] (delete 5 '(1 48 2 5 37) <) .......................................... [ PASS] (delete 5 '(1 5 2 5 7)) .............................................. [ PASS] (let* ((x (list 1 48 2 5 37)) (cells (pair-fold cons '() x)) (r... ... [ PASS] (delete-duplicates '((a . 3) (b . 7) (a . 9) (c . 1)) (lambda (... ... [ PASS] (delete-duplicates '(a b a c a b c z) eq?) ........................... [ PASS] (let* ((x (list 'a 'b 'a 'c 'a 'b 'c 'z)) (cells (pair-fold con... ... [ PASS] (assoc 6 '((4 . #t) (3 . #t) (5 . #t)) (lambda (x y) (zero? (re... ... [ PASS] (alist-cons 1 #t '((2 . #f))) ........................................ [ PASS] (let* ((a (list (cons 1 2) (cons 3 4))) (b (alist-copy a))) (an... ... [ PASS] (alist-delete 5 '((1 . #t) (2 . #t) (37 . #t) (4 . #t) (48 #t)) <) ... [ PASS] (alist-delete 7 '((1 . #t) (2 . #t) (7 . #t) (4 . #t) (7 #t))) ....... [ PASS] (let* ((x '((1 . #t) (2 . #t) (7 . #t) (4 . #t) (7 #t))) (y (li... ... [ PASS] (lset<= eq? '(a) '(a b a) '(a b c c)) ................................ [ PASS] (lset<= eq? '(a) '(a b a) '(a)) ...................................... [ PASS] (lset<= eq?) ......................................................... [ PASS] (lset<= eq? '(a)) .................................................... [ PASS] (lset= eq? '(b e a) '(a e b) '(e e b a)) ............................. [ PASS] (lset= eq? '(b e a) '(a e b) '(e e b a c)) ........................... [ PASS] (lset= eq?) .......................................................... [ PASS] (lset= eq? '(a)) ..................................................... [ PASS] (lset-adjoin eq? '(a b c d c e) 'a 'e 'i 'o 'u) ...................... [ PASS] (lset-union eq? '(a b c d e) '(a e i o u)) ........................... [ PASS] (lset-union eq? '(a a c) '(x a x)) ................................... [ PASS] (null? (lset-union eq?)) ............................................. [ PASS] (lset-union eq? '(a b c)) ............................................ [ PASS] (lset-intersection eq? '(a b c d e) '(a e i o u)) .................... [ PASS] (lset-intersection eq? '(a x y a) '(x a x z)) ........................ [ PASS] (lset-intersection eq? '(a b c)) ..................................... [ PASS] (lset-difference eq? '(a b c d e) '(a e i o u)) ...................... [ PASS] (lset-difference eq? '(a b c)) ....................................... [ PASS] (lset= eq? '(d c b i o u) (lset-xor eq? '(a b c d e) '(a e i o ... ... [ PASS] (lset= eq? '() (lset-xor eq?)) ....................................... [ PASS] (lset= eq? '(a b c d e) (lset-xor eq? '(a b c d e))) ................. [ PASS] (let-values (((d i) (lset-diff+intersection eq? '(a b c d e) '(... ... [ PASS] (lset-union! eq? (list 'a 'b 'c 'd 'e) (list 'a 'e 'i 'o 'u)) ........ [ PASS] (lset-union! eq? (list 'a 'a 'c) (list 'x 'a 'x)) .................... [ PASS] (null? (lset-union! eq?)) ............................................ [ PASS] (lset-union! eq? (list 'a 'b 'c)) .................................... [ PASS] (lset-intersection! eq? (list 'a 'b 'c 'd 'e) (list 'a 'e 'i 'o... ... [ PASS] (lset-intersection! eq? (list 'a 'x 'y 'a) (list 'x 'a 'x 'z)) ....... [ PASS] (lset-intersection! eq? (list 'a 'b 'c)) ............................. [ PASS] (lset-difference! eq? (list 'a 'b 'c 'd 'e) (list 'a 'e 'i 'o 'u)) ... [ PASS] (lset-difference! eq? (list 'a 'b 'c)) ............................... [ PASS] (lset= eq? '(d c b i o u) (lset-xor! eq? (list 'a 'b 'c 'd 'e) ... ... [ PASS] (lset= eq? '() (lset-xor! eq?)) ...................................... [ PASS] (lset= eq? '(a b c d e) (lset-xor! eq? (list 'a 'b 'c 'd 'e))) ....... [ PASS] (let-values (((d i) (lset-diff+intersection! eq? (list 'a 'b 'c... ... [ PASS] 172 tests completed in 9/50 seconds. 172 out of 172 (100%) tests passed. -- done testing srfi-1 ------------------------------------------------------- phase `check' succeeded after 0.5 seconds starting phase `patch-shebangs' phase `patch-shebangs' succeeded after 0.0 seconds starting phase `strip' phase `strip' succeeded after 0.0 seconds starting phase `validate-runpath' phase `validate-runpath' succeeded after 0.0 seconds starting phase `validate-documentation-location' phase `validate-documentation-location' succeeded after 0.0 seconds starting phase `delete-info-dir-file' phase `delete-info-dir-file' succeeded after 0.0 seconds starting phase `patch-dot-desktop-files' phase `patch-dot-desktop-files' succeeded after 0.0 seconds starting phase `install-license-files' installing 0 license files from '.' phase `install-license-files' succeeded after 0.0 seconds starting phase `reset-gzip-timestamps' phase `reset-gzip-timestamps' succeeded after 0.0 seconds starting phase `compress-documentation' phase `compress-documentation' succeeded after 0.0 seconds