t/bug-incorrect-message.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 {
   6   package Test::MooseX::Types::Structured::IncorrectMessage;
   7
   8   use Moose;
   9   use MooseX::Types::Moose qw(Str Int);
  10   use MooseX::Types::Structured qw(Tuple Dict);
  11   use MooseX::Types -declare => [qw(WrongMessage MyInt)];
  12
  13   subtype MyInt,
  14     as Int,
  15     message { 'Oh, my Int!' };
  16
  17   subtype WrongMessage,
  18     as Dict[name=>Str, age=>MyInt];
  19
  20   has 'person' => (
  21     is  => 'rw',
  22     required => 1,
  23     isa => WrongMessage,
  24   );
  25 }
  26
  27 my %init_args = (
  28   person => {
  29     name => 'a',
  30     age => 'v',
  31   },
  32 );
  33
  34 SKIP: {
  35   skip 'Deeper Error Messges not yet supported', 1,1;
  36
  37   ok(
  38     Test::MooseX::Types::Structured::IncorrectMessage->new(%init_args),
  39     'Made a class',
  40   );
  41 }
  42
  43 done_testing;