Issue #433 - Added unit tests

This commit is contained in:
Justin Ethier 2021-07-26 19:02:23 -07:00
parent 2fe006f22a
commit 61cc07f99e

View file

@ -25,6 +25,12 @@
(test '() (make-list -2)) (test '() (make-list -2))
) )
(test-group
"rationals"
(test 3.0 (numerator (/ 6 4)))
(test 2.0 (denominator (/ 6 4)))
)
(test-group (test-group
"I/O" "I/O"
(define p (open-input-string "one\ntwo\n")) (define p (open-input-string "one\ntwo\n"))