Add tests for RT #118581 and RT #118067

Raku · Oct 16, 2014 · d55c943 · d55c943
1 parent de19d97
commit d55c943
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 5 deletions.
diff --git a/S03-smartmatch/capture-signature.t b/S03-smartmatch/capture-signature.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 5;
+plan 6;
 
 sub t1(%h) {
     given %h {
@@ -26,8 +26,16 @@ is t2([1]), "godis", "signature smart-match against array works (1)";
 is t2([1,2]), "om nom nom", "signature smart-match against array works (2)";
 
 # RT #77164
-sub f($ = rand) { };
-ok \() ~~ &f.signature, 'can smart-match against a signature with a default value';
+{
+    sub f($ = rand) { };
+    ok \() ~~ &f.signature, 'can smart-match against a signature with a default value';
+}
+
+# RT #118581
+{
+    lives_ok { \(1) ~~ :(int $x as Str) },
+        'can match integer capture against signature with native integer coercing to Str';
+}
 
 done;
 

diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 271;
+plan 272;
 
 #?DOES 1
 throws_like { Buf.new().Str }, X::Buf::AsStr, method => 'Str';;
@@ -550,12 +550,19 @@ throws_like '&[doesntexist]', X::Comp, # XXX probably needs exception type fix
        message => 'Term definition requires an initializer';
 }
 
-#RT #88748
+# RT #88748
 {
     throws_like { EVAL q[given 42 { when SomeUndeclaredType { 1 }; default { 0 } }] },
         X::Comp::Group,
         'adequate error message when undeclared type is used in "when" clause',
         message => { m/'Function SomeUndeclaredType needs parens to avoid gobbling block'/ };
 }
 
+# RT #118067
+{
+    my class A is Any { proto method new($) {*} };
+    throws_like { A.new(now) }, X::Multi::NoMatch,
+        'no NullPMC access error but exception X::Multi::NoMatch';
+}
+
 # vim: ft=perl6