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"))