diff options
author | doy <doy@tozt.net> | 2009-04-20 02:52:17 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 02:52:17 -0500 |
commit | f1753ca22ba232a7509f3b59979b8ad960d8197a (patch) | |
tree | 0cdc166b98dab6621c304dc2ad91e4ba92606a7e /t | |
parent | 05791e154cfb764ee9cb874f014a0baacf282ff7 (diff) | |
download | moosex-nonmoose-f1753ca22ba232a7509f3b59979b8ad960d8197a.tar.gz moosex-nonmoose-f1753ca22ba232a7509f3b59979b8ad960d8197a.zip |
one more test
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 1cd45e3..e905531 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 => 7; +use Test::More tests => 8; package Foo; @@ -21,6 +21,7 @@ my $foo_moose = Foo::Moose->new; isa_ok $foo, 'Foo'; is $foo->{_class}, 'Foo', 'Foo gets the correct class'; isa_ok $foo_moose, 'Foo::Moose'; +isa_ok $foo_moose, 'Foo'; 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'; |