fixed up test cases

diff --git a/t/02-types-parameterizable-extended.t b/t/02-types-parameterizable-extended.t
index 6a5c8af..3c87820 100644 (file)
--- 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 (file)
--- 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 {