Changeset 22889 for t

Timestamp:

11/05/08 22:53:18 (2 months ago)

Author:

moritz

Message:

[t/spec] add (skipped) tests for [perl #60356] (can't inherit from a class
with :: in the name), masak++

Files:

• t/spec/S12-class/inheritance.t (modified) (2 diffs)

t/spec/S12-class/inheritance.t

@@ -3 +3 @@
 use Test;
 
-plan 32;
+plan 35;
 
 class Foo {
@@ -115 +115 @@
     is( B.new.w, 10, 'initializer can be overriden by derived classes' );
 }
+
+# test that you can inherit from a class with :: in the name.
+# A rakudo regression, http://rt.perl.org/rt3/Ticket/Display.html?id=60356
+#?rakudo skip 'inheritance from classes with :: in the name'
+{
+    class A::B {
+        method ab { 'a'; };
+    };
+
+    class A::B::C is A::B {
+        method abc { 'b'; };
+    }
+    my $o = A::B::C.new;
+
+    ok defined($o), 'can instantiate object from class A::B::C';
+    is $o.ab,  'a', 'can access inherited method';
+    is $o.abc, 'b', 'can access directly defined method';
+}