From b68490edda877bcda983c96f728d1e04a583eb4f Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 20 Apr 2009 02:58:09 -0500 Subject: clean up tests a bit --- t/001-basic.t | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 't/001-basic.t') 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'); -- cgit v1.2.3-54-g00ecf