Exercise most-negative-fixnum over -ve of most-negative-fixnum.

diff --git a/test-suite/tests/fractions.test b/test-suite/tests/fractions.test
index 90320f2..47168bf 100644 (file)
--- a/test-suite/tests/fractions.test
+++ b/test-suite/tests/fractions.test
@@ -25,6 +25,10 @@
   (testeqv 3/4 3000000000000/4000000000000)
   (testeqv 3 3/1)
   (test= 1/3 (/ 1.0 3.0))
+
+  (test= -1 (/ most-negative-fixnum (- most-negative-fixnum)))
+  (testeq #t (integer? (/ most-negative-fixnum (- most-negative-fixnum))))
+
   (testeqv (+ 1/4 1/2) 3/4)
   (testeqv (* 1/4 2/3) 1/6)
   (testeqv (/ 1/4 2/3) 3/8)