Test output for pipes [ok]

Testing time: 0s

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

Testing PIPES ...
----------------------------
"FLIP"
... passed in (pipes?)
(null? ((flip* list)))
... passed in (pipes?)
(equal? ((flip* list) 1) '(1))
... passed in (pipes?)
(equal? ((flip* list) 1 2) '(2 1))
... passed in (pipes?)
(equal? ((flip* list) 1 2 3 4) '(2 3 4 1))
... passed in (pipes?)
(equal? ((flip* map) '(0 1 2) add1) '(1 2 3))
... passed in (pipes?)
"PIPE"
... passed in (pipes?)
(= (pipe 5) 5)
... passed in (pipes?)
(= (pipe 5 (+ 1)) 6)
... passed in (pipes?)
(not (pipe 5 (- 10) (positive?)))
... passed in (pipes?)
(pipe 5 (- 10) (negative?))
... passed in (pipes?)
(equal? (pipe 10 ((flip* list) 1 2 3 4)) '(1 2 3 4 10))
... passed in (pipes?)
(equal? (pipe 10 (list 1 2 3 4)) '(10 1 2 3 4))
... passed in (pipes?)
(equal? (pipe '(0 1 2) ((flip* map) add1)) '(1 2 3))
... passed in (pipes?)
(equal? (pipe 0 (list 1 2 3)) '(0 1 2 3))
... passed in (pipes?)
(equal? (pipe 0 ((flip* list) 1 2 3)) '(1 2 3 0))
... passed in (pipes?)
((pipe* (null?) (not)) '(1 2))
... passed in (pipes?)

Results of PIPES
----------------------------
All tests passed