suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update test case for number->string changes

Browse Source 
Should have been part of 1976cd57b6.

original commit: a48f3525d764938cfc1a343d810b5f0f0b14dbbb
This commit is contained in:
Matthew Flatt 2019-05-22 13:41:50 -06:00
parent 2cf27c4727
commit 6cd6071c3a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mats/ieee.ms
View File

@ -88,7 +88,7 @@
; and should not be rounded up to a normalized number
(equal?
(number->string (string->number "2.2250738585072011e-308"))
"2.225073858507201e-308|52")
"2.225073858507201e-308")
(equal?
(decode-float (string->number "2.2250738585072011e-308"))
'#(#b1111111111111111111111111111111111111111111111111111 -1074 1))
@ -98,7 +98,7 @@
'#(#b1111111111111111111111111111111111111111111111111111 -1074 1))
(equal?
(number->string (string->number "#b1.111111111111111111111111111111111111111111111111111011e-1111111111"))
"2.225073858507201e-308|52")
"2.225073858507201e-308")
; slightly higher number should be rounded up
(equal?
(number->string (string->number "2.2250738585072012e-308"))