Test ‘Missing ']' in prototype’ warning
authorFather Chrysostomos <sprout@cpan.org>
Sun, 27 Aug 2017 18:42:50 +0000 (11:42 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 28 Aug 2017 19:27:04 +0000 (12:27 -0700)
t/lib/warnings/toke

index 0833a0f..559db83 100644 (file)
@@ -179,6 +179,11 @@ EXPECT
 Prototype after '@' for main::foo : @\x{30cb} at (eval 1) line 1.
 Illegal character in prototype for main::foo : @\x{30cb} at (eval 1) line 1.
 ########
+use warnings;
+sub f ([)
+EXPECT
+Missing ']' in prototype for main::f : [ at - line 2.
+########
 # toke.c
 $a =~ m/$foo/eq;
 $a =~ s/$foo/fool/seq;