Test output for sequences [ok]

Testing time: 0s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null

-- testing sequences ---------------------------------------------------------
(sequence? '(a b c)) ................................................. [ PASS]
(sequence? '#(a b c)) ................................................ [ PASS]
(sequence? "abc") .................................................... [ PASS]
(sequence? 0) ........................................................ [ PASS]
(random-access-sequence? ras) ........................................ [ PASS]
(random-access-sequence? '#()) ....................................... [ PASS]
(random-access-sequence? '()) ........................................ [ PASS]
(linear-sequence? ls) ................................................ [ PASS]
(linear-sequence? '()) ............................................... [ PASS]
(linear-sequence? ras) ............................................... [ PASS]
(linear-sequence? '#()) .............................................. [ PASS]
(size ras) ........................................................... [ PASS]
(size '(a b c)) ...................................................... [ PASS]
(size '#(a b c)) ..................................................... [ PASS]
(size "abc") ......................................................... [ PASS]
(size ls) ............................................................ [ PASS]
(size r) ............................................................. [ PASS]
(size l) ............................................................. [ PASS]
(elt '(a b c) 1) ..................................................... [ PASS]
(elt '#(a b c) 1) .................................................... [ PASS]
(elt "abc" 1) ........................................................ [ PASS]
(elt r 1) ............................................................ [ PASS]
(elt l 1) ............................................................ [ PASS]
(elt s 1) ............................................................ [ PASS]
(elt l 1) ............................................................ [ PASS]
(elt s 1) ............................................................ [ PASS]
s .................................................................... [ PASS]
(make '() 3 1) ....................................................... [ PASS]
(make '#() 3 1) ...................................................... [ PASS]
(make "" 3 #\space) .................................................. [ PASS]
(make "" 3 #\a) ...................................................... [ PASS]
(rev '(a b c)) ....................................................... [ PASS]
(rev '#(a b c)) ...................................................... [ PASS]
(rev "abc") .......................................................... [ PASS]
(elt r2 (- (size r2) i 1)) ........................................... [ PASS]
(elt r2 (- (size r2) i 1)) ........................................... [ PASS]
(elt r2 (- (size r2) i 1)) ........................................... [ PASS]
(eq? (car vs) (elt l2 i)) ............................................ [ PASS]
(eq? (car vs) (elt l2 i)) ............................................ [ PASS]
(eq? (car vs) (elt l2 i)) ............................................ [ PASS]
(sub '(a b c d) 1 2) ................................................. [ PASS]
(sub '(a b c d) 1) ................................................... [ PASS]
(sub '#(a b c d) 1 2) ................................................ [ PASS]
(sub '#(a b c d) 1) .................................................. [ PASS]
(sub "abcd" 1 2) ..................................................... [ PASS]
(sub "abcd" 1) ....................................................... [ PASS]
(equal? '(a x y d) s) ................................................ [ PASS]
(equal? '#(a x y d) s) ............................................... [ PASS]
(equal? "axyd" s) .................................................... [ PASS]
(elt r 0) ............................................................ [ PASS]
(elt r 1) ............................................................ [ PASS]
(elt r 2) ............................................................ [ PASS]
(foldl list '() '(a b c)) ............................................ [ PASS]
(foldr list '() '(a b c)) ............................................ [ PASS]
(foldl list '() '#(a b c)) ........................................... [ PASS]
(foldr list '() '#(a b c)) ........................................... [ PASS]
(foldl list '() "abc") ............................................... [ PASS]
(foldr list '() "abc") ............................................... [ PASS]
(foldl list '() r) ................................................... [ PASS]
(foldr list '() r) ................................................... [ PASS]
(foldr list '() l) ................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
x .................................................................... [ PASS]
(smap '() (cut * <> 2) '(1 2 3)) ..................................... [ PASS]
(smap '#() (cut * <> 2) '(1 2 3)) .................................... [ PASS]
(smap "" char-upcase "abc") .......................................... [ PASS]
(smap '() list r) .................................................... [ PASS]
(smap '#() list r) ................................................... [ PASS]
(equal? (elt s it) (elt s i)) ........................................ [ PASS]
(at-end? it) ......................................................... [ PASS]
(equal? (elt s it) (elt s i)) ........................................ [ PASS]
(at-end? it) ......................................................... [ PASS]
(equal? (elt s it) (elt s i)) ........................................ [ PASS]
(at-end? it) ......................................................... [ PASS]
(at-end? it) ......................................................... [ PASS]
(smap* "" (lambda (s it) (char-downcase (elt s it))) '#(#\A #\B... ... [ PASS]
x .................................................................... [ PASS]
(pos odd? '(2 4 6)) .................................................. [ PASS]
(pos odd? '#(0 2 3 5)) ............................................... [ PASS]
(take positive? '(1 2 -3 4)) ......................................... [ PASS]
(drop positive? '(5 2 -3 1)) ......................................... [ PASS]
(receive (split positive? '(4 5 -1 2))) .............................. [ PASS]
(receive (partition odd? '#(1 2 3 4))) ............................... [ PASS]
(coerce '() (fill! (lambda (_ it) (index it)) r)) .................... [ PASS]
((is? '(33)) '(33)) .................................................. [ PASS]
((is? 1) 2) .......................................................... [ PASS]
(linear-iterator? it) ................................................ [ PASS]
(linear-sequence? s) ................................................. [ PASS]
(elt s it) ........................................................... [ PASS]
(elt s it) ........................................................... [ PASS]
(at-end? (iterator '())) ............................................. [ PASS]
(at-end? (iterator '(1))) ............................................ [ PASS]
(at-end? (iterator '#())) ............................................ [ PASS]
(= i j) .............................................................. [ PASS]
(= i j) .............................................................. [ PASS]
(= i j) .............................................................. [ PASS]
(list-ec (:seq x "aBbCDEc") (if (char-lower-case? x)) x) ............. [ PASS]
(peek '#(3)) ......................................................... [ PASS]
(pop '(4 5 6)) ....................................................... [ PASS]
(pop "abc") .......................................................... [ PASS]
(all? odd? '(1 3 5)) ................................................. [ PASS]
(all? char-whitespace? " \t1") ....................................... [ PASS]
(thereis? odd? '(2 4 1)) ............................................. [ PASS]
(thereis? even? (sequence ras 1 3 5)) ................................ [ PASS]
(intersection '() = '(1 2 3) '#(1 3 5)) .............................. [ PASS]
(lset= = '(4 3 1 2) (vector->list (union '#() = '(1 2) '(3 4)))) ..... [ PASS]
(difference '#() = '#(3 4 5) '#(5)) .................................. [ PASS]
114 tests completed in 0.082 seconds.
114 out of 114 (100%) tests passed.
-- done testing sequences ----------------------------------------------------