diff options
author | doy <doy@tozt.net> | 2009-04-11 00:07:53 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-11 00:07:53 -0500 |
commit | 7185f50aa254ada0f370599b05650c95f4ddc78b (patch) | |
tree | f187469b8f8f6a090d66b58d0f5fb40be6902bd6 | |
parent | becc48932fe476fc40bf5bf913566e310c5d2fd3 (diff) | |
download | moosex-nonmoose-7185f50aa254ada0f370599b05650c95f4ddc78b.tar.gz moosex-nonmoose-7185f50aa254ada0f370599b05650c95f4ddc78b.zip |
add another test
-rw-r--r-- | t/004-multi-level.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/004-multi-level.t b/t/004-multi-level.t index 1f42fbb..dd103a2 100644 --- a/t/004-multi-level.t +++ b/t/004-multi-level.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 6; +use Test::More tests => 7; package Foo; @@ -36,6 +36,8 @@ package main; my $foo_moose = Foo::Moose->new; is $foo_moose->foo, 'FOO', 'Foo::Moose::foo'; is $foo_moose->bar, 'BAR', 'Foo::Moose::bar'; +isnt(Foo::Moose->meta->get_method('new'), undef, + 'Foo::Moose gets its own constructor'); my $foo_moose_sub = Foo::Moose::Sub->new; is $foo_moose_sub->foo, 'FOO', 'Foo::Moose::foo'; |