Test output for holes [ok]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
(##core#lambda (!1!) (+ !1! 5))
(##core#lambda () '(1 . 2))
(##core#lambda (!!) (+ 5 (* !! 2)))
(##core#lambda (!!) (!! 1 2 3))
(##core#lambda () '(1 2 #(3 4 !! 6)))




Testing HOLES ...
----------------------------
(equal? ((@> map add1) '(0 1 2)) '(1 2 3))
... passed in (holes?)
(= ((@< list-ref 2) '(0 1 2 3)) 2)
... passed in (holes?)
(= ((@@ 5)) 5)
... passed in (holes?)
(= ((@@ 5)) 5)
... passed in (holes?)
(procedure? (@@ (vector 1 !!)))
... passed in (holes?)
(procedure? (@@ (lambda (x) (- x !!))))
... passed in (holes?)
(= (((@@ (lambda (x) (- x !!))) 2) 3) 1)
... passed in (holes?)
(equal? (call-with-values (@@ (values 1 2 3)) list) '(1 2 3))
... passed in (holes?)
(= ((@@ (+ !1! 5)) 2) 7)
... passed in (holes?)
(equal? ((@@ '(1 . 2))) '(1 . 2))
... passed in (holes?)
(= ((@@ (+ 5 (* !! 2))) 7) 19)
... passed in (holes?)
(= ((@@ (!! 1 2 3)) *) 6)
... passed in (holes?)
(= ((@@ (!! 1 2 3)) +) 6)
... passed in (holes?)
(equal? ((@@ (list 1 2 (vector 3 4 !! 6))) 5) '(1 2 #(3 4 5 6)))
... passed in (holes?)
(equal? ((@@ (list 1 2 #(3 4 !! 6)))) '(1 2 #(3 4 !! 6)))
... passed in (holes?)
(equal? ((@@ (vector 1 2 !!)) 3) #(1 2 3))
... passed in (holes?)
(equal? ((@@ (list 1 !! 2 !1!)) 3 4) '(1 3 2 4))
... passed in (holes?)
(equal? ((@@ (list 1 !! 2 !!)) 3) '(1 3 2 3))
... passed in (holes?)
(equal? ((@@ (list 1 !! 2 (vector !!))) 3) '(1 3 2 #(3)))
... passed in (holes?)
(equal? ((@@ (list !! !1! 2 (vector !!))) 1 2) '(1 2 2 #(1)))
... passed in (holes?)
(equal? ((@@ (cons !2! !1!)) 1 2) '(2 . 1))
... passed in (holes?)
(equal? ((@@ (list (cons !2! !1!) (cons !1! !2!))) 1 2) '((2 . 1) (1 . 2)))
... passed in (holes?)

Results of HOLES
----------------------------
All tests passed