X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F021_method_generation_rules.t;h=646e572236a43e189f65a449112b331c833765c2;hb=a28e50e44945358d15eb19e4688573741a319fe0;hp=d634e57788a54a04328246d675d8c88a392e0aed;hpb=1b806c9945d6c57dca3805ae7924571df08aec03;p=gitmo%2FMoose.git diff --git a/t/020_attributes/021_method_generation_rules.t b/t/020_attributes/021_method_generation_rules.t index d634e57..646e572 100644 --- a/t/020_attributes/021_method_generation_rules.t +++ b/t/020_attributes/021_method_generation_rules.t @@ -3,11 +3,10 @@ use strict; use warnings; -use Test::More tests => 17; +use Test::More; use Test::Exception; - =pod is => rw, writer => _foo # turns into (reader => foo, writer => _foo) @@ -61,3 +60,4 @@ is($obj->_foo(), 1, "$class->foo is reader"); dies_ok { make_class('ro', 'accessor', "Test::Class::AccessorRO"); } "Cant define attr with ro + accessor"; +done_testing;