mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 08:10:31 +02:00
Code Activity

(number->string): Added tests for non-radix-10 floating point

Browse source 
conversions.
This commit is contained in:
Marius Vollmer 2004-05-10 20:41:54 +00:00
parent ed9f718f63
commit d39a7b5881
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1036,7 +1036,16 @@
(pass-if (= (+ fixnum-max 1) (num->str->num (+ fixnum-max 1) 10)))
(pass-if (= (- fixnum-min 1) (num->str->num (- fixnum-min 1) 10)))
(pass-if (= (inf) (num->str->num (inf) 10)))
(pass-if (= 1.3 (num->str->num 1.3 10)))))
(pass-if (= 1.3 (num->str->num 1.3 10)))
(pass-if (string=? (number->string 35.25 36) "Z.9"))
(expect-fail (string=? (number->string 0.25 2) "0.01"))
(pass-if (string=? (number->string 255.0625 16) "FF.1"))
(pass-if (string=? (number->string (/ 1 3) 3) "1/10"))
(expect-fail (string=? (number->string 11.33333333333333333 12) "B.4"))
(expect-fail (string=? (number->string 11.33333333333333333+23i 12)
"B.4+1B.0i"))
(expect-fail (string=? (number->string 1.324e44 16) "5.EFE0A14FAFEe24"))))
;;;
;;; string->number