Test that C<format ::Foo> is identical to C<format Foo>

This wasn't being explicitly tested.

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..155\n";
+print "1..156\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}