This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.38
in repository libmath-prime-util-perl.
commit 966eb2c41945095b902cc2bea9880ed0b12dfc6a
Author: Dana Jacobsen <d...@acm.org>
Date: Thu Feb 27 16:47:44 2014 -0800
Change NaN generation method
---
t/04-inputvalidation.t | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/04-inputvalidation.t b/t/04-inputvalidation.t
index 7b25278..96e295e 100644
--- a/t/04-inputvalidation.t
+++ b/t/04-inputvalidation.t
@@ -61,13 +61,13 @@ while (my($v, $expect) = each (%correct)) {
# The actual strings can be implementation specific.
my $infinity = 0+'inf'; # Might be 0 on some platforms.
$infinity = +(20**20**20) if 65535 > $infinity;
-my $nan = $infinity / $infinity;
+my $nan = -sin($infinity);
eval { next_prime($infinity); };
like($@, qr/must be a positive integer/, "next_prime( infinity )");
eval { next_prime($nan); };
-like($@, qr/must be a positive integer/, "next_prime( nan )");
+like($@, qr/must be a positive integer/, "next_prime( nan ) [nan = '$nan']");
SKIP: {
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
