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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-31 19:46:13 -0800 (Tue, 31 Jan 2006)
New Revision: 3057

Modified:
   branches/r5rs/sigscheme/test/test-num.scm
Log:
* sigscheme/test/test-num.scm
  - Modify hexadecimal letters to lower case to follow the r3044


Modified: branches/r5rs/sigscheme/test/test-num.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-num.scm	2006-02-01 03:43:38 UTC (rev 3056)
+++ branches/r5rs/sigscheme/test/test-num.scm	2006-02-01 03:46:13 UTC (rev 3057)
@@ -217,11 +217,11 @@
 (assert-equal? (tn) "100"  (number->string 100  10))
 (tn "number->string hexadecimal")
 (assert-equal? (tn) "-64"  (number->string -100 16))
-(assert-equal? (tn) "-A"   (number->string -10  16))
+(assert-equal? (tn) "-a"   (number->string -10  16))
 (assert-equal? (tn) "-1"   (number->string -1   16))
 (assert-equal? (tn) "0"    (number->string 0    16))
 (assert-equal? (tn) "1"    (number->string 1    16))
-(assert-equal? (tn) "A"    (number->string 10   16))
+(assert-equal? (tn) "a"    (number->string 10   16))
 (assert-equal? (tn) "64"   (number->string 100  16))
 (tn "number->string octal")
 (assert-equal? (tn) "-144" (number->string -100 8))