summaryrefslogtreecommitdiffstats
path: root/t/001-basic.t
diff options
context:
space:
mode:
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');