From ced12fc92a3f5c4aaaddcd3ce4c397483578315b Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 11 Jun 2013 06:57:53 +0900 Subject: [PATCH] Adding extra inexat numerator/denominator tests. --- tests/r7rs-tests.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index e2e14dfe..cfbe4ca7 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -674,6 +674,8 @@ (test 3 (numerator (/ 6 4))) (test 2 (denominator (/ 6 4))) (test 2.0 (denominator (inexact (/ 6 4)))) +(test 11.0 (numerator 5.5)) +(test 2.0 (denominator 5.5)) (test -5.0 (floor -4.3)) (test -4.0 (ceiling -4.3))