Skip to content
Browse files

Fix an incorrect xt/ test reported by Dana Jacobsen, there are 576145…

…5 primes under 10^8, duh
  • Loading branch information...
1 parent 49e827e commit a6f83874a3b26f22a0cdf6aabd7370ae5b317e25 @leto committed
Showing with 2 additions and 3 deletions.
  1. +2 −3 xt/verify_prime_count.t
View
5 xt/verify_prime_count.t
@@ -12,9 +12,8 @@ use Math::Primality qw/ prime_count /;
my $i = 1;
while (<DATA>) {
- print "i=$i\n";
chomp;
- ok ( prime_count(10**$i) == $_, "$_ primes <= 10^$i");
+ cmp_ok ( prime_count(10**$i), '==', $_, "$_ primes <= 10^$i");
$i++;
}
@@ -26,7 +25,7 @@ __DATA__
9592
78498
664579
-5761445
+5761455
50847534
455052511
4118054813

0 comments on commit a6f8387

Please sign in to comment.
Something went wrong with that request. Please try again.