9 lines
189 B
Scheme
9 lines
189 B
Scheme
|
|
||
|
|
|
||
|
|
(add-tests-with-string-output "vector"
|
||
|
|
[(fx= 1 2) => "#f\n"]
|
||
|
|
[(vector 1 2 3 4 5) => "#(1 2 3 4 5)\n"]
|
||
|
|
[(let ([f (lambda (f) (f 1 2 3 4 5 6))])
|
||
|
|
(f vector)) => "#(1 2 3 4 5 6)\n"]
|
||
|
|
)
|