diff options
Diffstat (limited to 't/001-basic.t')
-rw-r--r-- | t/001-basic.t | 19 |
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'); |