43 lines
1.0 KiB
Scheme
43 lines
1.0 KiB
Scheme
(module predicate-tests mzscheme
|
|
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
|
|
(require srfi/43/vector-lib)
|
|
|
|
(provide predicate-tests)
|
|
|
|
(define predicate-tests
|
|
(test-suite
|
|
"All tests for predicate"
|
|
(test-case
|
|
"vector-empty?"
|
|
(check-false
|
|
(vector-empty? '#(a)))
|
|
(check-false
|
|
(vector-empty? '#(())))
|
|
(check-false
|
|
(vector-empty? '#(#())))
|
|
(check-true
|
|
(vector-empty? '#())))
|
|
|
|
(test-case
|
|
"vector="
|
|
(check-true
|
|
(vector= eq? '#(a b c d) '#(a b c d)))
|
|
(check-false
|
|
(vector= eq? '#(a b c d) '#(a b d c)))
|
|
(check-false
|
|
(vector= = '#(1 2 3 4 5) '#(1 2 3 4)))
|
|
(check-true
|
|
(vector= = '#(1 2 3 4) '#(1 2 3 4) '#(1 2 3 4)))
|
|
(check-true
|
|
(vector= eq?))
|
|
(check-true
|
|
(vector= eq? '#(a)))
|
|
(check-false
|
|
(vector= eq? '#(a b c d) '#(a b c d) '#(a b d c)))
|
|
(check-false
|
|
(vector= eq? '#(a b c d e) '#(a b c d) '#(a b c d))))
|
|
))
|
|
)
|
|
|