Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[t] We now pass 28-subclass.t.
  • Loading branch information
jnthn committed Nov 7, 2010
1 parent ea111e5 commit 8471528
Showing 1 changed file with 33 additions and 0 deletions.
33 changes: 33 additions & 0 deletions t/nqp/28-subclass.t
@@ -0,0 +1,33 @@
#! nqp

# class inheritance

plan(6);

class ABC {
method foo() {
say('ok 1');
}

method bar() {
say('ok 3');
}
}

class XYZ is ABC {
method foo() {
say('ok 2');
}
}


my $abc := ABC.new();
my $xyz := XYZ.new();

$abc.foo();
$xyz.foo();
$xyz.bar();
my $xyzhow := $xyz.HOW;
if $xyzhow.isa($xyz, ABC) { say('ok 4') }
if $xyzhow.isa($xyz, XYZ) { say('ok 5') }
say( $abc.HOW.isa($abc, XYZ) ?? 'not ok 6' !! 'ok 6' );

0 comments on commit 8471528

Please sign in to comment.