mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +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:53:58 +00:00
parent 1bbf2cb8cd
commit 11f27efa11
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

@ -875,7 +875,12 @@
((> len 300)) ((> len 300))
(pass-if (list 'length len) (pass-if (list 'length len)
(eqv? want (string->number (make-string len digit) base))))))) (eqv? want (string->number (make-string len digit) base))))))
;; 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?