diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-22 11:58:56 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-22 11:58:56 -0500 |
commit | cbe286972ebd14fb7dade8b38cd21b7ae4ea62e2 (patch) | |
tree | 279b2c03295c9b30da2cee7eef38f0602b0dca13 /t | |
parent | 6c05f99311697c600172be159d0aa7d72144640a (diff) | |
download | moosex-nonmoose-cbe286972ebd14fb7dade8b38cd21b7ae4ea62e2.tar.gz moosex-nonmoose-cbe286972ebd14fb7dade8b38cd21b7ae4ea62e2.zip |
mark nonmoose-moose-nonmoose stuff as TODO
Diffstat (limited to 't')
-rw-r--r-- | t/032-moosex-insideout.t | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/t/032-moosex-insideout.t b/t/032-moosex-insideout.t index 200b343..10c43e6 100644 --- a/t/032-moosex-insideout.t +++ b/t/032-moosex-insideout.t @@ -70,8 +70,11 @@ $foo->foo('OOF'); $foo->bar('RAB'); is($foo->foo, 'OOF', 'base class accessor works (setting)'); is($foo->bar, 'RAB', 'subclass accessor works (setting)'); -my $sub_foo = Foo::Moose::Sub->new(FOO => bar => 'AHOY'); -is($sub_foo->bar, 'AHOY', 'subclass constructor works'); +TODO: { + local $TODO = "nonmoose-moose-nonmoose extending doesn't currently work"; + my $sub_foo = eval { Foo::Moose::Sub->new(FOO => bar => 'AHOY') }; + is(eval { $sub_foo->bar }, 'AHOY', 'subclass constructor works'); +} Foo::Moose->meta->make_immutable; $foo = Foo::Moose->new('FOO', bar => 'BAR'); is($foo->foo, 'FOO', 'base class accessor works (immutable)'); @@ -80,5 +83,8 @@ $foo->foo('OOF'); $foo->bar('RAB'); is($foo->foo, 'OOF', 'base class accessor works (setting) (immutable)'); is($foo->bar, 'RAB', 'subclass accessor works (setting) (immutable)'); -$sub_foo = Foo::Moose::Sub->new(FOO => bar => 'AHOY'); -is($sub_foo->bar, 'AHOY', 'subclass constructor works (immutable)'); +TODO: { + local $TODO = "nonmoose-moose-nonmoose extending doesn't currently work"; + my $sub_foo = eval { Foo::Moose::Sub->new(FOO => bar => 'AHOY') }; + is(eval { $sub_foo->bar }, 'AHOY', 'subclass constructor works (immutable)'); +} |