Test output for srfi-133 [ok]

Testing time: 0s

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

-- testing vectors/basics ----------------------------------------------------
(vector? #(1 2 3)) ................................................... [ PASS]
(vector? (make-vector 10)) ........................................... [ PASS]
(vector-ref v 0) ..................................................... [ PASS]
(vector-ref v 1) ..................................................... [ PASS]
(vector-ref v 2) ..................................................... [ PASS]
(vector-ref v -1) .................................................... [ PASS]
(vector-ref v 3) ..................................................... [ PASS]
(vector-ref v 0) ..................................................... [ PASS]
(vector-length v) .................................................... [ PASS]
(vector-length '#()) ................................................. [ PASS]
10 tests completed in 1/1000 seconds.
10 out of 10 (100%) tests passed.
-- done testing vectors/basics -----------------------------------------------


-- testing vectors/constructors ----------------------------------------------
(vector 0 1 2 3 4) ................................................... [ PASS]
(vector-unfold (lambda (i x) (values x (- x 1))) 10 0) ............... [ PASS]
(vector-unfold values 7) ............................................. [ PASS]
(vector-unfold-right (lambda (i x) (values (cons i x) (+ x 1)))... ... [ PASS]
(vector-copy a2i) .................................................... [ PASS]
(not (eqv? a2i (vector-copy a2i))) ................................... [ PASS]
(vector-copy a2i 6) .................................................. [ PASS]
(vector-copy a2i 3 6) ................................................ [ PASS]
(vector-reverse-copy '#(5 4 3 2 1 0) 1 5) ............................ [ PASS]
(vector-append '#(x) '#(y)) .......................................... [ PASS]
(vector-append '#(a) '#(b c d)) ...................................... [ PASS]
(vector-append '#(a #(b)) '#(#(c))) .................................. [ PASS]
(vector-concatenate '(#(a b) #(c d))) ................................ [ PASS]
(vector-append-subvectors '#(a b c d e) 0 2 '#(f g h i j) 2 4) ....... [ PASS]
14 tests completed in 1/500 seconds.
14 out of 14 (100%) tests passed.
-- done testing vectors/constructors -----------------------------------------


-- testing vectors/predicates ------------------------------------------------
(vector-empty? '#(a)) ................................................ [ PASS]
(vector-empty? '#(())) ............................................... [ PASS]
(vector-empty? '#(#())) .............................................. [ PASS]
(vector-empty? '#()) ................................................. [ PASS]
(vector= eq? '#(a b c d) '#(a b c d)) ................................ [ PASS]
(vector= eq? '#(a b c d) '#(a b d c)) ................................ [ PASS]
(vector= = '#(1 2 3 4 5) '#(1 2 3 4)) ................................ [ PASS]
(vector= = '#(+nan.0) '#(+nan.0)) .................................... [ PASS]
(let ((nan '+nan.0)) (vector= = (vector nan) (vector nan))) .......... [ PASS]
(let ((nanvec '#(+nan.0))) (vector= = nanvec nanvec)) ................ [ PASS]
(vector= eq?) ........................................................ [ PASS]
(vector= eq? '#(a)) .................................................. [ PASS]
(vector= eq? (vector (vector 'a)) (vector (vector 'a))) .............. [ PASS]
(vector= equal? (vector (vector 'a)) (vector (vector 'a))) ........... [ PASS]
14 tests completed in 1/1000 seconds.
14 out of 14 (100%) tests passed.
-- done testing vectors/predicates -------------------------------------------


-- testing vectors/iteration -------------------------------------------------
(vector-fold (lambda (len str) (max (string-length str) len)) 0... ... [ PASS]
(vector-fold (lambda (tail elt) (cons elt tail)) '() vec) ............ [ PASS]
(vector-fold (lambda (ctr n) (if (even? n) (+ ctr 1) ctr)) 0 vec) .... [ PASS]
(vector-fold-right (lambda (tail elt) (cons elt tail)) '() '#(a... ... [ PASS]
(vector-map sqr '#(1 2 3 4)) ......................................... [ PASS]
(vector-map * '#(1 2 3 4 5) '#(5 4 3 2 1)) ........................... [ PASS]
(vector-copy vec2) ................................................... [ PASS]
(vector-copy vec2) ................................................... [ PASS]
(cons (car result) (cdr result)) ..................................... [ PASS]
(vector-count even? '#(3 1 4 1 5 9 2 5 6)) ........................... [ PASS]
(vector-count < '#(1 3 6 9) '#(2 4 6 8 10 12)) ....................... [ PASS]
(vector-cumulate + 0 '#(3 1 4 1 5 9 2 5 6)) .......................... [ PASS]
12 tests completed in 1/1000 seconds.
12 out of 12 (100%) tests passed.
-- done testing vectors/iteration --------------------------------------------


-- testing vectors/searching -------------------------------------------------
(vector-index even? '#(3 1 4 1 5 9 6)) ............................... [ PASS]
(vector-index < '#(3 1 4 1 5 9 2 5 6) '#(2 7 1 8 2)) ................. [ PASS]
(vector-index = '#(3 1 4 1 5 9 2 5 6) '#(2 7 1 8 2)) ................. [ PASS]
(vector-index-right odd? '#(3 1 4 1 5 9 6)) .......................... [ PASS]
(vector-index-right < '#(3 1 4 1 5) '#(2 7 1 8 2)) ................... [ PASS]
(vector-skip number? '#(1 2 a b 3 4 c d)) ............................ [ PASS]
(vector-skip = '#(1 2 3 4 5) '#(1 2 -3 4)) ........................... [ PASS]
(vector-skip-right number? '#(1 2 a b 3 4 c d)) ...................... [ PASS]
(vector-skip-right = '#(1 2 3 4 5) '#(1 2 -3 -4 5)) .................. [ PASS]
(vector-binary-search v 0 cmp) ....................................... [ PASS]
(vector-binary-search v 6 cmp) ....................................... [ PASS]
(vector-binary-search v 1 cmp) ....................................... [ PASS]
(vector-any number? '#(1 2 x y z)) ................................... [ PASS]
(vector-any < '#(1 2 3 4 5) '#(2 1 3 4 5)) ........................... [ PASS]
(vector-any number? '#(a b c d e)) ................................... [ PASS]
(vector-any > '#(1 2 3 4 5) '#(1 2 3 4 5)) ........................... [ PASS]
(vector-every number? '#(1 2 x y z)) ................................. [ PASS]
(vector-every number? '#(1 2 3 4 5)) ................................. [ PASS]
(vector-every < '#(1 2 3) '#(2 3 3)) ................................. [ PASS]
(vector-every < '#(1 2 3) '#(2 3 4)) ................................. [ PASS]
(vector-any (lambda (x) (if (number? x) 'yes #f)) '#(1 2 x y z)) ..... [ PASS]
(vector-copy new) .................................................... [ PASS]
(+ off 0) ............................................................ [ PASS]
23 tests completed in 7/250 seconds.
23 out of 23 (100%) tests passed.
-- done testing vectors/searching --------------------------------------------


-- testing vectors/mutation --------------------------------------------------
(vector-copy vs) ..................................................... [ PASS]
(vector-copy vf0) .................................................... [ PASS]
(vector-copy vf1) .................................................... [ PASS]
(vector-copy vf2) .................................................... [ PASS]
(vector-copy vr0) .................................................... [ PASS]
(vector-copy vr1) .................................................... [ PASS]
(vector-copy vr2) .................................................... [ PASS]
(vector-copy vc0) .................................................... [ PASS]
(vector-copy vc1) .................................................... [ PASS]
(vector-copy vc2) .................................................... [ PASS]
(vector-copy vrc0) ................................................... [ PASS]
(vector-copy vrc1) ................................................... [ PASS]
(vector-copy vrc2) ................................................... [ PASS]
(vector-copy vu0) .................................................... [ PASS]
(vector-copy vu1) .................................................... [ PASS]
(vector-copy vu2) .................................................... [ PASS]
(vector-copy vur0) ................................................... [ PASS]
(vector-copy vur1) ................................................... [ PASS]
(vector-copy vur2) ................................................... [ PASS]
19 tests completed in 1/1000 seconds.
19 out of 19 (100%) tests passed.
-- done testing vectors/mutation ---------------------------------------------


-- testing vectors/conversion ------------------------------------------------
(vector->list '#(1 2 3)) ............................................. [ PASS]
(vector->list '#(1 2 3) 1) ........................................... [ PASS]
(vector->list '#(1 2 3) 0 2) ......................................... [ PASS]
(list->vector '(1 2 3)) .............................................. [ PASS]
(reverse-vector->list '#(1 2 3)) ..................................... [ PASS]
(reverse-vector->list '#(1 2 3) 1) ................................... [ PASS]
(reverse-vector->list '#(1 2 3) 0 2) ................................. [ PASS]
(reverse-list->vector '(1 2 3)) ...................................... [ PASS]
(vector->string '#(#\a #\b #\c)) ..................................... [ PASS]
(vector->string '#(#\a #\b #\c) 1) ................................... [ PASS]
(vector->string '#(#\a #\b #\c) 0 2) ................................. [ PASS]
(string->vector "abc") ............................................... [ PASS]
(string->vector "abc" 1) ............................................. [ PASS]
(string->vector "abc" 0 2) ........................................... [ PASS]
14 tests completed in 1/1000 seconds.
14 out of 14 (100%) tests passed.
-- done testing vectors/conversion -------------------------------------------