Test using the metamodel at runtime more. Expand test 65 and test 72 which tests using the metamodel for inspecting and applying roles at runtime.

Author: pmurias

t/nqp/65-how.t

@@ -2,7 +2,7 @@
 
 # check subs
 
-plan(7);
+plan(10);
 
 class Foo {
     has $!foo_attr;
@@ -30,3 +30,12 @@ ok($baz.HOW.attributes($baz) == 1,"the right numer of attributes after adding");
 ok($baz.HOW.attributes($baz)[0].name == '$!baz_attr',"we can add an attribute");
 
 
+class Descendant is Bar {
+}
+
+my $d := Descendant.new(); 
+# Descendant being in parents seems suspicious
+ok(nqp::elems($d.HOW.parents($d)) >= 3); # Descendant, Foo, Bar, NQPMu
+ok(nqp::elems($d.HOW.parents($d,:local(1))) == 1,'right number of local parents'); 
+my $local_parents := $d.HOW.parents($d,:local(1));
+ok($local_parents[0].HOW.name($local_parents[0]) eq 'Bar','we can get the name of a parent');

t/nqp/72-rolehow.t

@@ -0,0 +1,45 @@
+plan(12);
+role Foo {
+  method additional() {
+    "hey new method!"
+  }
+}
+role BarOverride {
+  method bar() {
+    200;
+  }
+}
+class Bar {
+  method bar() {
+    100;
+  }
+}
+
+my $methods := Foo.HOW.methods(Foo);
+ok(nqp::elems($methods) == 1,'Foo has only one method');
+my $method := $methods[0];
+my $name := $method.name;#nqp::can($method, 'name') ?? $method.name !! nqp::getcodename($method);
+
+my $a := Bar.new();
+ok($a.bar == 100);
+$a.HOW.mixin($a,BarOverride);
+ok($a.HOW.name($a) eq 'Bar+{BarOverride}','the role name is part of the generated class name');
+
+my $parents := $a.HOW.parents($a,:local(1));
+ok(nqp::elems($parents) == 1,"the generated class has only one parent" );
+ok($parents[0].HOW.name($parents[0] eq 'Bar'),"...and it's the correct one");
+
+my $roles := $a.HOW.roles($a,:local(1));
+ok(nqp::elems($roles) == 1,"the generated class does only one role" );
+ok($roles[0].HOW.name($roles[0]) eq 'BarOverride',"...and it's the correct one");
+
+ok($a.bar == 200);
+
+my $b := Bar.new();
+$b.HOW.mixin($b,Foo);
+ok($b.bar == 100, 'we can use non overriden methods');
+ok($b.additional eq 'hey new method!','new methods are inserted');
+
+$b.HOW.mixin($b,BarOverride);
+ok($b.bar == 200, 'we can apply two roles to one object');
+ok($b.HOW.name($b) eq 'Bar+{Foo}+{BarOverride}','both role names are part of the generated class name');