112 lines
2.7 KiB
Scheme
112 lines
2.7 KiB
Scheme
(module constructor-tests mzscheme
|
|
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
|
|
(require srfi/43/vector-lib)
|
|
|
|
(provide constructor-tests)
|
|
|
|
(define constructor-tests
|
|
(test-suite
|
|
"All tests for constructor"
|
|
(test-case
|
|
"vector-unfold"
|
|
(check-equal?
|
|
(vector-unfold values 10)
|
|
#(0 1 2 3 4 5 6 7 8 9)
|
|
"No seed")
|
|
(check-equal?
|
|
(vector-unfold (lambda (i x) (values x (- x 1))) 10 0)
|
|
#(0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
|
|
"Single seed")
|
|
(check-equal?
|
|
(vector-unfold (lambda (i a b) (values (/ a b) a b)) 4 5 5)
|
|
#(1 1 1 1)
|
|
"Two seeds"))
|
|
|
|
(test-case
|
|
"vector-unfold-right"
|
|
(check-equal?
|
|
(vector-unfold-right values 10)
|
|
#(0 1 2 3 4 5 6 7 8 9)
|
|
"No seed")
|
|
(check-equal?
|
|
(vector-unfold-right
|
|
(lambda (i x) (values x (- x 1)))
|
|
10
|
|
0)
|
|
#(-9 -8 -7 -6 -5 -4 -3 -2 -1 0)
|
|
"Single seed")
|
|
(check-equal?
|
|
(vector-unfold-right
|
|
(lambda (i a b) (values (/ a b) a b))
|
|
4
|
|
5
|
|
5)
|
|
#(1 1 1 1)
|
|
"Two seeds"))
|
|
|
|
(test-case
|
|
"vector-copy"
|
|
(check-equal?
|
|
(vector-copy '#(a b c d e f g h i))
|
|
#(a b c d e f g h i))
|
|
(check-equal?
|
|
(vector-copy '#(a b c d e f g h i) 6)
|
|
#(g h i))
|
|
(check-equal?
|
|
(vector-copy '#(a b c d e f g h i) 3 6)
|
|
#(d e f))
|
|
(check-equal?
|
|
(vector-copy '#(a b c d e f g h i) 6 12 'x)
|
|
#(g h i x x x)))
|
|
|
|
(test-case
|
|
"vector-reverse-copy"
|
|
(check-equal?
|
|
(vector-reverse-copy '#(5 4 3 2 1 0) 1 5)
|
|
#(1 2 3 4))
|
|
(check-equal?
|
|
(vector-reverse-copy '#(5 4 3 2 1 0) 2)
|
|
#(0 1 2 3))
|
|
(check-equal?
|
|
(vector-reverse-copy '#(5 4 3 2 1 0))
|
|
#(0 1 2 3 4 5)))
|
|
|
|
(test-case
|
|
"vector-append"
|
|
(check-equal?
|
|
(vector-append '#(x) '#(y))
|
|
#(x y))
|
|
(check-equal?
|
|
(vector-append '#(a) '#(b c d))
|
|
#(a b c d))
|
|
(check-equal?
|
|
(vector-append '#(a #(b)) '#(#(c)))
|
|
#(a #(b) #(c)))
|
|
(check-equal?
|
|
(vector-append '#(1 2) '#(3) '#(4 5 6 7))
|
|
#(1 2 3 4 5 6 7))
|
|
(check-equal?
|
|
(vector-append)
|
|
#()))
|
|
|
|
(test-case
|
|
"vector-concatenate"
|
|
(check-equal?
|
|
(vector-concatenate '(#(x) #(y)))
|
|
#(x y))
|
|
(check-equal?
|
|
(vector-concatenate '(#(a) #(b c d)))
|
|
#(a b c d))
|
|
(check-equal?
|
|
(vector-concatenate '(#(a #(b)) #(#(c))))
|
|
#(a #(b) #(c)))
|
|
(check-equal?
|
|
(vector-concatenate '(#(1 2) #(3) #(4 5 6 7)))
|
|
#(1 2 3 4 5 6 7))
|
|
(check-equal?
|
|
(vector-concatenate '())
|
|
#()))
|
|
))
|
|
)
|