From 067dd1eb1ed885710abfbcaf33b4ad24b8881e27 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 26 Jun 2009 11:38:17 -0500 Subject: more tests --- t/024-nonmoose-moose-nonmoose.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/024-nonmoose-moose-nonmoose.t b/t/024-nonmoose-moose-nonmoose.t index f2a5791..faa6f6f 100644 --- a/t/024-nonmoose-moose-nonmoose.t +++ b/t/024-nonmoose-moose-nonmoose.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 16; +use Test::More tests => 32; package Foo; @@ -59,6 +59,11 @@ isa_ok($foo, 'Foo'); isa_ok($foo, 'Foo::Moose'); is($foo->foo, 'foomoosesub', 'got name from nonmoose constructor'); is($foo->foo2, 'FOO2', 'got attribute value from moose constructor'); +$foo = Foo::Moose->new(name => 'foomoosesub', foo2 => 'FOO2'); +isa_ok($foo, 'Foo'); +isa_ok($foo, 'Foo::Moose'); +is($foo->foo, 'foomoosesub', 'got name from nonmoose constructor'); +is($foo->foo2, 'FOO2', 'got attribute value from moose constructor'); Foo::Moose->meta->make_immutable; $foo = Foo::Moose::Sub->new(name => 'foomoosesub', foo2 => 'FOO2'); isa_ok($foo, 'Foo'); @@ -68,12 +73,22 @@ 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'); +isa_ok($foo, 'Foo::Moose'); +is($foo->foo, 'foomoosesub', 'got name from nonmoose constructor (immutable)'); +is($foo->foo2, 'FOO2', 'got attribute value from moose constructor (immutable)'); my $bar = Bar::Moose::Sub->new(name => 'barmoosesub', bar2 => 'BAR2'); isa_ok($bar, 'Bar'); isa_ok($bar, 'Bar::Moose'); is($bar->bar, 'barmoosesub', 'got name from nonmoose constructor'); is($bar->bar2, 'BAR2', 'got attribute value from moose constructor'); +$bar = Bar::Moose->new(name => 'barmoosesub', bar2 => 'BAR2'); +isa_ok($bar, 'Bar'); +isa_ok($bar, 'Bar::Moose'); +is($bar->bar, 'barmoosesub', 'got name from nonmoose constructor'); +is($bar->bar2, 'BAR2', 'got attribute value from moose constructor'); Bar::Moose->meta->make_immutable; $bar = Bar::Moose::Sub->new(name => 'barmoosesub', bar2 => 'BAR2'); isa_ok($bar, 'Bar'); @@ -83,3 +98,8 @@ 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'); +isa_ok($bar, 'Bar::Moose'); +is($bar->bar, 'barmoosesub', 'got name from nonmoose constructor (immutable)'); +is($bar->bar2, 'BAR2', 'got attribute value from moose constructor (immutable)'); -- cgit v1.2.3-54-g00ecf