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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-22 05:33:59 -0800 (Tue, 22 Nov 2005)
New Revision: 2228

Modified:
   branches/r5rs/sigscheme/test/test-string.scm
Log:
* sigscheme/test/test-string.scm
  - Fix broken escape sequence of r2226. Sorry.


Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 13:23:38 UTC (rev 2227)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 13:33:59 UTC (rev 2228)
@@ -175,9 +175,9 @@
 (assert-equal? "R5RS escape sequence" '(#\newline) (string->list "\n"))  ;; 110
 
 ;; R6RS(SRFI-75) compliant
-(assert-equal? "R6RS escape sequence" (integer->string 0)      "\\x00")  ;; 0
-(assert-equal? "R6RS escape sequence" (list->string '(#\nul))  "\\x00")  ;; 0
-(assert-equal? "R6RS escape sequence" '(#\nul)   (string->list "\x00"))  ;; 0
+(assert-equal? "R6RS escape sequence" (integer->string 0)      "\x00")  ;; 0
+(assert-equal? "R6RS escape sequence" (list->string '(#\nul))  "\x00")  ;; 0
+(assert-equal? "R6RS escape sequence" '(#\nul)  (string->list "\x00"))  ;; 0
 (assert-equal? "R6RS escape sequence" (integer->string 7)        "\a")  ;; 97
 (assert-equal? "R6RS escape sequence" (list->string '(#\alarm))  "\a")  ;; 97
 (assert-equal? "R6RS escape sequence" '(#\alarm)  (string->list "\a"))  ;; 97