diff options
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); |