added stub test for working on error messgaes0

0
)

diff --git a/t/bug-incorrect-message.t b/t/bug-incorrect-message.t
new file mode 100644 (file)
index 0000000..82b5100
--- /dev/null
+++ b/t/bug-incorrect-message.t
@@ -0,0 +1,43 @@
+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;