t/100-erroneous-keywords.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 4;
   5
   6 use Test::Exception;
   7
   8 do {
   9     package MyRole::Storage;
  10     use MooseX::Role::Parameterized;
  11
  12     ::throws_ok {
  13         parameter()
  14     } qr/^You must provide a name for the parameter/;
  15
  16     role {
  17         ::throws_ok {
  18             extends 'MyRole::Parameterized';
  19         } qr/^Roles do not currently support 'extends'/;
  20         ::throws_ok {
  21             inner()
  22         } qr/^Roles cannot support 'inner'/;
  23         ::throws_ok {
  24             augment()
  25         } qr/^Roles cannot support 'augment'/;
  26     };
  27 };
  28
  29 Moose::Meta::Class->create_anon_class(
  30     roles => ['MyRole::Storage'],
  31 );
  32