diff options
author | doy <doy@tozt.net> | 2009-04-20 21:00:51 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 21:00:51 -0500 |
commit | d5f72820c7556a1eca26f023c8ae19d0e99b3cbe (patch) | |
tree | 7a283a9b7eea0a74b0c1167abb431ddda2e8ea32 /t | |
parent | 9b9d289a7a8bb64a6ef0a9c732d51b71abb9f9ce (diff) | |
download | moosex-nonmoose-d5f72820c7556a1eca26f023c8ae19d0e99b3cbe.tar.gz moosex-nonmoose-d5f72820c7556a1eca26f023c8ae19d0e99b3cbe.zip |
test that extends always gets you Moose::Object as a base class
Diffstat (limited to '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'); |