From 61cc07f99e325bd9b991ce5329d0a4ed67613933 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 26 Jul 2021 19:02:23 -0700 Subject: [PATCH] Issue #433 - Added unit tests --- tests/base.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests/base.scm b/tests/base.scm index ceff01c6..8c6e1ad8 100644 --- a/tests/base.scm +++ b/tests/base.scm @@ -25,6 +25,12 @@ (test '() (make-list -2)) ) +(test-group + "rationals" + (test 3.0 (numerator (/ 6 4))) + (test 2.0 (denominator (/ 6 4))) +) + (test-group "I/O" (define p (open-input-string "one\ntwo\n"))