summaryrefslogtreecommitdiffstats
path: root/t/001-basic.t
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-04-20 02:58:09 -0500
committerdoy <doy@tozt.net>2009-04-20 02:58:09 -0500
commitb68490edda877bcda983c96f728d1e04a583eb4f (patch)
tree3130a282f45bd374b1b7dd0afab5f2cc22006f91 /t/001-basic.t
parentf1753ca22ba232a7509f3b59979b8ad960d8197a (diff)
downloadmoosex-nonmoose-b68490edda877bcda983c96f728d1e04a583eb4f.tar.gz
moosex-nonmoose-b68490edda877bcda983c96f728d1e04a583eb4f.zip
clean up tests a bit
Diffstat (limited to 't/001-basic.t')
-rw-r--r--t/001-basic.t19
1 files changed, 10 insertions, 9 deletions
diff --git a/t/001-basic.t b/t/001-basic.t
index e905531..483ac75 100644
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -18,13 +18,14 @@ extends 'Foo';
package main;
my $foo = Foo->new;
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';
+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';
-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';
+ok($meta->has_method('new'), 'Foo::Moose has its own constructor');
+my $cc_meta = $meta->constructor_class->meta;
+isa_ok($cc_meta, 'Moose::Meta::Class');
+ok($cc_meta->does_role('MooseX::NonMoose::Meta::Role::Constructor'),
+ 'Foo::Moose gets its constructor from MooseX::NonMoose');