Remove 1/3 == 1.0/3.0, not true.
authorKevin Ryde <user42@zip.com.au>
Wed, 18 Feb 2004 00:28:41 +0000 (00:28 +0000)
committerKevin Ryde <user42@zip.com.au>
Wed, 18 Feb 2004 00:28:41 +0000 (00:28 +0000)
test-suite/tests/fractions.test

index 802369f..d025fed 100644 (file)
@@ -41,7 +41,6 @@
   (testeqv 3/4 6/8)
   (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))))