[uim-commit] r2227 - branches/r5rs/sigscheme/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-22 05:23:38 -0800 (Tue, 22 Nov 2005)
New Revision: 2227

Modified:
   branches/r5rs/sigscheme/test/test-string.scm
Log:
* sigscheme/test/test-string.scm
  - Add some tests for empty string


Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 13:21:18 UTC (rev 2226)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 13:23:38 UTC (rev 2227)
@@ -101,6 +101,7 @@
 (assert-true"mixed 3 string-append check" (string=? "¤¢i¤¦" (string-append "¤¢" "i" "¤¦")))
 
 ;; string->list
+(assert-equal? "string->list check" '()                (string->list ""))
 (assert-true"string->list check" (equal? '(#\¤¢ #\i #\¤¦ #\e #\¤ª) (string->list "¤¢i¤¦e¤ª")))
 (assert-equal? "string->list check" '(#\\)             (string->list "\\"))
 (assert-equal? "string->list check" '(#\\ #\\)         (string->list "\\\\"))
@@ -118,6 +119,7 @@
 (assert-equal? "string->list check" '(#\" #\")         (string->list "\"\""))
 
 ;; list->string
+(assert-equal? "list->string check" ""     (list->string '()))
 (assert-equal? "list->string check" "¤¢a¤¤" (list->string '(#\¤¢ #\a #\¤¤)))
 (assert-equal? "list->string check" "\\"     (list->string '(#\\)))
 (assert-equal? "list->string check" "\\\\"   (list->string '(#\\ #\\)))