[uim-commit] r2226 - branches/r5rs/sigscheme/test
yamaken at freedesktop.org
yamaken at freedesktop.org
Tue Nov 22 05:21:22 PST 2005
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
More information about the uim-commit
mailing list