Add test for RT#76368

Raku · Jan 12, 2014 · ed446b2 · ed446b2
1 parent 4c530a3
commit ed446b2
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/S06-signature/errors.t b/S06-signature/errors.t
@@ -1,8 +1,8 @@
-    use v6;
+use v6;
 
 use Test;
 
-plan 10;
+plan 11;
 
 =begin pod
 
@@ -55,4 +55,11 @@ eval_dies_ok 'my class A { submethod BUILD(:$!notthere = 10) }; A.new',
     ok $error ~~ / 'will never work' .* 'Expected' .* '(@a, $b)' /
 }
 
+# RT #76368
+{
+    try { EVAL 'sub foo(Str) {}; foo 42' };
+    my $error = ~$!;
+    ok $error ~~ / 'will never work' .* 'Expected' .* 'Str' /
+}
+
 # vim: ft=perl6