Add test for RT #78670

Raku · Mar 21, 2015 · d4b9bb8 · d4b9bb8
1 parent a5f67aa
commit d4b9bb8
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S06-signature/errors.t b/S06-signature/errors.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 23;
+plan 27;
 
 =begin pod
 
@@ -71,4 +71,14 @@ eval_dies_ok 'my class A { submethod BUILD(:$!notthere = 10) }; A.new',
     ok $error ~~ /^^ \h* '(Int'/, "Error mentions Int";
     ok $error ~~ / :i call /, '... error message mentions "call"';
 }
+
+# RT #78670
+{
+    try { EVAL 'multi rt78670(Int) {}; my $str = "foo"; rt78670 $str' }
+    my $error = ~$!;
+    ok $error ~~ /:i 'rt78670(Str)' /, "fails multi sigs reports call profile";
+    ok $error ~~ /signature/, "mentions signature";
+    ok $error ~~ /^^ \h* '(Int'/, "Error mentions Int";
+    ok $error ~~ / :i call /, '... error message mentions "call"';
+}
 # vim: ft=perl6