summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-04-20 02:52:17 -0500
committerdoy <doy@tozt.net>2009-04-20 02:52:17 -0500
commitf1753ca22ba232a7509f3b59979b8ad960d8197a (patch)
tree0cdc166b98dab6621c304dc2ad91e4ba92606a7e /t
parent05791e154cfb764ee9cb874f014a0baacf282ff7 (diff)
downloadmoosex-nonmoose-f1753ca22ba232a7509f3b59979b8ad960d8197a.tar.gz
moosex-nonmoose-f1753ca22ba232a7509f3b59979b8ad960d8197a.zip
one more test
Diffstat (limited to 't')
-rw-r--r--t/001-basic.t3
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';