add tests for adding the constructor properly when inheriting from non-moose classes

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