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