diff options
Diffstat (limited to 't')
-rw-r--r-- | t/001-basic.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/001-basic.t b/t/001-basic.t index 13d2a6b..1cd45e3 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 7; package Foo; @@ -22,3 +22,8 @@ isa_ok $foo, 'Foo'; is $foo->{_class}, 'Foo', 'Foo gets the correct class'; isa_ok $foo_moose, 'Foo::Moose'; is $foo_moose->{_class}, 'Foo::Moose', 'Foo::Moose gets the correct class'; +my $meta = Foo::Moose->meta; +ok $meta->has_method('new'), 'Foo::Moose has its own constructor'; +isa_ok $meta->constructor_class->meta, 'Moose::Meta::Class'; +ok $meta->constructor_class->meta->does_role('MooseX::NonMoose::Meta::Role::Constructor'), + 'Foo::Moose gets its constructor from MooseX::NonMoose'; |