A few more MMD tests

lib/Kernel.cs

@@ -1889,6 +1889,7 @@ public class MMDCandidateLongname {
             Frame dth = th;
             while ((dth.info.param0 as P6any[]) == null) dth = dth.outer;
 
+            Console.WriteLine("---");
             foreach (P6any p in dth.info.param0 as P6any[])
                 Console.WriteLine((new MMDCandidateLongname(p)).LongName());
 
@@ -1897,7 +1898,9 @@ public class MMDCandidateLongname {
             //if (cs == null)
             //    dth.info.param1 = cs = MMDAnalyze(dth.info.param0 as P6any[]);
 
-            throw new NieczaException("NYFI");
+            if (tailcall) th = th.caller;
+            th.resultSlot = NewROScalar(AnyP);
+            return th;
         }
 
         private static Frame StandardTypeProtoC(Frame th) {

test2.pl

@@ -69,12 +69,28 @@
     ok "y" ~~ / :lang(G19) <foo> /, "can use multi regex without proto";
 
     my class C20 {
-        multi method bar(Bool $) { "bool" }
-        multi method bar(Str $) { "str" }
+        multi method b1(Bool $) { "bool" }
+        multi method b1(Str $) { "str" }
+
+        multi method b2(Bool $) { "bool" }
+        multi method b2(Any $) { "any" }
+
+        multi method b3(Any $) { "any" }
+        multi method b3(Bool $) { "bool" }
+
+        multi method b4(Bool $ , Any $) { "doom" }
+        multi method b4(Any $ , Bool $) { "doom" }
     }
 
-    is C20.bar(True), "bool", "multimethods work (1)";
-    is C20.bar("foo"), "str", "multimethods work (2)";
+    is C20.b1(True), "bool", "multimethods work (1)";
+    is C20.b1("foo"), "str", "multimethods work (2)";
+
+    is C20.b2(True), "bool", "multimethod sorting works (1)";
+    is C20.b2("foo"), "any", "multimethod sorting works (1)";
+    is C20.b3(True), "bool", "multimethod sorting works (1)";
+    is C20.b3("foo"), "any", "multimethod sorting works (1)";
+
+    dies_ok { C20.b4("foo", "bar") }, "multimethod tie checking works";
 }
 
 #is $?FILE, 'test.pl', '$?FILE works';