From: John Napiorkowski <johnn@John-Napiorkowski-MacBook-Pro.local>
Date: Thu, 1 Jul 2010 12:00:16 +0000 (-0400)
Subject: started on a real message stacker
X-Git-Tag: 0.23~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types-Structured.git;a=commitdiff_plain;h=5ac93dbb32df5bdf286efab5cca11423083b8a57

started on a real message stacker
---

diff --git a/t/00-load.t b/t/00-load.t
index 7f8329e..6d47641 100644
--- 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
--- 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';