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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-06 21:00:31 -0800 (Fri, 06 Jan 2006)
New Revision: 2829

Modified:
   branches/r5rs/sigscheme/test/test-r4rs.scm
Log:
* sigscheme/test/test-r4rs.scm
  - Revert string->number tests of r2826 that misrecognized by me


Modified: branches/r5rs/sigscheme/test/test-r4rs.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-r4rs.scm	2006-01-07 04:46:33 UTC (rev 2828)
+++ branches/r5rs/sigscheme/test/test-r4rs.scm	2006-01-07 05:00:31 UTC (rev 2829)
@@ -583,20 +583,14 @@
 (define (test-string->number str)
   (define ans (string->number str))
   (cond ((not ans) #t) ((number? ans) #t) (else ans)))
-;; MODIFIED: these exps are invalid for both R4RS and R5RS
-;;(for-each (lambda (str) (test #t test-string->number str))
-;;	  '("+#.#" "-#.#" "#.#" "#i" "#e" "#"))
-(for-each (lambda (str) (test #f test-string->number str))
-	  '("+#.#" "-#.#" "#.#" "#i" "#e" "#"))
-;; DISABLED: not supported by SigScheme
-;;(for-each (lambda (str) (test #t test-string->number str))
-;;	  '("1/0" "-1/0" "0/0"
-;;	    "+1/0i" "-1/0i" "0/0i" "0/0-0/0i" "1/0-1/0i" "-1/0+1/0i"
-;;	    "#i0/0"))
-;;(cond ((number? (string->number "1+1i")) ;More kawa bait
-;;       (test #t number? (string->number "#i-i"))
-;;       (test #t number? (string->number "#i+i"))
-;;       (test #t number? (string->number "#i2+i"))))
+(for-each (lambda (str) (test #t test-string->number str))
+         '("+#.#" "-#.#" "#.#" "1/0" "-1/0" "0/0"
+           "+1/0i" "-1/0i" "0/0i" "0/0-0/0i" "1/0-1/0i" "-1/0+1/0i"
+           "#i" "#e" "#" "#i0/0"))
+(cond ((number? (string->number "1+1i")) ;More kawa bait
+       (test #t number? (string->number "#i-i"))
+       (test #t number? (string->number "#i+i"))
+       (test #t number? (string->number "#i2+i"))))
 
 ;; DISABLED: not supported by SigScheme
 ;;;;;;From: fred at sce.carleton.ca (Fred J Kaudel)