Skip to content
Browse files

tests for typed syntax errors

  • Loading branch information...
1 parent 8992cb9 commit d1f0fd854f958d38a8c7a7e34c3ee511b868536f @moritz moritz committed Jan 28, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 S32-exceptions/misc.t
View
5 S32-exceptions/misc.t
@@ -95,5 +95,10 @@ throws_like 'undef', X::Obsolete,
old => rx/<<undef>>/;
throws_like 'my $a::::b', X::Syntax::Name::Null;
+throws_like 'unless 1 { } else { }', X::Syntax::UnlessElse;
+throws_like 'for my $x (1, 2, 3) { }', X::Syntax::P5;
+throws_like ':!foo(3)', X::Syntax::NegatedPair;
+throws_like 'my $0', X::Syntax::Variable::Numeric;
+throws_like 'my $<a>', X::Syntax::Variable::Match;
done;

0 comments on commit d1f0fd8

Please sign in to comment.
Something went wrong with that request. Please try again.