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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a20e6aa
)
Test that C<format ::Foo> is identical to C<format Foo>
author
Nicholas Clark
<nick@ccl4.org>
Wed, 27 Feb 2013 09:50:46 +0000
(10:50 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Tue, 11 Jun 2013 13:03:46 +0000
(15:03 +0200)
This wasn't being explicitly tested.
t/comp/parser.t
patch
|
blob
|
blame
|
history
diff --git
a/t/comp/parser.t
b/t/comp/parser.t
index
6002b3a
..
fa11de9
100644
(file)
--- a/
t/comp/parser.t
+++ b/
t/comp/parser.t
@@
-3,7
+3,7
@@
# Checks if the parser behaves correctly in edge cases
# (including weird syntax errors)
-print "1..15
5
\n";
+print "1..15
6
\n";
sub failed {
my ($got, $expected, $name) = @_;
@@
-462,6
+462,16
@@
$test
write();
}
+$test++;
+format ::two =
+ok @<< - format ::foo still works
+$test
+.
+{
+ local $~ = "two";
+ write();
+}
+
# Add new tests HERE (above this line)
# bug #74022: Loop on characters in \p{OtherIDContinue}