[t] Tests for multi-part namespaces and inheritance.

jnthn · Nov 21, 2010 · 9ae5e09 · 9ae5e09
1 parent 50b66ab
commit 9ae5e09
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/t/nqp/28-subclass.t b/t/nqp/28-subclass.t
@@ -37,3 +37,12 @@ say( $xyzhow.isa($xyz, Mu) ?? 'ok 7' !! 'not ok 7' );
 
 # inherits the Str method from Mu
 say( XYZ.Str eq 'XYZ()' ?? 'ok 8' !! 'not ok 8' );
+
+class Multi::Part {
+    method x() { say('ok 9'); }
+}
+class Another::Multi::Part is Multi::Part {
+    method y() { say('ok 10'); }
+}
+Another::Multi::Part.x();
+Another::Multi::Part.y();