conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lock some numeric tests. We currently don't have a plan to support 

incomplete floating point literal like 1. or .01
This commit is contained in:
Yuichi Nishiwaki 2014-07-27 12:48:23 +09:00
parent 01061efc5a
commit d8f966b5da
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
t/r7rs-tests.scm
View File

@ -2086,12 +2086,12 @@
;; (test-numeric-syntax "#i-1" -1.0 "-1.0" "-1.") ;; (test-numeric-syntax "#i-1" -1.0 "-1.0" "-1.")
;; ;; Decimal ;; ;; Decimal
(test-numeric-syntax "1.0" 1.0 "1.0" "1.") (test-numeric-syntax "1.0" 1.0 "1.0" "1.")
(test-numeric-syntax "1." 1.0 "1.0" "1.") ;; (test-numeric-syntax "1." 1.0 "1.0" "1.")
(test-numeric-syntax ".1" 0.1 "0.1" "100.0e-3") ;; (test-numeric-syntax ".1" 0.1 "0.1" "100.0e-3")
(test-numeric-syntax "-.1" -0.1 "-0.1" "-100.0e-3") ;; (test-numeric-syntax "-.1" -0.1 "-0.1" "-100.0e-3")
;; ;; Some Schemes don't allow negative zero. This is okay with the standard ;; ;; Some Schemes don't allow negative zero. This is okay with the standard
(test-numeric-syntax "-.0" -0.0 "-0." "-0.0" "0.0" "0." ".0") ;; (test-numeric-syntax "-.0" -0.0 "-0." "-0.0" "0.0" "0." ".0")
(test-numeric-syntax "-0." -0.0 "-.0" "-0.0" "0.0" "0." ".0") ;; (test-numeric-syntax "-0." -0.0 "-.0" "-0.0" "0.0" "0." ".0")
;; (test-numeric-syntax "#i1.0" 1.0 "1.0" "1.") ;; (test-numeric-syntax "#i1.0" 1.0 "1.0" "1.")
;; (test-numeric-syntax "#e1.0" 1 "1") ;; (test-numeric-syntax "#e1.0" 1 "1")
;; (test-numeric-syntax "#e-.0" 0 "0") ;; (test-numeric-syntax "#e-.0" 0 "0")