From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 15 Feb 1999 10:26:59 +0000 (+0000)
Subject: allow /0|NaN/ on some bigfloatpm.t tests for portability; other
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=181ea953f5037d8eebef8af5f5ba67f9ff02a565;p=p5sagit%2Fp5-mst-13.2.git

allow /0|NaN/ on some bigfloatpm.t tests for portability; other
misc fixes

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

diff --git a/Makefile.SH b/Makefile.SH
index 42377d3b..617f803 100644
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -548,7 +548,7 @@ _cleaner:
 	rm -f $(FIRSTMAKEFILE) $(FIRSTMAKEFILE).old
 	rm -f $(private)
 	rm -rf lib/auto
-	rm -f lib/.exists
+	rm -f lib/.exists lib/*/.exists
 	rm -f h2ph.man pstruct
 	rm -rf .config
 	rm -f testcompile compilelog
diff --git a/t/io/argv.t b/t/io/argv.t
index cb2ffb3..c6565dc 100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -46,7 +46,7 @@ else
 open(try, '>Io.argv.tmp') or die "Can't open temp file: $!";
 close try;
 @ARGV = 'Io.argv.tmp';
-$^I = '';
+$^I = '.bak';
 $/ = undef;
 while (<>) {
     s/^/ok 6\n/;
@@ -56,4 +56,4 @@ open(try, '<Io.argv.tmp') or die "Can't open temp file: $!";
 print while <try>;
 close try;
 
-END { unlink 'Io.argv.tmp' }
+END { unlink 'Io.argv.tmp', 'Io.argv.tmp.bak' }
diff --git a/t/lib/bigfloatpm.t b/t/lib/bigfloatpm.t
index 566038e..9f62482 100755
--- a/t/lib/bigfloatpm.t
+++ b/t/lib/bigfloatpm.t
@@ -49,7 +49,17 @@ while (<DATA>) {
                }
                #print ">>>",$try,"<<<\n";
                $ans1 = eval $try;
-               if ("$ans1" eq $ans) { #bug!
+	       if ($ans =~ m|^/(.*)$|) {
+	           my $pat = $1;
+		   if ($ans1 =~ /$pat/) {
+                       print "ok $test\n";
+		   }
+		   else {
+                       print "not ok $test\n";
+                       print "# '$try' expected: /$pat/ got: '$ans1'\n";
+		   }
+	       }
+               elsif ("$ans1" eq $ans) { #bug!
                        print "ok $test\n";
                } else {
                        print "not ok $test\n";
@@ -429,10 +439,10 @@ $Math::BigFloat::div_scale = 20
 $Math::BigFloat::div_scale = 40
 &fsqrt
 +0:0
--1:NaN
--2:NaN
--16:NaN
--123.456:NaN
+-1:/^(0|NaN)$
+-2:/^(0|NaN)$
+-16:/^(0|NaN)$
+-123.456:/^(0|NaN)$
 +1:1.
 +1.44:1.2
 +2:1.41421356237309504880168872420969807857
diff --git a/t/lib/h2ph.t b/t/lib/h2ph.t
index 467e696..acb150d 100755
--- a/t/lib/h2ph.t
+++ b/t/lib/h2ph.t
@@ -31,4 +31,5 @@ unless(-e '../utils/h2ph') {
     
     # cleanup - should this be in an END block?
     unlink("lib/h2ph.ph");
+    unlink("_h2ph_pre.ph");
 }