From d8f966b5da7fee0bd7d571720095005a43583acf Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sun, 27 Jul 2014 12:48:23 +0900 Subject: [PATCH] lock some numeric tests. We currently don't have a plan to support incomplete floating point literal like 1. or .01 --- t/r7rs-tests.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index 7e669de7..519b5d11 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -2086,12 +2086,12 @@ ;; (test-numeric-syntax "#i-1" -1.0 "-1.0" "-1.") ;; ;; Decimal (test-numeric-syntax "1.0" 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." 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") ;; ;; 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 "#e1.0" 1 "1") ;; (test-numeric-syntax "#e-.0" 0 "0")