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

Issue #510 - Added test cases

Browse source
This commit is contained in:
Justin Ethier 2023-09-05 17:41:36 -07:00
parent 0533d3eab0
commit 46e7e193df
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tests/base.scm
View file

@ -50,6 +50,24 @@
(test 2.0 (denominator (/ 6 4))) (test 2.0 (denominator (/ 6 4)))
) )
(test-group
"truncate"
(test -1 (truncate -1))
(test -1.0 (truncate -1.0))
(test -1.0 (truncate -1.1))
(test -1.0 (truncate -1.1))
(test +inf.0 (truncate +inf.0))
)
(test-group
"exact"
(test -1 (exact -1))
(test -1 (exact -1.0))
(test -1 (exact -1.1))
(test -1 (exact -1.1))
;(test +inf.0 (exact +inf.0))
)
(test-group (test-group
"records" "records"
(define-record-type employee (define-record-type employee