From 46e7e193df3b6e902cdea4252a5decaf1938d99f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 5 Sep 2023 17:41:36 -0700 Subject: [PATCH] Issue #510 - Added test cases --- tests/base.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/tests/base.scm b/tests/base.scm index f5bd655c..033bb705 100644 --- a/tests/base.scm +++ b/tests/base.scm @@ -50,6 +50,24 @@ (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 "records" (define-record-type employee