tests-3.1-req.scm

(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"]
 )