From 18ee5de9d4b5ef5e55e21848a3d0accd33dcad79 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 29 May 2004 22:13:27 +0000 Subject: [PATCH] =?UTF-8?q?*=20lib.scm=20(exception:numerical-overflow):?= =?UTF-8?q?=20New=20define.=20*=20tests/numbers.test=20(modulo-expt):=20Us?= =?UTF-8?q?e=20it=20and=20exception:wrong-type-arg,=20avoiding=20empty=20"?= =?UTF-8?q?"=20regexp=20which=20is=20invalid=20on=20BSD.=20=20Reported=20b?= =?UTF-8?q?y=20Andreas=20V=C3=B6gele.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- test-suite/tests/numbers.test | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 454e07dfb..358e30522 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -804,27 +804,27 @@ (pass-if-exception "Proper exception with 0 modulus" - (cons 'numerical-overflow "") + exception:numerical-overflow (modulo-expt 17 23 0)) (pass-if-exception "Proper exception when result not invertible" - (cons 'numerical-overflow "") + exception:numerical-overflow (modulo-expt 10 -1 48)) (pass-if-exception "Proper exception with wrong type argument" - (cons 'wrong-type-arg "") + exception:wrong-type-arg (modulo-expt "Sam" 23 10)) (pass-if-exception "Proper exception with wrong type argument" - (cons 'wrong-type-arg "") + exception:wrong-type-arg (modulo-expt 17 9.9 10)) (pass-if-exception "Proper exception with wrong type argument" - (cons 'wrong-type-arg "") + exception:wrong-type-arg (modulo-expt 17 23 'Ethel))) ;;;