Remove duplicated string conversion

[jscl.git] / tests / strings.lisp

diff --git a/tests/strings.lisp b/tests/strings.lisp
index 4c5fe15..e955d34 100644 (file)
--- 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")))