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

Raku · Mar 25, 2012 · d720afa · d720afa
1 parent 47b0ce4
commit d720afa
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -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;