diff options
author | doy <doy@tozt.net> | 2009-04-20 02:58:09 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 02:58:09 -0500 |
commit | b68490edda877bcda983c96f728d1e04a583eb4f (patch) | |
tree | 3130a282f45bd374b1b7dd0afab5f2cc22006f91 /t/001-basic.t | |
parent | f1753ca22ba232a7509f3b59979b8ad960d8197a (diff) | |
download | moosex-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.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'); |