diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-14 15:13:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-14 15:13:13 +0000 |
| commit | 36d4c99b292eeccedae13ea063319aca314246bb (patch) | |
| tree | b0e66ea03bf1ae17e2185b46555d798a652c7005 | |
| parent | bf9b2f8f129695d329aed9658a2b6dae62c5f454 (diff) | |
| download | perl-36d4c99b292eeccedae13ea063319aca314246bb.tar.gz | |
Make the tests 1018 and 1019 more robust.
p4raw-id: //depot/cfgperl@5729
| -rwxr-xr-x | t/lib/complex.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/complex.t b/t/lib/complex.t index bd30e7e44f..b095e290a7 100755 --- a/t/lib/complex.t +++ b/t/lib/complex.t @@ -264,7 +264,7 @@ EOS $test++; push @script, <<EOS; print "# j = \$j\n"; - print "not " unless "\$j" eq "-0.5+0.866025403784439i"; + print "not " unless "\$j" =~ /^\Q-0.5+0.86602540\E\d+i$/; print "ok $test\n"; \$j->display_format('style' => 'polar', 'polar_pretty_print' => 0); @@ -273,7 +273,7 @@ EOS $test++; push @script, <<EOS; print "# j = \$j\n"; - print "not " unless "\$j" eq "[1,2.0943951023932]"; + print "not " unless "\$j" =~ /^\Q[1,2.09439510\E\d+]$/; print "ok $test\n"; \$j->display_format('style' => 'cartesian', 'format' => '(%.5g)'); |