From 4d8933119f5852c20dc648352f3922ecbde27897 Mon Sep 17 00:00:00 2001
From: Bertrand Augereau <bertrand.augereau@gmail.com>
Date: Sun, 10 Jun 2018 02:29:05 +0200
Subject: [PATCH] Test that (expt bignum -k) is correct

---
 lib/chibi/numeric-test.sld | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/chibi/numeric-test.sld b/lib/chibi/numeric-test.sld
index 66769a4b..e2c3855d 100644
--- a/lib/chibi/numeric-test.sld
+++ b/lib/chibi/numeric-test.sld
@@ -16,6 +16,10 @@
     (define (run-tests)
       (test-begin "numbers")
 
+      (test 3 (expt 3 1))
+      ;(test 1/3 (expt 3 -1))
+      (test 1/300000000000000000000 (expt 300000000000000000000 -1))
+
       (test '(536870912 536870913 536870911 -536870912 -536870911 -536870913)
           (integer-neighborhoods (expt 2 29)))