add regression test against benz/#55
This commit is contained in:
parent
0edbf1f0d2
commit
221f3bdebd
|
@ -1 +1 @@
|
||||||
Subproject commit 15889a5feb515bd67ee7dc2c6419d16703151a54
|
Subproject commit 569b1ace02e6a066b21f94dff23c4e01b8748bf0
|
|
@ -919,6 +919,16 @@
|
||||||
(test 1 (exact 1.0))
|
(test 1 (exact 1.0))
|
||||||
(test #t (exact? (exact 1.0)))
|
(test #t (exact? (exact 1.0)))
|
||||||
|
|
||||||
|
(test "10" (number->string 10))
|
||||||
|
(test "10" (number->string 10 10))
|
||||||
|
(test "10" (number->string 2 2))
|
||||||
|
(test "10" (number->string 8 8))
|
||||||
|
(test "10" (number->string 16 16))
|
||||||
|
|
||||||
|
(test "2.3" (number->string 2.3))
|
||||||
|
(test "2.3" (number->string 2.30))
|
||||||
|
(test "2.301" (number->string 2.301))
|
||||||
|
|
||||||
(test 100 (string->number "100"))
|
(test 100 (string->number "100"))
|
||||||
(test 256 (string->number "100" 16))
|
(test 256 (string->number "100" 16))
|
||||||
(test 100.0 (string->number "1e2"))
|
(test 100.0 (string->number "1e2"))
|
||||||
|
|
Loading…
Reference in New Issue