Merge pull request #213 from dogbert17/test-rt-125135

Test for RT 125135
Raku · Jan 3, 2017 · 3e2015d · 3e2015d
2 parents cd43168 + 13403ee
commit 3e2015d
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 1 deletion.
diff --git a/S12-meta/TestHOW.pm b/S12-meta/TestHOW.pm
@@ -0,0 +1,6 @@
+class TestHOW is Metamodel::ClassHOW {
+  method add_method(Mu $obj, $name, $code)
+  { callsame; }
+}
+my package EXPORTHOW {}
+  EXPORTHOW::<class> = TestHOW;
diff --git a/S12-meta/classhow.t b/S12-meta/classhow.t
@@ -1,6 +1,8 @@
 use Test;
 
-plan 1;
+use lib '.';
+
+plan 4;
 
 # RT #128516
 #?rakudo.jvm skip 'StackOverflowError, RT #128516'
@@ -13,3 +15,20 @@ plan 1;
     lives-ok { $obj.comp; $obj.gist },
         'Storing a meta-object in an attribute then composing/gisting works out';
 }
+
+# RT #125135
+{
+    use t::spec::S12-meta::TestHOW;
+
+    class TestClass {
+        method one {}
+        method two {}
+        method three {}
+    }
+
+    my $tc = TestClass.new;
+    my $err = 'Has the wrong block stolen the dispatcher';
+    ok $tc.can('one'),  $err ~ ' - 1';
+    ok $tc.can('two'),  $err ~ ' - 2';
+    ok $tc.can('three'),$err ~ ' - 3';
+}