From: John Napiorkowski <johnn@John-Napiorkowski-MacBook-Pro.local>
Date: Thu, 24 Jun 2010 18:46:51 +0000 (-0400)
Subject: fixed up test cases
X-Git-Tag: 0.02~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b297820d0ac1e9bd68d20d0605a5063e4bed7d8;p=gitmo%2FMooseX-Dependent.git

fixed up test cases
---

diff --git a/t/02-types-parameterizable-extended.t b/t/02-types-parameterizable-extended.t
index 6a5c8af..3c87820 100644
--- a/t/02-types-parameterizable-extended.t
+++ b/t/02-types-parameterizable-extended.t
@@ -51,12 +51,12 @@ use Test::More; {
     CHECKHARDEXCEPTION: {
         eval { UniqueInt->check(1000) };
         like $@,
-          qr/Validation failed for 'main::Set' failed with value undef/,
+          qr/Validation failed for 'main::Set' with value undef/,
           'Got Expected Error';
           
         eval { UniqueInt->validate(1000) };
         like $@,
-          qr/Validation failed for 'main::Set' failed with value undef/,
+          qr/Validation failed for 'main::Set' with value undef/,
           'Got Expected Error';          
     }
     
diff --git a/t/05-pod-examples.t b/t/05-pod-examples.t
index 061dcec..c6aca88 100644
--- a/t/05-pod-examples.t
+++ b/t/05-pod-examples.t
@@ -16,6 +16,10 @@ eval "use Set::Scalar"; if($@) {
     use MooseX::Types::Moose qw(Str Int);
     use MooseX::Types -declare=>[qw(Varchar)];
 
+    ## Create a type constraint that is a string but parameterizes an integer
+    ## that is used as a maximum length constraint on that string, similar to
+    ## an SQL Varchar type.
+
     subtype Varchar,
       as Parameterizable[Str,Int],
       where {