diff options
author | Kevin Ryde <user42@zip.com.au> | 2001-11-26 21:41:45 +0100 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2001-11-26 21:41:45 +0100 |
commit | 245dc6e54a6fd5bbc805e58610a59c1f265a9941 (patch) | |
tree | f0ff3a5b6eed384b67b6121ce6c134a82579fe06 /demos/perl | |
parent | df0a95f7191bfd77f59e8aa95c0ff27fbca3b5e2 (diff) | |
download | gmp-245dc6e54a6fd5bbc805e58610a59c1f265a9941.tar.gz |
* demos/perl/GMP.pm, demos/perl/GMP.xs: Use new style gmp_randinit's.
* demos/perl/test.pl: Update for this, and for mpz_perfect_power_p
handling of 0 and 1.
Diffstat (limited to 'demos/perl')
-rw-r--r-- | demos/perl/test.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/demos/perl/test.pl b/demos/perl/test.pl index 045695ef7..9b4cc242d 100644 --- a/demos/perl/test.pl +++ b/demos/perl/test.pl @@ -610,8 +610,8 @@ ok ( odd_p(mpz(3))); # ok ( perfect_power_p(mpz(-27))); # ok (! perfect_power_p(mpz(-9))); # ok (! perfect_power_p(mpz(-1))); -ok (! perfect_power_p(mpz(0))); -ok (! perfect_power_p(mpz(1))); +ok ( perfect_power_p(mpz(0))); +ok ( perfect_power_p(mpz(1))); ok (! perfect_power_p(mpz(2))); ok (! perfect_power_p(mpz(3))); ok ( perfect_power_p(mpz(4))); @@ -829,9 +829,10 @@ ok (reldiff (4,2) == 0.5); # random functions -{ my $r = randstate(); } -{ my $r = randstate('lc',64); } -{ my $r = randstate('lc2exp',1,2,3); } +{ my $r = randstate(); ok (defined $r); } +{ my $r = randstate('lc_2exp', 1, 2, 3); ok (defined $r); } +{ my $r = randstate('lc_2exp_size', 64); ok (defined $r); } +{ my $r = randstate('lc_2exp_size', 999999999); ok (! defined $r); } { my $r = randstate(); $r->seed(123); |