X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F006-cooperative.t;h=4a5266287fc802f6c4dc675065a5ab199bc176d5;hb=f943458f1cf1fba934f789e3eebf000e67da892b;hp=ed5d2c09e23801b954209a244ef495f650a2a55e;hpb=4c25692312665e52f72b16a0a3086046590cf46a;p=gitmo%2FMooseX-Singleton.git diff --git a/t/006-cooperative.t b/t/006-cooperative.t index ed5d2c0..4a52662 100644 --- a/t/006-cooperative.t +++ b/t/006-cooperative.t @@ -4,24 +4,24 @@ use warnings; use Test::More; BEGIN { - eval "require MooseX::StrictConstructor; use Test::Exception; 1;"; + eval "require MooseX::StrictConstructor; use Test::Exception;"; plan skip_all => 'This test requires MooseX::StrictConstructor and Test::Exception' if $@; } -plan 'no_plan'; - { package MySingleton; use Moose; use MooseX::Singleton; use MooseX::StrictConstructor; - has 'attrib' => is => 'rw'; + has 'attrib' => ( is => 'rw' ); } throws_ok { MySingleton->new( bad_name => 42 ); } qr/Found unknown attribute/, 'singleton class also has a strict constructor'; + +done_testing;