Test output for biglists [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

Testing BIGLISTS ...
----------------------------
(= (First (Cons 1 2 #f)) 1)
... passed in (biglists?)
(= (Rest (Cons 1 2 #f)) 2)
... passed in (biglists?)
(= (First tree) 1)
... passed in (biglists?)
(= (First (First (Rest tree))) 2)
... passed in (biglists?)
(= (First (Rest (Rest tree))) 3)
... passed in (biglists?)
(= (At 5 ones) 1)
... passed in (biglists?)
(= (At 2 five) 2)
... passed in (biglists?)
(not (List? ones))
... passed in (biglists?)
(= (At 5 twos) 2)
... passed in (biglists?)
(= (At 5 (Map (lambda (x) (* 10 x)) twos)) 20)
... passed in (biglists?)
(= (At 3 (List 0 1 2 3 4)) 3)
... passed in (biglists?)
(BigList? eos)
... passed in (biglists?)
(Null? eos)
... passed in (biglists?)
(List? eos)
... passed in (biglists?)
(not (Null? ones))
... passed in (biglists?)
(= (At 5 integers) 5)
... passed in (biglists?)
(= (At 5 (Map * integers integers)) 25)
... passed in (biglists?)
(= (At 5 (Map + ones integers)) 6)
... passed in (biglists?)
(= (At 3 (Map + four five)) 6)
... passed in (biglists?)
(zero? (First (Take 3 integers)))
... passed in (biglists?)
(equal? (Take 2 five) '(0 1))
... passed in (biglists?)
(equal? (Take-while (cut < <> 2) five) '(0 1))
... passed in (biglists?)
(equal? (BigList->list (Take-while (cut < <> 2) integers)) '(0 1))
... passed in (biglists?)
(equal? (BigList->list (Take-while (cut < <> 2) integers)) '(0 1))
... passed in (biglists?)
(equal? (Take-until (cut = <> 2) five) '(0 1))
... passed in (biglists?)
(equal? (BigList->list (Take-until (cut = <> 2) integers)) '(0 1))
... passed in (biglists?)
(= (At 5 (Filter even? integers)) 10)
... passed in (biglists?)
(equal? (Filter even? five) '(0 2 4))
... passed in (biglists?)
(= (At 5 positive-integers) 6)
... passed in (biglists?)
(not (List? fibs))
... passed in (biglists?)
(equal? (BigList->list 5 fibs) '(0 1 1 2 3))
... passed in (biglists?)
(equal? (BigList->list 5 primes) '(2 3 5 7 11))
... passed in (biglists?)
(not (List? primes))
... passed in (biglists?)
(BigList? fibs)
... passed in (biglists?)
(BigList? primes)
... passed in (biglists?)
(BigList? integers)
... passed in (biglists?)
(not (List? integers))
... passed in (biglists?)
(BigList? ones)
... passed in (biglists?)
(BigList? tree)
... passed in (biglists?)
((List-of? number? odd?) '(1 3 5 7))
... passed in (biglists?)
((List-of? number? odd?) (List 1 3 5 7))
... passed in (biglists?)
((List-of? integer?) (Take 10 integers))
... passed in (biglists?)
(not ((List-of? odd?) four))
... passed in (biglists?)
(not ((List-of? odd?) five))
... passed in (biglists?)
(equal? (BigList->list four) '(0 1 2 3))
... passed in (biglists?)
(= (Fold-right + 0 five) 10)
... passed in (biglists?)
(= (Fold-left + 0 five) 10)
... passed in (biglists?)
(= (Fold-right + 0 four) 6)
... passed in (biglists?)
(= (Fold-left + 0 four) 6)
... passed in (biglists?)
(= (Fold-left0 + four) 6)
... passed in (biglists?)
(= (Fold-left0 + five) 10)
... passed in (biglists?)
(BigList? (Take 5 integers))
... passed in (biglists?)
(List? (Take 5 integers))
... passed in (biglists?)
(= (Fold-right + 0 (Take 5 integers) (Take 5 integers)) 20)
... passed in (biglists?)
(= (Fold-right + 0 (Take 3 integers) integers) 6)
... passed in (biglists?)
(= (Fold-left + 0 (Take 3 integers) integers) 6)
... passed in (biglists?)
(equal? (BigList->list 5 (Scan-right + 0 integers integers)) '(0 0 2 6 12))
... passed in (biglists?)
(equal? (BigList->list 5 (Scan-left + 0 integers integers)) '(0 0 2 6 12))
... passed in (biglists?)
(not (List? (Scan-left + 0 integers integers)))
... passed in (biglists?)
(List? (Scan-left + 0 four four))
... passed in (biglists?)
(List? (Scan-right + 0 four integers))
... passed in (biglists?)
(not (Length integers))
... passed in (biglists?)
(not (Length (Scan-right + 0 integers)))
... passed in (biglists?)
XXX (0 0 1 3 6)
(print "XXX " (BigList->list (Scan-right + 0 five)))
... passed in (biglists?)
(= (At 2 (Scan-right + 0 five)) 1)
... passed in (biglists?)
(= (Length (Scan-right + 0 five)) 5)
... passed in (biglists?)
(= (Length (Scan-right + 0 five five)) 5)
... passed in (biglists?)
(= (Length (Scan-left + 0 five five)) 5)
... passed in (biglists?)
(= (At 3 (Scan-right + 0 four)) 3)
... passed in (biglists?)
(Null? (At 4 (Scan-right + 0 four)))
... passed in (biglists?)
(Null? (At 4 (Scan-right + 0 four four)))
... passed in (biglists?)
(eq? (At 4 (Scan-right + 0 four)) eos)
... passed in (biglists?)
(eq? (At 4 (Scan-right + 0 four four)) eos)
... passed in (biglists?)
(= (Length (Scan-right + 0 four four)) 4)
... passed in (biglists?)
(= (Length (Scan-left + 0 four four)) 4)
... passed in (biglists?)
(symbol? (At 4 (Scan-left + 0 four four)))
... passed in (biglists?)
(symbol? (At 10 (Scan-left + 0 four four)))
... passed in (biglists?)
(symbol? (At 20 (Scan-right + 0 four four)))
... passed in (biglists?)
(symbol? (At 4 (Take 10 four)))
... passed in (biglists?)
(equal? (Drop 2 five) '(2 3 4))
... passed in (biglists?)
(= (First (Drop 3 integers)) 3)
... passed in (biglists?)
(List? (Drop 10 four))
... passed in (biglists?)
(Null? (Drop 10 four))
... passed in (biglists?)
(equal? (Drop-while even? five) '(1 2 3 4))
... passed in (biglists?)
(equal? (Drop-until odd? five) '(1 2 3 4))
... passed in (biglists?)
(equal? (BigList->list (Drop-while odd? (List 1 3 5 2 3 4))) '(2 3 4))
... passed in (biglists?)
(equal? (BigList->list 5 (Drop-while even? integers)) '(1 2 3 4 5))
... passed in (biglists?)
(not (List? (Drop 10 integers)))
... passed in (biglists?)
(equal? (BigList->list (Append four four)) '(0 1 2 3 0 1 2 3))
... passed in (biglists?)
(equal? (BigList->list (Append four four four)) '(0 1 2 3 0 1 2 3 0 1 2 3))
... passed in (biglists?)
(equal? (BigList->list (Reverse four)) '(3 2 1 0))
... passed in (biglists?)
(equal? (Reverse four '()) '(3 2 1 0))
... passed in (biglists?)
(equal? (Reverse five) '(4 3 2 1 0))
... passed in (biglists?)
(equal? (BigList->list 10 (Reverse four integers)) '(3 2 1 0 0 1 2 3 4 5))
... passed in (biglists?)
(equal?
  (BigList->list 5 (Map BigList->list (Reverse* integers)))
  '(() (0) (1 0) (2 1 0) (3 2 1 0)))
... passed in (biglists?)
(equal? (Reverse* five) '(() (0) (1 0) (2 1 0) (3 2 1 0) (4 3 2 1 0)))
... passed in (biglists?)
(equal?
  (BigList->list (Map BigList->list (Reverse* four)))
  '(() (0) (1 0) (2 1 0) (3 2 1 0)))
... passed in (biglists?)
(equal? (BigList->list (Zip four four)) '(0 0 1 1 2 2 3 3))
... passed in (biglists?)
(equal? (Zip five five) '(0 0 1 1 2 2 3 3 4 4))
... passed in (biglists?)
(equal? (BigList->list 12 (Zip four integers)) '(0 0 1 1 2 2 3 3 4 5 6 7))
... passed in (biglists?)
(equal? (BigList->list 5 (Iterate add1 0)) '(0 1 2 3 4))
... passed in (biglists?)
(equal? (BigList->list 5 (Repeat 0)) '(0 0 0 0 0))
... passed in (biglists?)
(equal? (BigList->list 5 integers) '(0 1 2 3 4))
... passed in (biglists?)
(equal?
  (BigList->list 10 (nth-value 0 (Unzip integers)))
  '(0 2 4 6 8 10 12 14 16 18))
... passed in (biglists?)
(equal?
  (BigList->list 10 (nth-value 1 (Unzip integers)))
  '(1 3 5 7 9 11 13 15 17 19))
... passed in (biglists?)
(equal? (BigList->list (nth-value 1 (Unzip four))) '(1 3))
... passed in (biglists?)
(equal? (nth-value 0 (Unzip five)) '(0 2 4))
... passed in (biglists?)
(equal? (nth-value 1 (Unzip five)) '(1 3))
... passed in (biglists?)
(Some? odd? four)
... passed in (biglists?)
(Some? odd? five)
... passed in (biglists?)
(not ((Every? odd?) four))
... passed in (biglists?)
(not ((Every? odd?) five))
... passed in (biglists?)
(Sorted? <= four)
... passed in (biglists?)
(Sorted? <= five)
... passed in (biglists?)
(equal? (BigList->list (Merge <= four four)) '(0 0 1 1 2 2 3 3))
... passed in (biglists?)
(equal? (Merge <= five five) '(0 0 1 1 2 2 3 3 4 4))
... passed in (biglists?)
(equal? (Sort <= '(2 1 5 1 3 0)) '(0 1 1 2 3 5))
... passed in (biglists?)
(equal? (BigList->list (Sort <= (Append four four))) '(0 0 1 1 2 2 3 3))
... passed in (biglists?)
(equal? (BigList->list (Sort <= (List 5 3 2 7 5 1 0))) '(0 1 2 3 5 5 7))
... passed in (biglists?)
(equal? (BigList->list (Sort < (List 5 3 2 7 5 1 0))) '(0 1 2 3 5 5 7))
... passed in (biglists?)
(equal?
  (bind (x . xs) integers (list x (BigList->list 5 xs)))
  '(0 (1 2 3 4 5)))
... passed in (biglists?)
(equal?
  (bind (x (y . ys) z) (List 1 integers 3) (list x y z (BigList->list 5 ys)))
  '(1 0 3 (1 2 3 4 5)))
... passed in (biglists?)
(equal? (BigList->list (Remp odd? four)) '(0 2))
... passed in (biglists?)
(equal? (Remv 1 '(0 1 2 1 3 1 4)) '(0 2 3 4))
... passed in (biglists?)
(equal? (BigList->list (Remv 1 four)) '(0 2 3))
... passed in (biglists?)
(= (Index (cut = <> 5) integers) 5)
... passed in (biglists?)
(= (Index odd? four) 1)
... passed in (biglists?)
(= (Index (cut = <> 2) five) 2)
... passed in (biglists?)
(= (Index odd? five) 1)
... passed in (biglists?)
(equal? (BigList->list 10 (Memp odd? integers)) '(1 2 3 4 5 6 7 8 9 10))
... passed in (biglists?)
(equal? (BigList->list 10 (Memv 3 integers)) '(3 4 5 6 7 8 9 10 11 12))
... passed in (biglists?)
(not (Eqv? four (list 0 1 2 3)))
... passed in (biglists?)
(Eqv? four (List 0 1 2 3))
... passed in (biglists?)
(Eqp? = four (List 0 1 2 3))
... passed in (biglists?)
(equal? (list 0 1 2 3) (list 0 1 2 3))
... passed in (biglists?)
(Equal? (list 0 1 2 3) (list 0 1 2 3))
... passed in (biglists?)
(Equal? (List 0 1 2 3) (List 0 1 2 3))
... passed in (biglists?)
(Eqp? = integers integers)
... passed in (biglists?)
(equal? (Assv 1 (List '(0 5) '(1 6) '(2 7))) '(1 6))
... passed in (biglists?)
(equal? (Assv 1 '((0 5) (1 6) (2 7))) '(1 6))
... passed in (biglists?)
(equal?
  (BigList->list (Assv 2 (List (List 0 5) (List 1 6) (List 2 7))))
  '(2 7))
... passed in (biglists?)
(equal?
  (BigList->list (Assp odd? (List (list 0 5) (list 1 6) (list 2 7))))
  '(1 6))
... passed in (biglists?)
(equal?
  (BigList->list (Assp odd? (List (List 0 5) (List 1 6) (List 2 7))))
  '(1 6))
... passed in (biglists?)
(equal? (Assp (cut eq? <> 'b) '((a A) (b B) (c C))) '(b B))
... passed in (biglists?)
(equal? (Assq 'b '((a A) (b B) (c C))) '(b B))
... passed in (biglists?)
(not (Assq 'x '((a A) (b B) (c C))))
... passed in (biglists?)
(equal? (BigList->list 5 (Range #f)) '(0 1 2 3 4))
... passed in (biglists?)
(equal? (BigList->list 5 (Range 0 #f)) '(0 1 2 3 4))
... passed in (biglists?)
(equal? (BigList->list 5 (Range 0 #f -2)) '(0 -2 -4 -6 -8))
... passed in (biglists?)
(not (List? (Range 0 #f 1)))
... passed in (biglists?)
(not (List? (Range 0 #f)))
... passed in (biglists?)
(equal? (BigList->list 4 (Range 0 5 1)) '(0 1 2 3))
... passed in (biglists?)
(equal? (BigList->list (Range 0 5 1)) '(0 1 2 3 4))
... passed in (biglists?)
(equal? (BigList->list (Range 5 0 -1)) '(5 4 3 2 1))
... passed in (biglists?)
(equal? (BigList->list (Range 0 -1)) '(0))
... passed in (biglists?)
(equal? (BigList->list (Iterate-while sub1 positive? 5)) '(5 4 3 2 1))
... passed in (biglists?)
(equal? (BigList->list (Iterate-times add1 5 1)) '(1 2 3 4 5))
... passed in (biglists?)
0
1
2
3
4
(Print five)
... passed in (biglists?)
(equal? (BigList->list (For ((x four)) (add1 x))) '(1 2 3 4))
... passed in (biglists?)
(equal? (BigList->list (For ((x (List 0 1 2 3 4 5 6) (odd? x))) x)) '(1 3 5))
... passed in (biglists?)
(equal?
  (BigList->list
    (For ((n (List 0 1 2 3 4 5 6) (positive? n) (even? n))) (* 10 n)))
  '(20 40 60))
... passed in (biglists?)
(equal?
  (BigList->list (For ((c (List 'A 'B 'C)) (k '(1 2 3 4))) (list c k)))
  '((A 1) (A 2) (A 3) (A 4) (B 1) (B 2) (B 3) (B 4) (C 1) (C 2) (C 3) (C 4)))
... passed in (biglists?)
(equal?
  (BigList->list (For ((c (List 'A 'B 'C)) (k (List 1 2 3 4))) (list c k)))
  '((A 1) (A 2) (A 3) (A 4) (B 1) (B 2) (B 3) (B 4) (C 1) (C 2) (C 3) (C 4)))
... passed in (biglists?)
(equal?
  (For ((c '(A B C)) (k (List 1 2 3 4))) (list c k))
  '((A 1) (A 2) (A 3) (A 4) (B 1) (B 2) (B 3) (B 4) (C 1) (C 2) (C 3) (C 4)))
... passed in (biglists?)
(equal?
  (For ((c '(A B C)) (k '(1 2 3 4))) (list c k))
  '((A 1) (A 2) (A 3) (A 4) (B 1) (B 2) (B 3) (B 4) (C 1) (C 2) (C 3) (C 4)))
... passed in (biglists?)

Results of BIGLISTS
----------------------------
All tests passed