Re: [PATCH] Tests for File::Compare

[p5sagit/p5-mst-13.2.git] / t / lib / tie-substrhash.t

diff --git a/t/lib/tie-substrhash.t b/t/lib/tie-substrhash.t
index d21ca0a..8256db7 100644 (file)
--- 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";
+