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

[kzk at freedesktop.org]

Author: kzk
Date: 2006-02-24 10:42:37 -0800 (Fri, 24 Feb 2006)
New Revision: 3144

Modified:
   branches/r5rs/sigscheme/test/test-r4rs.scm
Log:
* sigscheme/test/test-r4rs.scm
  - disable 2 tests because of exceeding fixnum limit supported
    by SigScheme 


Modified: branches/r5rs/sigscheme/test/test-r4rs.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-r4rs.scm	2006-02-24 18:36:14 UTC (rev 3143)
+++ branches/r5rs/sigscheme/test/test-r4rs.scm	2006-02-24 18:42:37 UTC (rev 3144)
@@ -824,11 +824,17 @@
 (test #f string->number "3.3I")
 (test #f string->number "-")
 (test #f string->number "+")
-(test #t 'string->number (or (not (string->number "80000000" 16))
-			     (positive? (string->number "80000000" 16))))
-(test #t 'string->number (or (not (string->number "-80000000" 16))
-			     (negative? (string->number "-80000000" 16))))
 
+; 2005-02-25 Kazuki Ohta
+;
+; These 2 tests are disabled because of exceeding fixnum limit
+; supported by SigScheme
+;
+;(test #t 'string->number (or (not (string->number "80000000" 16))
+;			     (positive? (string->number "80000000" 16))))
+;(test #t 'string->number (or (not (string->number "-80000000" 16))
+;			     (negative? (string->number "-80000000" 16))))
+
 (SECTION 6 6)
 ;(test #t eqv? '#\  #\Space)
 ;(test #t eqv? #\space '#\Space)