X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100-erroneous-keywords.t;h=759780e4a5d8e2cd92b8d410605df349e6aae09e;hb=4f3cfe3fd5a511e6503fcc1da85fb937a7d67863;hp=fabcecf0dc9a8ef4dda92fe280b6e8c7e1875963;hpb=396466d48ca8d79a727cb7618d2a15ab1c0a1a78;p=gitmo%2FMooseX-Role-Parameterized.git diff --git a/t/100-erroneous-keywords.t b/t/100-erroneous-keywords.t index fabcecf..759780e 100644 --- a/t/100-erroneous-keywords.t +++ b/t/100-erroneous-keywords.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 5; use Test::Exception; @@ -23,6 +23,9 @@ do { ::throws_ok { augment() } qr/^Roles cannot support 'augment'/; + ::throws_ok { + parameter() + } qr/^'parameter' may not be used inside of the role block/; }; };