unlock a string test

This commit is contained in:
Yuichi Nishiwaki 2014-06-28 20:21:02 +09:00
parent d294330aa5
commit 0716ff8a03
1 changed files with 1 additions and 1 deletions

View File

@ -1151,7 +1151,7 @@
;; (string-set! s 1 #\x1F700)
;; s))
#;(test #t (string=? "" ""))
(test #t (string=? "" ""))
(test #t (string=? "abc" "abc" "abc"))
(test #f (string=? "" "abc"))
(test #f (string=? "abc" "aBc"))