diff options
author | Craig A. Berry <craigberry@mac.com> | 2014-06-19 18:29:35 -0500 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2014-06-19 18:29:35 -0500 |
commit | 003a6439f27d71332efd22b513b3658b1bcd811c (patch) | |
tree | df038be47422fc25f26e40a96d5fb67577999775 | |
parent | d59210899f43afc603024f83f694c1e7c456dedc (diff) | |
download | perl-003a6439f27d71332efd22b513b3658b1bcd811c.tar.gz |
Avoid blank lines in backslash warnings test.
This is a follow-up to 12f55bbce575aecc, which fell victim to a
bug workaround. Because the broken pipes on VMS sometimes put
multiple blank lines in test output, we collapse multiple newlines
into one. Which breaks tests that genuinely have multiple blank
lines in the output.
So don't leave the output blank, which coincidentally makes it a
lot easier to see which print statement produces which line of
output.
-rw-r--r-- | t/lib/warnings/toke | 34 |
1 files changed, 18 insertions, 16 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index fa9cb7331c..39d3695d59 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1456,15 +1456,15 @@ EXPECT # toke.c # [perl #113094], [perl #119101], since reverted so no warnings generated use warnings; -print "aa" =~ m{^a\{1,2\}$}, "\n"; -print "aa" =~ m{^a\x\{61\}$}, "\n"; -print "a\\x{6F}" =~ m{^a\\x\{6F\}$}, "\n"; -print "a\\o" =~ m{^a\\\x\{6F\}$}, "\n"; -print "a\\\\x{6F}" =~ m{^a\\\\x\{6F\}$}, "\n"; -print "a\\\\o" =~ m{^a\\\\\x\{6F\}$}, "\n"; -print "aa" =~ m{^a{1,2}$}, "\n"; -print "aq" =~ m[^a\[a-z\]$], "\n"; -print "aq" =~ m(^a\(q\)$), "\n"; +print "aa" =~ m{^a\{1,2\}$}, "A\n"; +print "aa" =~ m{^a\x\{61\}$}, "B\n"; +print "a\\x{6F}" =~ m{^a\\x\{6F\}$}, "C\n"; +print "a\\o" =~ m{^a\\\x\{6F\}$}, "D\n"; +print "a\\\\x{6F}" =~ m{^a\\\\x\{6F\}$}, "E\n"; +print "a\\\\o" =~ m{^a\\\\\x\{6F\}$}, "F\n"; +print "aa" =~ m{^a{1,2}$}, "G\n"; +print "aq" =~ m[^a\[a-z\]$], "H\n"; +print "aq" =~ m(^a\(q\)$), "I\n"; EXPECT Illegal hexadecimal digit '\' ignored at - line 5. Illegal hexadecimal digit '\' ignored at - line 5. @@ -1472,13 +1472,15 @@ Illegal hexadecimal digit '\' ignored at - line 7. Illegal hexadecimal digit '\' ignored at - line 7. Illegal hexadecimal digit '\' ignored at - line 9. Illegal hexadecimal digit '\' ignored at - line 9. - - -1 - -1 - -1 +A +B +1C +D +1E +F +1G +H +I ######## # toke.c #[perl #119123] disallow literal control character variables |