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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-09-03 13:56:50 -0700 (Sat, 03 Sep 2005)
New Revision: 1392

Modified:
   branches/r5rs/sigscheme/test/test-char.scm
   branches/r5rs/sigscheme/test/test-string.scm
Log:
* test/test-string.scm
  - add more testcase for "list->string"
* test/test-char.scm
  - add more testcase for #\'\n' and #\'\t'


Modified: branches/r5rs/sigscheme/test/test-char.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-char.scm	2005-09-03 20:49:10 UTC (rev 1391)
+++ branches/r5rs/sigscheme/test/test-char.scm	2005-09-03 20:56:50 UTC (rev 1392)
@@ -1,10 +1,13 @@
-(load "test/unittest.scm")
+(load "./test/unittest.scm")
 
 ;; check char?
 (assert "alphabet char" (char? #\a))
 (assert "space 1"       (char? #\space))
 (assert "space 2"       (char? #\ ))
-(assert "newline"       (char? #\newline))
+(assert "tab"           (char? #\	))
+(assert "newline 2"     (char? #\newline))
+(assert "newline 2"     (char? #\
+))
 (assert "hiragana char" (char? #\¤¢))
 (assert "( char"        (char? #\())
 (assert ") char"        (char? #\)))

Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-09-03 20:49:10 UTC (rev 1391)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-09-03 20:56:50 UTC (rev 1392)
@@ -63,7 +63,10 @@
 
 ;; list->string
 (assert-equal? "list->string check" "¤¢a¤¤" (list->string '(#\¤¢ #\a #\¤¤)))
-(assert-equal? "string check #1" "\\" (list->string '(#\\)))
+(assert-equal? "list->string check" "\\" (list->string '(#\\)))
+(assert-equal? "list->string check" "\t" (list->string '(#\	)))
+(assert-equal? "list->string check" "\n" (list->string '(#\
+))
 
 ;; string-fill!
 (assert "alphabet string-fill! check" (string=? "jjjjj" (begin