Author: mdiep
Date: Tue Apr 24 10:00:19 2007
New Revision: 18322
Modified:
trunk/t/pmc/object-meths.t
Log:
#41819: [PATCH */2]: [t/pmc] minor object-meths.t clean-ups
Courtesy Sam Vilain <[EMAIL PROTECTED]>.
Modified: trunk/t/pmc/object-meths.t
==============================================================================
--- trunk/t/pmc/object-meths.t (original)
+++ trunk/t/pmc/object-meths.t Tue Apr 24 10:00:19 2007
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 44;
+use Parrot::Test tests => 43;
=head1 NAME
@@ -964,7 +964,7 @@
foofoo
OUTPUT
-pir_output_is( <<'CODE', <<'OUTPUT', "super 1 - two classes" );
+pir_output_is( <<'CODE', <<'OUTPUT', ".Super - test dispatch with two classes"
);
.sub main :main
.local pmc o, cl
cl = newclass 'Parent'
@@ -997,40 +997,7 @@
TODO: {
local $TODO = "3 class interitance, 4-class diamond inheritance";
- pir_output_is( <<'CODE', <<'OUTPUT', "super 2 - test dispatch" );
-.sub main :main
- .local pmc o, cl, cl2
- cl = newclass 'Parent'
- #cl = subclass cl, 'Child'
- cl2 = newclass 'Child'
- addparent cl2, cl
- o = new 'Child'
- o."foo"()
-.end
-
-.namespace ['Parent']
-.sub foo :method
- print "Parent foo\n"
- self."bar"()
-.end
-.sub bar :method
- print "Parent bar\n"
-.end
-
-.namespace ['Child']
-.sub foo :method
- print "Child foo\n"
- .local pmc s
- s = new .Super, self
- s."foo"()
-.end
-CODE
-Child foo
-Parent foo
-Parent bar
-OUTPUT
-
- pir_output_is( <<'CODE', <<'OUTPUT', "super 3 - two classes, addparent" );
+ pir_output_is( <<'CODE', <<'OUTPUT', ".Super - dispatch on
addparent-established heirarchy" );
.sub main :main
.local pmc o, p, c
p = newclass 'Parent'
@@ -1062,7 +1029,7 @@
Parent bar
OUTPUT
- pir_output_is( <<'CODE', <<'OUTPUT', "super 4 - three classes" );
+ pir_output_is( <<'CODE', <<'OUTPUT', ".Super - subclass established, three
levels deep" );
.sub main :main
.local pmc o, p, c, g
p = newclass 'Parent'
@@ -1100,7 +1067,7 @@
Parent foo
OUTPUT
- pir_output_is( <<'CODE', <<'OUTPUT', "super 5 - diamond" );
+ pir_output_is( <<'CODE', <<'OUTPUT', ".Super - simple 4-class diamond C3
dispatch" );
.sub main :main
.local pmc o, p, c1, c2, i
p = newclass 'Parent'
