Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

test for extra information in X::Syntax::NegatedPair

  • Loading branch information...
commit 425b7869da14b0ae140c9a0f82bc892627f43b46 1 parent 279df78
@moritz moritz authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  S32-exceptions/misc.t
View
2  S32-exceptions/misc.t
@@ -87,7 +87,7 @@ throws_like 'undef', X::Obsolete,
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 ':!foo(3)', X::Syntax::NegatedPair, key => 'foo';
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;
Please sign in to comment.
Something went wrong with that request. Please try again.