diff options
Diffstat (limited to 'test-suite/tests/numbers.test')
-rw-r--r-- | test-suite/tests/numbers.test | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 32627ed8c..774e228a7 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -4,7 +4,7 @@ ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public ;;;; License as published by the Free Software Foundation; either -;;;; version 2.1 of the License, or (at your option) any later version. +;;;; version 3 of the License, or (at your option) any later version. ;;;; ;;;; This library is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -22,6 +22,7 @@ ;;; ;;; miscellaneous ;;; +(setbinary) (define exception:numerical-overflow (cons 'numerical-overflow "^Numerical overflow")) @@ -1365,7 +1366,14 @@ ("1@0" 1.0) ("1@+0" 1.0) ("1@-0" 1.0) ("2+3i" ,(+ 2 (* 3 +i))) ("4-5i" ,(- 4 (* 5 +i))) ("1+i" 1+1i) ("1-i" 1-1i) ("+1i" 0+1i) ("-1i" 0-1i) - ("+i" +1i) ("-i" -1i))) + ("+i" +1i) ("-i" -1i) + ("1.0+.1i" 1.0+0.1i) + ("1.0-.1i" 1.0-0.1i) + (".1+.0i" 0.1) + ("1.+.0i" 1.0) + (".1+.1i" 0.1+0.1i) + ("1e1+.1i" 10+0.1i) + )) #t) (pass-if-exception "exponent too big" |