Permalink
Browse files

test that Str numification error message survives through infix:<+>

  • Loading branch information...
moritz committed Mar 25, 2012
1 parent 47b0ce4 commit d720afa0b6dc46a7505695db3349c9fa56ae5977
Showing with 3 additions and 0 deletions.
  1. +3 −0 S32-exceptions/misc.t
View
@@ -178,4 +178,7 @@ throws_like 'class A {...}; grammar B { ... }', X::Package::Stubbed, packages =>
throws_like 'my sub a { PRE 0 }; a()', X::Phaser::PrePost, phaser => 'PRE', condition => /0/;
throws_like 'my sub a { POST 0 }; a()', X::Phaser::PrePost, phaser => 'POST', condition => /0/;
+throws_like 'use fatal; my $x = "5 foo" + 8;', X::Str::Numeric, source => '5 foo', pos => 1,
+ reason => /trailing/;
+
done;

0 comments on commit d720afa

Please sign in to comment.