mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

(string->number): Exercise polar form with invalid angle.

Browse source
This commit is contained in:
Kevin Ryde 2005-02-20 22:55:53 +00:00
parent 18bd7605a7
commit 48e78ba65c
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/numbers.test
View file

@ -1205,7 +1205,12 @@
(pass-if-exception "exponent too big" (pass-if-exception "exponent too big"
exception:out-of-range exception:out-of-range
(string->number "12.13e141414"))) (string->number "12.13e141414"))
;; in guile 1.6.7 and earlier, bad polar forms (where the conversion of
;; the angle gave #f) caused a segv
(pass-if "1@a"
(eq? #f (string->number "1@a"))))
;;; ;;;
;;; number? ;;; number?