From a0311a6aa9b1696047b130a9e9e08dab787d89b1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Tue, 24 Feb 1998 15:09:24 -0800
Subject: [PATCH] more tests added
Rev: src/modules/Gmp/testsuite.in:1.10
---
src/modules/Gmp/testsuite.in | 27 ++++++++++++++++++---------
1 file changed, 18 insertions(+), 9 deletions(-)
diff --git a/src/modules/Gmp/testsuite.in b/src/modules/Gmp/testsuite.in
index fcbf9cedfd..01dc3c62b0 100644
--- a/src/modules/Gmp/testsuite.in
+++ b/src/modules/Gmp/testsuite.in
@@ -47,23 +47,32 @@ cond( [[ master()->resolv("Gmp")->mpz ]],
test_eq(clone(Gmp.mpz,17)->powm(12,4711),85)
define([[mpz_test_cmp]],[[
- test_cmp(clone(Gmp.mpz,$1), $2)
- test_cmp($1, clone(Gmp.mpz,$2))
- test_cmp(clone(Gmp.mpz, $1), clone(Gmp.mpz, $2))
+ test_cmp3(clone(Gmp.mpz,$1), $2, $3)
+ test_cmp3($1, clone(Gmp.mpz,$2), $3)
+ test_cmp3(clone(Gmp.mpz, $1), clone(Gmp.mpz, $2), $3)
+ test_cmp3(clone(Gmp.mpz,$1), $2, clone(Gmp.mpz, $3))
+ test_cmp3($1, clone(Gmp.mpz,$2), clone(Gmp.mpz, $3))
+ test_cmp3(clone(Gmp.mpz, $1), clone(Gmp.mpz, $2), clone(Gmp.mpz, $3))
]])
define([[mpz_test_type1]],[[
- mpz_test_cmp($1,$2)
- mpz_test_cmp($1.0,$2)
+ mpz_test_cmp($1,$2,$3)
+ mpz_test_cmp($1.0,$2,$3)
]])
define([[mpz_test_type2]],[[
- mpz_test_type1($1,$2)
- mpz_test_type1($1,$2.0)
+ mpz_test_type1($1,$2,$3)
+ mpz_test_type1($1,$2.0,$3)
]])
- mpz_test_type2(1,2)
- mpz_test_type2(-2,1)
+ define([[mpz_test_type3]],[[
+ mpz_test_type1($1,$2,$3)
+ mpz_test_type1($1,$2,$3.0)
+ ]])
+
+ mpz_test_type3(1,2,3)
+ mpz_test_type3(-2,1,4)
+ mpz_test_type3(-2,-1,4)
test_true(catch(Gmp.mpz("abcd", 47)))
test_true(catch(Gmp.mpz(-17)->digits(256)))
--
GitLab