Permalink
Browse files

Add test for RT #86880

  • Loading branch information...
1 parent a5b4ce0 commit 6d5ee705b1fa72da092cce0ca634cc2359a0432d @coke coke committed Nov 14, 2013
Showing with 3 additions and 0 deletions.
  1. +3 −0 S32-exceptions/misc.t
View
@@ -104,6 +104,9 @@ throws_like 'my $0', X::Syntax::Variable::Numeric;
throws_like 'my sub f($0) { }', X::Syntax::Variable::Numeric, what => 'parameter';
throws_like 'my $<a>', X::Syntax::Variable::Match;
throws_like 'my class A { my $!foo }', X::Syntax::Variable::Twigil, twigil => '!', scope => 'my';
+#RT #86880
+throws_like 'role Breakable { my $!broken = Bool::False; }; class Frobnitz does Breakable {};',
+ X::Syntax::Variable::Twigil, twigil => '!', scope => 'my';
throws_like 'my $?FILE', X::Syntax::Variable::Twigil, twigil => '?', scope => 'my';
throws_like 'my $::("foo")', X::Syntax::Variable::IndirectDeclaration;
throws_like '@a', X::Undeclared, symbol => '@a';

0 comments on commit 6d5ee70

Please sign in to comment.