From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 13 Mar 2000 02:41:36 +0000 (+0000)
Subject: Insulate tests of default display_format from different precision
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09319b9629e22ee5f573f5600babb9bf6dcb036f;p=p5sagit%2Fp5-mst-13.2.git

Insulate tests of default display_format from different precision
       on different machines by truncating at 1 digit less than the most
       common choice (.15g)

p4raw-id: //depot/vmsperl@5691
---

diff --git a/t/lib/complex.t b/t/lib/complex.t
index bd30e7e..1b4e189 100755
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -263,8 +263,9 @@ EOS
 
     $test++;
     push @script, <<EOS;
-    print "# j = \$j\n";
-    print "not " unless "\$j" eq "-0.5+0.866025403784439i";
+    my \$dj = "\$j"; \$dj =~ s/(\\d{14})\\d+i/\$1i/;
+    print "# j = \$dj (truncated for display)\n";
+    print "not " unless \$dj eq "-0.5+0.86602540378443i";
     print "ok $test\n";
 
     \$j->display_format('style' => 'polar', 'polar_pretty_print' => 0);
@@ -272,8 +273,9 @@ EOS
 
     $test++;
     push @script, <<EOS;
-    print "# j = \$j\n";
-    print "not " unless "\$j" eq "[1,2.0943951023932]";
+    my \$dj = "\$j"; \$dj =~ s/(\\d{12})\\d+\]/\$1]/;
+    print "# j = \$dj (truncated for display)\n";
+    print "not " unless \$dj eq "[1,2.094395102393]";
     print "ok $test\n";
 
     \$j->display_format('style' => 'cartesian', 'format' => '(%.5g)');