From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 19 Feb 1999 23:52:12 +0000 (+0000)
Subject: tweak RE for NaNQ? recognition
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89e56082c327f6fc30d80b6cd283a1544b71774a;p=p5sagit%2Fp5-mst-13.2.git

tweak RE for NaNQ? recognition

p4raw-id: //depot/perl@2988
---

diff --git a/t/lib/bigfloatpm.t b/t/lib/bigfloatpm.t
index ad0fc54..a0f0f40 100755
--- a/t/lib/bigfloatpm.t
+++ b/t/lib/bigfloatpm.t
@@ -18,8 +18,14 @@ while (<DATA>) {
 		eval "$_;";
        } else {
                ++$test;
-               @args = split(/:/,$_,99);
-               $ans = pop(@args);
+	       if (m|^(.*?):(/.+)$|) {
+	           $ans = $2;
+                   @args = split(/:/,$1,99);
+	       }
+	       else {
+                   @args = split(/:/,$_,99);
+                   $ans = pop(@args);
+	       }
                $try = "\$x = new Math::BigFloat \"$args[0]\";";
                if ($f eq "fnorm"){
                    $try .= "\$x+0;";
@@ -439,10 +445,10 @@ $Math::BigFloat::div_scale = 20
 $Math::BigFloat::div_scale = 40
 &fsqrt
 +0:0
--1:/^(0|NaNQ?)$
--2:/^(0|NaNQ?)$
--16:/^(0|NaNQ?)$
--123.456:/^(0|NaNQ?)$
+-1:/^(?i:0|NaNQ?)$
+-2:/^(?i:0|NaNQ?)$
+-16:/^(?i:0|NaNQ?)$
+-123.456:/^(?i:0|NaNQ?)$
 +1:1.
 +1.44:1.2
 +2:1.41421356237309504880168872420969807857