Author: pmichaud
Date: Thu May 4 23:43:01 2006
New Revision: 12509
Modified:
trunk/t/pmc/objects.t
Log:
[parrot]: Added test for ticket #39081 (multiple calls to baseclass __init)
Modified: trunk/t/pmc/objects.t
==============================================================================
--- trunk/t/pmc/objects.t (original)
+++ trunk/t/pmc/objects.t Thu May 4 23:43:01 2006
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 75;
+use Parrot::Test tests => 76;
=head1 NAME
@@ -2153,7 +2153,7 @@
ok
OUTPUT
-pir_output_is(<<'CODE', <<'OUTPUT', "vtable override once removed (#39056)")
+pir_output_is(<<'CODE', <<'OUTPUT', "vtable override once removed (#39056)");
.sub main :main
.local pmc base
$P0 = getclass 'Integer'
@@ -2178,3 +2178,22 @@
ok bar
OUTPUT
+
+pir_output_is(<<'CODE', <<'OUTPUT', "super __init called twice (#39081)");
+.sub main :main
+ $P0 = newclass 'Foo'
+ $P1 = subclass $P0, 'Bar'
+
+ $P2 = new 'Bar'
+.end
+
+.namespace [ 'Foo' ]
+
+.sub '__init' :method
+ say "foo constructor"
+ .return ()
+.end
+CODE
+foo constructor
+OUTPUT
+
