Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Test undeclared call made in a BEGIN.
Partially covers RT #81502 (as in, it covers the actual case, but not
the general issue the ticket is about).
  • Loading branch information
jnthn committed Apr 8, 2015
1 parent f97f8f3 commit fc28e69
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion S32-exceptions/misc.t
Expand Up @@ -3,7 +3,7 @@ use Test;
use lib "t/spec/packages";
use Test::Util;

plan 292;
plan 293;

throws_like '42 +', X::AdHoc, "missing rhs of infix", message => rx/term/;

Expand Down Expand Up @@ -623,4 +623,7 @@ throws_like 'my $a = (1, 2, 3); my @a = |$a;', X::Syntax::ArgFlattener;
# RT #93988
throws_like '5.', X::Comp::Group, sorrows => sub (@s) { @s[0] ~~ X::Syntax::Number::IllegalDecimal };

# RT #81502
throws_like 'BEGIN { ohnoes() }; sub ohnoes() { }', X::Undeclared::Symbols;

# vim: ft=perl6

0 comments on commit fc28e69

Please sign in to comment.