t/101-alias-excludes.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 4;
   5 use Test::Exception;
   6
   7 do {
   8     package MyRole;
   9     use MooseX::Role::Parameterized;
  10
  11     ::throws_ok {
  12         parameter 'alias';
  13     } qr/^The parameter name \(alias\) is currently forbidden/;
  14
  15     ::throws_ok {
  16         parameter 'excludes';
  17     } qr/^The parameter name \(excludes\) is currently forbidden/;
  18 };
  19
  20 do {
  21     package MyClass;
  22     use MooseX::Role::Parameterized;
  23
  24     ::throws_ok {
  25         with MyRole => {
  26             alias => 1,
  27         };
  28     } qr/^The parameter name \(alias\) is currently forbidden/;
  29
  30     ::throws_ok {
  31         with MyRole => {
  32             excludes => 1,
  33         };
  34     } qr/^The parameter name \(excludes\) is currently forbidden/;
  35 };
  36