diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-08 00:35:02 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-12 22:48:45 -0500 |
commit | 5156784e43bc7ce277427c76081cab94fb0ac224 (patch) | |
tree | 9795e75056ed980f6bf43521d33cc4d275eebb80 /t | |
parent | ccb6255a4b4416d5257c7d2275fe0c945f58ecef (diff) | |
download | moosex-nonmoose-5156784e43bc7ce277427c76081cab94fb0ac224.tar.gz moosex-nonmoose-5156784e43bc7ce277427c76081cab94fb0ac224.zip |
clean up failing test a bit
Diffstat (limited to 't')
-rw-r--r-- | t/023-FOREIGNBUILDARGS.t | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/t/023-FOREIGNBUILDARGS.t b/t/023-FOREIGNBUILDARGS.t index 7967fdb..665f4e1 100644 --- a/t/023-FOREIGNBUILDARGS.t +++ b/t/023-FOREIGNBUILDARGS.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 9; +use Test::More tests => 12; package Foo; @@ -46,9 +46,9 @@ sub BUILDARGS { return { bar => shift }; } -# XXX XXX XXX package Baz::Moose; use Moose; +use MooseX::NonMoose; extends 'Bar::Moose'; has baz => ( @@ -63,17 +63,18 @@ is($foo->foo_base, 'bar_base', 'subclass constructor gets the right args'); my $bar = Bar::Moose->new('baz'); is($bar->bar, 'baz', 'subclass constructor gets the right args'); is($bar->foo_base, 'baz_base', 'subclass constructor gets the right args'); +my $baz = Baz::Moose->new('bazbaz'); +is($baz->bar, 'bazbaz', 'extensions of extensions of the nonmoose class respect BUILDARGS'); +is($baz->foo_base, 'bazbaz_base', 'extensions of extensions of the nonmoose class respect FOREIGNBUILDARGS'); Foo::Moose->meta->make_immutable; Bar::Moose->meta->make_immutable; +Baz::Moose->meta->make_immutable; $foo = Foo::Moose->new(foo => 'bar'); -$bar = Bar::Moose->new('baz'); is($foo->foo, 'bar', 'subclass constructor gets the right args (immutable)'); is($foo->foo_base, 'bar_base', 'subclass constructor gets the right args (immutable)'); +$bar = Bar::Moose->new('baz'); is($bar->bar, 'baz', 'subclass constructor gets the right args (immutable)'); is($bar->foo_base, 'baz_base', 'subclass constructor gets the right args (immutable)'); - -TODO: { - todo_skip "can't extend classes that use FOREIGNBUILDARGS yet", 1; - my $baz = Baz::Moose->new('bazbaz'); - is($baz->bar, 'bazbaz_base', 'extensions of extensions of the nonmoose class respect FOREIGNBUILDARGS'); -} +$baz = Baz::Moose->new('bazbaz'); +is($baz->bar, 'bazbaz', 'extensions of extensions of the nonmoose class respect BUILDARGS (immutable)'); +is($baz->foo_base, 'bazbaz_base', 'extensions of extensions of the nonmoose class respect FOREIGNBUILDARGS (immutable)'); |