From 93eab51bc542fed536c8b0a51a4ee3dbf82b53f4 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 15 Jun 2010 02:10:41 -0500 Subject: fallback constructor still needs to set __INSTANCE__ properly --- t/24-nonmoose-moose-nonmoose.t | 6 ------ 1 file changed, 6 deletions(-) (limited to 't/24-nonmoose-moose-nonmoose.t') diff --git a/t/24-nonmoose-moose-nonmoose.t b/t/24-nonmoose-moose-nonmoose.t index faa6f6f..ef0ce88 100644 --- a/t/24-nonmoose-moose-nonmoose.t +++ b/t/24-nonmoose-moose-nonmoose.t @@ -68,10 +68,7 @@ Foo::Moose->meta->make_immutable; $foo = Foo::Moose::Sub->new(name => 'foomoosesub', foo2 => 'FOO2'); isa_ok($foo, 'Foo'); isa_ok($foo, 'Foo::Moose'); -TODO: { -local $TODO = 'nonmoose-moose-nonmoose inheritance doesn\'t quite work'; is($foo->foo, 'foomoosesub', 'got name from nonmoose constructor (immutable)'); -} is($foo->foo2, 'FOO2', 'got attribute value from moose constructor (immutable)'); $foo = Foo::Moose->new(name => 'foomoosesub', foo2 => 'FOO2'); isa_ok($foo, 'Foo'); @@ -93,10 +90,7 @@ Bar::Moose->meta->make_immutable; $bar = Bar::Moose::Sub->new(name => 'barmoosesub', bar2 => 'BAR2'); isa_ok($bar, 'Bar'); isa_ok($bar, 'Bar::Moose'); -TODO: { -local $TODO = 'nonmoose-moose-nonmoose inheritance doesn\'t quite work'; is($bar->bar, 'barmoosesub', 'got name from nonmoose constructor (immutable)'); -} is($bar->bar2, 'BAR2', 'got attribute value from moose constructor (immutable)'); $bar = Bar::Moose->new(name => 'barmoosesub', bar2 => 'BAR2'); isa_ok($bar, 'Bar'); -- cgit v1.2.3-54-g00ecf