t/100-erroneous-keywords.t

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