more tests

1 files changed, 21 insertions, 1 deletions

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)');