This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change#5729 had syntax errors
[perl5.git]
/
t
/
lib
/
complex.t
diff --git
a/t/lib/complex.t
b/t/lib/complex.t
index
b095e29
..
a636ff0
100755
(executable)
--- a/
t/lib/complex.t
+++ b/
t/lib/complex.t
@@
-264,7
+264,7
@@
EOS
$test++;
push @script, <<EOS;
print "# j = \$j\n";
$test++;
push @script, <<EOS;
print "# j = \$j\n";
- print "not " unless "\$j" =~ /^
\Q-0.5+0.86602540\E\d+i
$/;
+ print "not " unless "\$j" =~ /^
-0\\.5\\+0.86602540\\d+i\
$/;
print "ok $test\n";
\$j->display_format('style' => 'polar', 'polar_pretty_print' => 0);
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";
$test++;
push @script, <<EOS;
print "# j = \$j\n";
- print "not " unless "\$j" =~ /^\
Q[1,2.09439510\E\d+]
$/;
+ print "not " unless "\$j" =~ /^\
\[1,2\\.09439510\\d+\\]\
$/;
print "ok $test\n";
\$j->display_format('style' => 'cartesian', 'format' => '(%.5g)');
print "ok $test\n";
\$j->display_format('style' => 'cartesian', 'format' => '(%.5g)');