removing string-set! from tests so immutable string config can pass

This commit is contained in:
Alex Shinn 2011-12-11 14:26:44 +09:00
parent 5b64ba5a9c
commit 7039b32d51

View file

@ -374,8 +374,6 @@
(test #\c (string-ref "abc" 2)) (test #\c (string-ref "abc" 2))
(test "axc" (let ((s (string #\a #\b #\c))) (string-set! s 1 #\x) s))
(test #t (string=? "a" (string #\a))) (test #t (string=? "a" (string #\a)))
(test #f (string=? "a" (string #\b))) (test #f (string=? "a" (string #\b)))