diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-04-17 19:31:20 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-04-17 19:40:17 -0500 |
commit | 40e4ae0db1869139cf22b5f7f92fe8dcff36b967 (patch) | |
tree | 9b3cb8b5c2890a24f54b4712719688bba6ef3225 /t | |
parent | 354a705b92727013a0fc0be23290f50000ea2809 (diff) | |
download | moosex-nonmoose-40e4ae0db1869139cf22b5f7f92fe8dcff36b967.tar.gz moosex-nonmoose-40e4ae0db1869139cf22b5f7f92fe8dcff36b967.zip |
new moose fixes these TODO tests
Diffstat (limited to 't')
-rw-r--r-- | t/032-moosex-insideout.t | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/t/032-moosex-insideout.t b/t/032-moosex-insideout.t index 10c43e6..4d1b44f 100644 --- a/t/032-moosex-insideout.t +++ b/t/032-moosex-insideout.t @@ -70,11 +70,8 @@ $foo->foo('OOF'); $foo->bar('RAB'); is($foo->foo, 'OOF', 'base class accessor works (setting)'); is($foo->bar, 'RAB', 'subclass accessor works (setting)'); -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'); -} +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)'); @@ -83,8 +80,6 @@ $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)'); -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)'); -} +my $sub_foo_immutable = eval { Foo::Moose::Sub->new(FOO => bar => 'AHOY') }; +is(eval { $sub_foo_immutable->bar }, 'AHOY', + 'subclass constructor works (immutable)'); |