update tests for empty vector

svn: r9318
This commit is contained in:
Matthew Flatt 2008-04-15 14:13:43 +00:00
parent 8284b3ab15
commit 53c4ee3255

View File

@ -301,7 +301,8 @@
(test #f immutable? 1)
(test #t immutable? #(1 2 3))
(test #f immutable? (vector 1 2 3))
(test #f immutable? #())
(test #f immutable? (vector))
(test #t immutable? #())
(test #f immutable? (string-copy "hi"))
(test #t immutable? "hi")