Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 00:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #519 - Stage new test cases

Browse source
This commit is contained in:
Justin Ethier 2024-01-07 07:23:59 -08:00
parent 43923a6e44
commit ffcbca6c3e
1 changed files with 34 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
tests/base.scm
View file

@ -59,6 +59,40 @@
1.2e+40)) 1.2e+40))
) )
;TODO:
;(floor/ 5 2) =⇒ 2 1
;(floor/ -5 2) =⇒ -3 1
;(floor/ 5 -2) =⇒ -3 -1
;(floor/ -5 -2) =⇒ 2 -1
;(truncate/ 5 2) =⇒ 2 1
;(truncate/ -5 2) =⇒ -2 -1
;(truncate/ 5 -2) =⇒ -2 1
;(truncate/ -5 -2) =⇒ 2 -1
;(truncate/ -5.0 -2) =⇒ 2.0 -1.0
;
;(gcd 32 -36) =⇒ 4
;(gcd) =⇒ 0
;(lcm 32 -36) =⇒ 288
;(lcm 32.0 -36) =⇒ 288.0 ; inexact
;(lcm) =⇒ 1
;
;(floor -4.3) =⇒ -5.0
;(ceiling -4.3) =⇒ -4.0
;(truncate -4.3) =⇒ -4.0
;(round -4.3) =⇒ -4.0
;(floor 3.5) =⇒ 3.0
;(ceiling 3.5) =⇒ 4.0
;(truncate 3.5) =⇒ 3.0
;(round 3.5) =⇒ 4.0 ; inexact
;(round 7/2) =⇒ 4 ; exact
;(round 7) =⇒ 7
;
;(numerator (/ 6 4)) =⇒ 3
;(denominator (/ 6 4)) =⇒ 2
;(denominator
;(inexact (/ 6 4))) =⇒ 2.0
(test-group (test-group
"truncate" "truncate"
(test -1 (truncate -1)) (test -1 (truncate -1))