X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstrings.lisp;h=e955d3479f6bdf21162a683e568a7544b90ee43c;hb=0beeb9eb073f547213d21bd5ecf4a6bc7a596210;hp=4c5fe154cb4c917baf564579bd33ecf69b82a48e;hpb=26af6f56fc615a008c3f433265ccecbfce815a61;p=jscl.git

diff --git a/tests/strings.lisp b/tests/strings.lisp
index 4c5fe15..e955d34 100644
--- a/tests/strings.lisp
+++ b/tests/strings.lisp
@@ -16,3 +16,8 @@
 (test (string= "foo" "foo"))
 (test (not (string= "Foo" "foo")))
 (test (not (string= "foo" "foox")))
+
+(let ((str "hello"))
+  (setf (char str 0) #\X)
+  (setf (char str 4) #\X)
+  (test (string= str "XellX")))