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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-22 05:21:18 -0800 (Tue, 22 Nov 2005)
New Revision: 2226

Modified:
   branches/r5rs/sigscheme/test/test-string.scm
Log:
* sigscheme/test/test-string.scm
  - Resurrect mistakenly discarded tests in r2222 for null character,
    and follow the fix about misrecognized specification in the
    revision.

    Discarding preexisting tests is bad habit even if it is felt that
    not required. But this case, test patterns for null character are
    MUST NOT be removed since they are obviously possible edge cases.
    Don't discard them, fix instead.


Modified: branches/r5rs/sigscheme/test/test-string.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 12:33:44 UTC (rev 2225)
+++ branches/r5rs/sigscheme/test/test-string.scm	2005-11-22 13:21:18 UTC (rev 2226)
@@ -173,6 +173,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 7)        "\a")  ;; 97
 (assert-equal? "R6RS escape sequence" (list->string '(#\alarm))  "\a")  ;; 97
 (assert-equal? "R6RS escape sequence" '(#\alarm)  (string->list "\a"))  ;; 97