From fe85ccc94a57c761cafeb0b860b0f2860b63c906 Mon Sep 17 00:00:00 2001 From: John Croisant Date: Thu, 15 Mar 2018 21:48:19 -0500 Subject: [PATCH] Add regression tests for remainder with infinity. --- tests/division-tests.scm | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/tests/division-tests.scm b/tests/division-tests.scm index ae231f66..9399e61f 100644 --- a/tests/division-tests.scm +++ b/tests/division-tests.scm @@ -464,4 +464,26 @@ (test-end) +(test-begin "remainder infinity") + +(test-error (remainder +inf.0 +nan.0)) +(test-error (remainder -inf.0 +nan.0)) +(test-error (remainder +inf.0 2.0)) +(test-error (remainder -inf.0 2.0)) +(test-error (remainder +inf.0 2/1)) +(test-error (remainder -inf.0 2/1)) +(test-error (remainder +inf.0 2)) +(test-error (remainder -inf.0 2)) + +(test-error (remainder +nan.0 +inf.0)) +(test-error (remainder +nan.0 -inf.0)) +(test-error (remainder 2.0 +inf.0)) +(test-error (remainder 2.0 -inf.0)) +(test-error (remainder 2/1 +inf.0)) +(test-error (remainder 2/1 -inf.0)) +(test-error (remainder 2 +inf.0)) +(test-error (remainder 2 -inf.0)) + +(test-end "remainder infinity") + (test-end)