Test output for srfi-128 [ok]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
(vector-cdr '#(1 2 3 4)) ............................................. [ PASS]
(vector-cdr '#(1)) ................................................... [ PASS]
default-comparator
real-comparator
degenerate comparator
boolean comparator
bool-pair-comparator
num-list-comparator
num-vector-comparator
vector-qua-list comparator
list-qua-vector-comparator
eq-comparator
eqv-comparator
equal-comparator
symbol-comparator

-- testing comparators/predicates --------------------------------------------
(comparator? real-comparator) ........................................ [ PASS]
(not (comparator? =)) ................................................ [ PASS]
(comparator-ordered? real-comparator) ................................ [ PASS]
(comparator-hashable? real-comparator) ............................... [ PASS]
(not (comparator-ordered? degenerate-comparator)) .................... [ PASS]
(not (comparator-hashable? degenerate-comparator)) ................... [ PASS]
6 tests completed in 1/1000 seconds.
6 out of 6 (100%) tests passed.
-- done testing comparators/predicates ---------------------------------------


-- testing comparators/constructors ------------------------------------------
(=? boolean-comparator #t #t) ........................................ [ PASS]
(not (=? boolean-comparator #t #f)) .................................. [ PASS]
(<? boolean-comparator #f #t) ........................................ [ PASS]
(not (<? boolean-comparator #t #t)) .................................. [ PASS]
(not (<? boolean-comparator #t #f)) .................................. [ PASS]
(comparator-test-type bool-pair-comparator '(#t . #f)) ............... [ PASS]
(not (comparator-test-type bool-pair-comparator 32)) ................. [ PASS]
(not (comparator-test-type bool-pair-comparator '(32 . #f))) ......... [ PASS]
(not (comparator-test-type bool-pair-comparator '(#t . 32))) ......... [ PASS]
(not (comparator-test-type bool-pair-comparator '(32 . 34))) ......... [ PASS]
(=? bool-pair-comparator '(#t . #t) '(#t . #t)) ...................... [ PASS]
(not (=? bool-pair-comparator '(#t . #t) '(#f . #t))) ................ [ PASS]
(not (=? bool-pair-comparator '(#t . #t) '(#t . #f))) ................ [ PASS]
(<? bool-pair-comparator '(#f . #t) '(#t . #t)) ...................... [ PASS]
(<? bool-pair-comparator '(#t . #f) '(#t . #t)) ...................... [ PASS]
(not (<? bool-pair-comparator '(#t . #t) '(#t . #t))) ................ [ PASS]
(not (<? bool-pair-comparator '(#t . #t) '(#f . #t))) ................ [ PASS]
(not (<? bool-pair-comparator '(#f . #t) '(#f . #f))) ................ [ PASS]
(comparator-test-type num-vector-comparator '#(1 2 3)) ............... [ PASS]
(comparator-test-type num-vector-comparator '#()) .................... [ PASS]
(not (comparator-test-type num-vector-comparator 1)) ................. [ PASS]
(not (comparator-test-type num-vector-comparator '#(a 2 3))) ......... [ PASS]
(not (comparator-test-type num-vector-comparator '#(1 b 3))) ......... [ PASS]
(not (comparator-test-type num-vector-comparator '#(1 2 c))) ......... [ PASS]
(=? num-vector-comparator '#(1 2 3) '#(1 2 3)) ....................... [ PASS]
(not (=? num-vector-comparator '#(1 2 3) '#(4 5 6))) ................. [ PASS]
(not (=? num-vector-comparator '#(1 2 3) '#(1 5 6))) ................. [ PASS]
(not (=? num-vector-comparator '#(1 2 3) '#(1 2 6))) ................. [ PASS]
(<? num-vector-comparator '#(1 2) '#(1 2 3)) ......................... [ PASS]
(<? num-vector-comparator '#(1 2 3) '#(2 3 4)) ....................... [ PASS]
(<? num-vector-comparator '#(1 2 3) '#(1 3 4)) ....................... [ PASS]
(<? num-vector-comparator '#(1 2 3) '#(1 2 4)) ....................... [ PASS]
(<? num-vector-comparator '#(3 4) '#(1 2 3)) ......................... [ PASS]
(not (<? num-vector-comparator '#(1 2 3) '#(1 2 3))) ................. [ PASS]
(not (<? num-vector-comparator '#(1 2 3) '#(1 2))) ................... [ PASS]
(not (<? num-vector-comparator '#(1 2 3) '#(0 2 3))) ................. [ PASS]
(not (<? num-vector-comparator '#(1 2 3) '#(1 1 3))) ................. [ PASS]
(not (<? vector-qua-list-comparator '#(3 4) '#(1 2 3))) .............. [ PASS]
(<? list-qua-vector-comparator '(3 4) '(1 2 3)) ...................... [ PASS]
(=? eq-comparator #t #t) ............................................. [ PASS]
(not (=? eq-comparator #f #t)) ....................................... [ PASS]
(=? eqv-comparator bool-pair bool-pair) .............................. [ PASS]
(not (=? eqv-comparator bool-pair bool-pair-2)) ...................... [ PASS]
(=? equal-comparator bool-pair bool-pair-2) .......................... [ PASS]
(not (=? equal-comparator bool-pair reverse-bool-pair)) .............. [ PASS]
45 tests completed in 3/1000 seconds.
45 out of 45 (100%) tests passed.
-- done testing comparators/constructors -------------------------------------


-- testing comparators/hash --------------------------------------------------
(exact-integer? (boolean-hash #f)) ................................... [ PASS]
(not (negative? (boolean-hash #t))) .................................. [ PASS]
(exact-integer? (char-hash #\a)) ..................................... [ PASS]
(not (negative? (char-hash #\b))) .................................... [ PASS]
(exact-integer? (char-ci-hash #\a)) .................................. [ PASS]
(not (negative? (char-ci-hash #\b))) ................................. [ PASS]
(= (char-ci-hash #\a) (char-ci-hash #\A)) ............................ [ PASS]
(exact-integer? (string-hash "f")) ................................... [ PASS]
(not (negative? (string-hash "g"))) .................................. [ PASS]
(exact-integer? (string-ci-hash "f")) ................................ [ PASS]
(not (negative? (string-ci-hash "g"))) ............................... [ PASS]
(= (string-ci-hash "f") (string-ci-hash "F")) ........................ [ PASS]
(exact-integer? (symbol-hash 'f)) .................................... [ PASS]
(not (negative? (symbol-hash 't))) ................................... [ PASS]
(exact-integer? (number-hash 3)) ..................................... [ PASS]
(not (negative? (number-hash 3))) .................................... [ PASS]
(exact-integer? (number-hash -3)) .................................... [ PASS]
(not (negative? (number-hash -3))) ................................... [ PASS]
(exact-integer? (number-hash 3.0)) ................................... [ PASS]
(not (negative? (number-hash 3.0))) .................................. [ PASS]
20 tests completed in 1/500 seconds.
20 out of 20 (100%) tests passed.
-- done testing comparators/hash ---------------------------------------------


-- testing comparators/default -----------------------------------------------
(<? default-comparator '() '(a)) ..................................... [ PASS]
(not (=? default-comparator '() '(a))) ............................... [ PASS]
(=? default-comparator #t #t) ........................................ [ PASS]
(not (=? default-comparator #t #f)) .................................. [ PASS]
(<? default-comparator #f #t) ........................................ [ PASS]
(not (<? default-comparator #t #t)) .................................. [ PASS]
(=? default-comparator #\a #\a) ...................................... [ PASS]
(<? default-comparator #\a #\b) ...................................... [ PASS]
(comparator-test-type default-comparator '()) ........................ [ PASS]
(comparator-test-type default-comparator #t) ......................... [ PASS]
(comparator-test-type default-comparator #\t) ........................ [ PASS]
(comparator-test-type default-comparator '(a)) ....................... [ PASS]
(comparator-test-type default-comparator 'a) ......................... [ PASS]
(comparator-test-type default-comparator (make-bytevector 10)) ....... [ PASS]
(comparator-test-type default-comparator 10) ......................... [ PASS]
(comparator-test-type default-comparator 10.0) ....................... [ PASS]
(comparator-test-type default-comparator "10.0") ..................... [ PASS]
(comparator-test-type default-comparator '#(10)) ..................... [ PASS]
(=? default-comparator '(#t . #t) '(#t . #t)) ........................ [ PASS]
(not (=? default-comparator '(#t . #t) '(#f . #t))) .................. [ PASS]
(not (=? default-comparator '(#t . #t) '(#t . #f))) .................. [ PASS]
(<? default-comparator '(#f . #t) '(#t . #t)) ........................ [ PASS]
(<? default-comparator '(#t . #f) '(#t . #t)) ........................ [ PASS]
(not (<? default-comparator '(#t . #t) '(#t . #t))) .................. [ PASS]
(not (<? default-comparator '(#t . #t) '(#f . #t))) .................. [ PASS]
(not (<? default-comparator '#(#f #t) '#(#f #f))) .................... [ PASS]
(=? default-comparator '#(#t #t) '#(#t #t)) .......................... [ PASS]
(not (=? default-comparator '#(#t #t) '#(#f #t))) .................... [ PASS]
(not (=? default-comparator '#(#t #t) '#(#t #f))) .................... [ PASS]
(<? default-comparator '#(#f #t) '#(#t #t)) .......................... [ PASS]
(<? default-comparator '#(#t #f) '#(#t #t)) .......................... [ PASS]
(not (<? default-comparator '#(#t #t) '#(#t #t))) .................... [ PASS]
(not (<? default-comparator '#(#t #t) '#(#f #t))) .................... [ PASS]
(not (<? default-comparator '#(#f #t) '#(#f #f))) .................... [ PASS]
(= (comparator-hash default-comparator #t) (boolean-hash #t)) ........ [ PASS]
(= (comparator-hash default-comparator #\t) (char-hash #\t)) ......... [ PASS]
(= (comparator-hash default-comparator "t") (string-hash "t")) ....... [ PASS]
(= (comparator-hash default-comparator 't) (symbol-hash 't)) ......... [ PASS]
(= (comparator-hash default-comparator 10) (number-hash 10)) ......... [ PASS]
(= (comparator-hash default-comparator 10.0) (number-hash 10.0)) ..... [ PASS]
(=? default-comparator (lambda () #t) (lambda () #f)) ................ [ PASS]
(not (<? default-comparator (lambda () #t) (lambda () #f))) .......... [ PASS]
(comparator-hash default-comparator (lambda () #t)) .................. [ PASS]
43 tests completed in 3/1000 seconds.
43 out of 43 (100%) tests passed.
-- done testing comparators/default ------------------------------------------


-- testing comparators/accessors ---------------------------------------------
(and ((comparator-type-test-predicate comp) x1) (= x1 111)) .......... [ PASS]
(and ((comparator-equality-predicate comp) x1 x2) (= x2 222)) ........ [ PASS]
(and ((comparator-ordering-predicate comp) x1 x3) (= x3 333)) ........ [ PASS]
(and (zero? ((comparator-hash-function comp) x1)) (= x4 444)) ........ [ PASS]
4 tests completed in 0 seconds.
4 out of 4 (100%) tests passed.
-- done testing comparators/accessors ----------------------------------------


-- testing comparators/invokers ----------------------------------------------
(comparator-test-type real-comparator 3) ............................. [ PASS]
(comparator-test-type real-comparator 3.0) ........................... [ PASS]
(not (comparator-test-type real-comparator "3.0")) ................... [ PASS]
(comparator-check-type boolean-comparator #t) ........................ [ PASS]
(comparator-check-type boolean-comparator 't) ........................ [ PASS]
5 tests completed in 1/1000 seconds.
5 out of 5 (100%) tests passed.
-- done testing comparators/invokers -----------------------------------------


-- testing comparators/comparison --------------------------------------------
(=? real-comparator 2 2.0 2) ......................................... [ PASS]
(<? real-comparator 2 3.0 4) ......................................... [ PASS]
(>? real-comparator 4.0 3.0 2) ....................................... [ PASS]
(<=? real-comparator 2.0 2 3.0) ...................................... [ PASS]
(>=? real-comparator 3 3.0 2) ........................................ [ PASS]
(not (=? real-comparator 1 2 3)) ..................................... [ PASS]
(not (<? real-comparator 3 1 2)) ..................................... [ PASS]
(not (>? real-comparator 1 2 3)) ..................................... [ PASS]
(not (<=? real-comparator 4 3 3)) .................................... [ PASS]
(not (>=? real-comparator 3 4 4.0)) .................................. [ PASS]
10 tests completed in 0 seconds.
10 out of 10 (100%) tests passed.
-- done testing comparators/comparison ---------------------------------------


-- testing comparators/syntax ------------------------------------------------
(comparator-if<=> real-comparator 1 2 'less 'equal 'greater) ......... [ PASS]
(comparator-if<=> real-comparator 1 1 'less 'equal 'greater) ......... [ PASS]
(comparator-if<=> real-comparator 2 1 'less 'equal 'greater) ......... [ PASS]
(comparator-if<=> "1" "2" 'less 'equal 'greater) ..................... [ PASS]
(comparator-if<=> "1" "1" 'less 'equal 'greater) ..................... [ PASS]
(comparator-if<=> "2" "1" 'less 'equal 'greater) ..................... [ PASS]
6 tests completed in 1/1000 seconds.
6 out of 6 (100%) tests passed.
-- done testing comparators/syntax -------------------------------------------


-- testing comparators/bound-salt --------------------------------------------
(exact-integer? (hash-bound)) ........................................ [ PASS]
(exact-integer? (hash-salt)) ......................................... [ PASS]
(< (hash-salt) (hash-bound)) ......................................... [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing comparators/bound-salt ---------------------------------------