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

(number->string): Disable 11.333 and 1.324e44

Browse source 
tests, as these can't be expected to come out precisely in the current
implementation, and in fact don't under gcc 4.  Reported by Hector
Herrera.
This commit is contained in:
Kevin Ryde 2006-05-27 22:41:09 +00:00
parent 6cfcc3b916
commit c3e4f7e83f
1 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1214,14 +1214,22 @@
(string=? (number->string 0.25 2) "0.010")))
(pass-if (string=? (number->string 255.0625 16) "FF.1"))
(pass-if (string=? (number->string (/ 1 3) 3) "1/10"))
(pass-if (or (string=? (number->string 11.33333333333333333 12)
"B.4")
(string=? (number->string 11.33333333333333333 12)
"B.400000000000009")))
(pass-if (or (string=? (number->string 1.324e44 16)
"5.EFE0A14FAFEe24")
(string=? (number->string 1.324e44 16)
"5.EFE0A14FAFDF8e24")))))
;; Numeric conversion from decimal is not precise, in its current
;; implementation, so 11.333... and 1.324... can't be expected to
;; reliably come out to precise values. These tests did actually work
;; for a while, but something in gcc changed, affecting the conversion
;; code.
;;
;; (pass-if (or (string=? (number->string 11.33333333333333333 12)
;; "B.4")
;; (string=? (number->string 11.33333333333333333 12)
;; "B.400000000000009")))
;; (pass-if (or (string=? (number->string 1.324e44 16)
;; "5.EFE0A14FAFEe24")
;; (string=? (number->string 1.324e44 16)
;; "5.EFE0A14FAFDF8e24")))
))
;;;
;;; string->number