This is an automatically generated mail to inform you that tests are now
available in t/spec/S14-roles/mixin.t
commit 2ce38eb31607f3b0e8ca097353deb73df7597e5a
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jul 5 06:59:48 2010 +0000
[t/spec] test for RT #69654 - mixing in method with "does" should make
those methods show up in introspection
git-svn-id: http://svn.pugscode.org/p...@31552
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S14-roles/mixin.t b/t/spec/S14-roles/mixin.t
index a03050e..11276dd 100644
--- a/t/spec/S14-roles/mixin.t
+++ b/t/spec/S14-roles/mixin.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 22;
+plan 23;
# L<S14/Run-time Mixins/>
@@ -97,5 +97,12 @@ is $y.test, 42, 'method from other role was OK
too';
'can mix R4b into an Array, and access the attribute';
}
+# RT #69654
+{
+ role ProvidesFoo { method foo { } }
+ class NoFoo { };
+ is (NoFoo.new does ProvidesFoo).^methods(:local)>>.name, 'foo',
+ 'mixin with "does" lists method during introspection';
+}
# vim: syn=perl6
