This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/attrs.t: tests for RT 3605
authorDan Collins <dcollinsn@gmail.com>
Mon, 4 Jul 2016 00:18:12 +0000 (20:18 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:43 +0000 (09:09 +0200)
Maybe this should be in a different file?

t/op/attrs.t

index c54bd32..6f7d014 100644 (file)
@@ -480,4 +480,13 @@ fresh_perl_like(
     'RT #129086 attr(00000'
 );
 
+TODO: {
+    local $TODO = 'RT #3605: Attribute syntax causes parsing errors near my $var :';
+    my $out = runperl(prog => <<'EOP', stderr => 1);
+    $ref = \($1 ? my $var : my $othervar);
+EOP
+    unlike($out, qr/Invalid separator character/, 'RT #3605: Errors near attribute colon need a better error message');
+    is($out, '', 'RT #3605: $a ? my $var : my $othervar is perfectly valid syntax');
+}
+
 done_testing();