started on a real message stacker

diff --git a/t/00-load.t b/t/00-load.t
index 7f8329e..6d47641 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -1,9 +1,10 @@
 use strict;
 use warnings;
 
-use Test::More tests=>3;
+use Test::More tests=>4;
 
 ## List all the modules we want to make sure can at least compile
 use_ok 'MooseX::Meta::TypeConstraint::Structured';
 use_ok 'MooseX::Meta::TypeCoercion::Structured';
-use_ok 'MooseX::Types::Structured';
\ No newline at end of file
+use_ok 'MooseX::Types::Structured::MessageStack';
+use_ok 'MooseX::Types::Structured';

diff --git a/t/12-error.t b/t/12-error.t
index 7df84f0..404716d 100644 (file)
--- a/t/12-error.t
+++ b/t/12-error.t
@@ -131,6 +131,12 @@ like $deep_tuple->validate([1,{a=>2},{name=>'Vincent1',age=>'Hello1'}]),
   qr/'Int' with value Hello1/,
   'correct deeper error';
 
+## Success Tests...
+
+ok !$deep_tuple->validate([1,{a=>2},{name=>'John',age=>40}]), 'Validates ok';
+
+## Deeper Tests...
+
 my $deeper_tc = subtype
   as Dict[
     a => Tuple[
@@ -160,7 +166,4 @@ my $deeper_tc = subtype
     warn $message;
 }
 
-## Success Tests...
-
-ok !$deep_tuple->validate([1,{a=>2},{name=>'John',age=>40}]), 'Validates ok';