Test output for srfi-1 [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&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 1/500 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/500 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/500 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/500 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 0 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 1/1000 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 7/500 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 1/5 seconds.
172 out of 172 (100%) tests passed.
-- done testing srfi-1 -------------------------------------------------------