From 705e70d12a7c458e7e45a1681cc1f6dcdf8a9424 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 20 Nov 2023 18:37:34 -0800
Subject: [PATCH] Issue #513 - Add test case

---
 tests/base.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/base.scm b/tests/base.scm
index 63e6dd91..4fd5496d 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -71,6 +71,11 @@
   ;(test +inf.0 (exact +inf.0))
 )
 
+(test-group
+  "rationals"
+  (test 3.0 (expt 81 1/4))
+)
+
 (test-group
   "records"
   (define-record-type employee