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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-11 22:38:08 -0700 (Sun, 11 Sep 2005)
New Revision: 1478

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


Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-09-11 23:42:35 UTC (rev 1477)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-09-12 05:38:08 UTC (rev 1478)
@@ -62,19 +62,38 @@
 
 ;; string->list
 (assert "string->list check" (equal? '(#\¤¢ #\i #\¤¦ #\e #\¤ª) (string->list "¤¢i¤¦e¤ª")))
-(assert-equal? "string->list check" '(#\\)         (string->list "\\"))
-(assert-equal? "string->list check" '(#\\ #\\)     (string->list "\\\\"))
-(assert-equal? "string->list check" '(#\\ #\\ #\\) (string->list "\\\\\\"))
+(assert-equal? "string->list check" '(#\\)             (string->list "\\"))
+(assert-equal? "string->list check" '(#\\ #\\)         (string->list "\\\\"))
+(assert-equal? "string->list check" '(#\\ #\\ #\\)     (string->list "\\\\\\"))
+;;(assert-equal? "string->list check" '(#\tab)           (string->list "\t"))
+(assert-equal? "string->list check" '(#\	)      (string->list "\t"))
+;;(assert-equal? "string->list check" '(#\return)        (string->list "\r"))
+(assert-equal? "string->list check" '(#\
)            (string->list "\r"))
+(assert-equal? "string->list check" '(#\
 #\
)       (string->list "\r\r"))
+(assert-equal? "string->list check" '(#\newline)           (string->list "\n"))
+(assert-equal? "string->list check" '(#\newline #\newline) (string->list "\n\n"))
+(assert-equal? "string->list check" '(#\space)         (string->list " "))
+(assert-equal? "string->list check" '(#\space #\space) (string->list "  "))
+(assert-equal? "string->list check" '(#\")             (string->list "\""))
+(assert-equal? "string->list check" '(#\" #\")         (string->list "\"\""))
 
-
 ;; 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 '(#\\ #\\)))
 (assert-equal? "list->string check" "\\\\\\" (list->string '(#\\ #\\ #\\)))
 (assert-equal? "list->string check" "\t" (list->string '(#\	)))
+;;(assert-equal? "list->string check" "\t" (list->string '(#\tab)))
+(assert-equal? "list->string check" "\r" (list->string '(#\
)))
+;;(assert-equal? "list->string check" "\r" (list->string '(#\return)))
 (assert-equal? "list->string check" "\n" (list->string '(#\
 )))
+(assert-equal? "list->string check" "\n" (list->string '(#\newline)))
+(assert-equal? "list->string check" " " (list->string '(#\ )))
+(assert-equal? "list->string check" " " (list->string '(#\space)))
+(assert-equal? "list->string check" " " (list->string '(#\ )))
+(assert-equal? "list->string check" "\"" (list->string '(#\")))
+(assert-equal? "list->string check" "\"a\"" (list->string '(#\" #\a #\")))
 
 ;; string-fill!
 (assert "alphabet string-fill! check" (string=? "jjjjj" (begin