Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding some additional precision tests

Browse source
This commit is contained in:
Alex Shinn 2017-10-14 21:49:47 +09:00
parent 768a37c7a0
commit c5effc536f
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/show-test.sld
View file

@ -62,6 +62,12 @@
(test "0.000004" (show #f (with ((precision 6)) 0.000004))) (test "0.000004" (show #f (with ((precision 6)) 0.000004)))
(test "0.0000040" (show #f (with ((precision 7)) 0.000004))) (test "0.0000040" (show #f (with ((precision 7)) 0.000004)))
(test "0.00000400" (show #f (with ((precision 8)) 0.000004))) (test "0.00000400" (show #f (with ((precision 8)) 0.000004)))
(test "1.00" (show #f (with ((precision 2)) .997554209949891)))
(test "1.00" (show #f (with ((precision 2)) .99755420)))
(test "1.00" (show #f (with ((precision 2)) .99755)))
(test "1.00" (show #f (with ((precision 2)) .997)))
(test "0.99" (show #f (with ((precision 2)) .99)))
(test "-15." (show #f (with ((precision 0)) -14.99995999999362)))
(test " 3.14159" (show #f (with ((decimal-align 5)) (numeric 3.14159)))) (test " 3.14159" (show #f (with ((decimal-align 5)) (numeric 3.14159))))
(test " 31.4159" (show #f (with ((decimal-align 5)) (numeric 31.4159)))) (test " 31.4159" (show #f (with ((decimal-align 5)) (numeric 31.4159))))