diff options
Diffstat (limited to 't/001-basic.t')
-rw-r--r-- | t/001-basic.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/001-basic.t b/t/001-basic.t index 483ac75..a448abf 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 => 8; +use Test::More tests => 9; package Foo; @@ -22,6 +22,7 @@ isa_ok($foo, 'Foo'); is($foo->{_class}, 'Foo', 'Foo gets the correct class'); isa_ok($foo_moose, 'Foo::Moose'); isa_ok($foo_moose, 'Foo'); +isa_ok($foo_moose, 'Moose::Object'); 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'); |