diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-15 15:32:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-15 15:32:22 +0000 |
| commit | 1725693fac4322554ed5d17f384f2502ef67bf23 (patch) | |
| tree | 0127e8a978e18c11dd1f14627bce770b9b3ba369 /t | |
| parent | d86ca223b7bea516175c99c61fc271cc462a2de7 (diff) | |
| download | perl-1725693fac4322554ed5d17f384f2502ef67bf23.tar.gz | |
Still buggy findgteprime, fix from Eric Joanis <joanis@cs.toronto.edu>.
p4raw-id: //depot/perl@8128
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/tie-substrhash.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/lib/tie-substrhash.t b/t/lib/tie-substrhash.t index d21ca0ab1b..8256db7b58 100644 --- a/t/lib/tie-substrhash.t +++ b/t/lib/tie-substrhash.t @@ -7,7 +7,7 @@ BEGIN { push @INC, '../lib'; } -print "1..16\n"; +print "1..20\n"; use strict; @@ -97,3 +97,15 @@ print "ok 15\n"; print "not " unless Tie::SubstrHash::findgteprime(13.000001) == 17; print "ok 16\n"; +print "not " unless Tie::SubstrHash::findgteprime(114) == 127; +print "ok 17\n"; + +print "not " unless Tie::SubstrHash::findgteprime(1000) == 1009; +print "ok 18\n"; + +print "not " unless Tie::SubstrHash::findgteprime(1024) == 1031; +print "ok 19\n"; + +print "not " unless Tie::SubstrHash::findgteprime(10000) == 10007; +print "ok 20\n"; + |