[libmath-prime-util-perl] 48/54: Change NaN generation method

[Partha P. Mukherjee]

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 <dana at 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