added stub test for working on error messgaes0

[gitmo/MooseX-Types-Structured.git] / t / bug-incorrect-message.t

use strict;
use warnings;
use Test::More;

{
  package Test::MooseX::Types::Structured::IncorrectMessage;

  use Moose;
  use MooseX::Types::Moose qw(Str Int);
  use MooseX::Types::Structured qw(Tuple Dict);
  use MooseX::Types -declare => [qw(WrongMessage MyInt)];

  subtype MyInt,
    as Int,
    message { 'Oh, my Int!' };

  subtype WrongMessage,
    as Dict[name=>Str, age=>MyInt];

  has 'person' => (
    is  => 'rw',
    required => 1,
    isa => WrongMessage,
  );
}

my %init_args = (
  person => {
    name => 'a',
    age => 'v',
  },
);

SKIP: {
  skip 'Deeper Error Messges not yet supported', 1,1;

  ok(
    Test::MooseX::Types::Structured::IncorrectMessage->new(%init_args),
    'Made a class',
  );
}

done_testing;