X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F001_basic_class_setup.t;h=acfde734ece67861c679d38b36df2816a227cc9e;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=05203946f18c9cb00ee6177bad9559af3ef82700;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/010_basics/001_basic_class_setup.t b/t/010_basics/001_basic_class_setup.t index 0520394..acfde73 100644 --- a/t/010_basics/001_basic_class_setup.t +++ b/t/010_basics/001_basic_class_setup.t @@ -21,18 +21,18 @@ ok(Foo->meta->has_method('meta'), '... we got the &meta method'); ok(Foo->isa('Moose::Object'), '... Foo is automagically a Moose::Object'); dies_ok { - Foo->meta->has_method() + Foo->meta->has_method() } '... has_method requires an arg'; dies_ok { - Foo->meta->has_method('') + Foo->meta->has_method('') } '... has_method requires an arg'; can_ok('Foo', 'does'); foreach my $function (qw( extends - has + has before after around blessed confess type subtype as where