regen win32/config*

[p5sagit/p5-mst-13.2.git] / t / lib / complex.t

diff --git a/t/lib/complex.t b/t/lib/complex.t
index 1b4e189..a636ff0 100755 (executable)
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -263,9 +263,8 @@ EOS
 
     $test++;
     push @script, <<EOS;
-    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 "# j = \$j\n";
+    print "not " unless "\$j" =~ /^-0\\.5\\+0.86602540\\d+i\$/;
     print "ok $test\n";
 
     \$j->display_format('style' => 'polar', 'polar_pretty_print' => 0);
@@ -273,9 +272,8 @@ EOS
 
     $test++;
     push @script, <<EOS;
-    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 "# j = \$j\n";
+    print "not " unless "\$j" =~ /^\\[1,2\\.09439510\\d+\\]\$/;
     print "ok $test\n";
 
     \$j->display_format('style' => 'cartesian', 'format' => '(%.5g)');