X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-depending.t;h=9831139da0ff65fa90defb7a451edd42a7b28158;hb=ae1d065233974a8e76f9b8da9f696a9380a32d4e;hp=dbffb72b00d930b787ba9c828d46cebab7574318;hpb=41cf74575a04a14eaf00c26298268fd8e9473ed7;p=gitmo%2FMooseX-Dependent.git

diff --git a/t/02-depending.t b/t/02-depending.t
index dbffb72..9831139 100644
--- a/t/02-depending.t
+++ b/t/02-depending.t
@@ -1,9 +1,8 @@
-use Test::More tests=>24; {
+use Test::More tests=>29; {
     
     use strict;
     use warnings;
-    
-    use Test::Exception;
+
     use MooseX::Types::Dependent qw(Depending);
  	use MooseX::Types::Moose qw(Int Str Object ArrayRef HashRef Maybe);
 	use MooseX::Types -declare => [qw(
@@ -57,7 +56,8 @@ use Test::More tests=>24; {
 		my ($dependent_val, $constraining_value) = @$_;
 		return $dependent_val > 2 ? 1:undef;
 	  };
-      
+	  #message {"Custom Error: $_"};
+
     isa_ok UniqueInt, 'MooseX::Meta::TypeConstraint::Dependent';
     ok !UniqueInt->check(['a',[1,2,3]]), '"a" not an Int';
     ok !UniqueInt->check([1,['b','c']]), '"b","c" not an arrayref';    
@@ -88,6 +88,18 @@ use Test::More tests=>24; {
     ok UniqueInt2->check([4,[100..110]]), 'PASS unique in set';
 
 	## Basic error messages.  TODO should be it's own test
+	like UniqueInt->validate(['a',[1,2,3]]), qr/failed for 'Int' failed with value a/,
+	  "a is not an Int";
+	
+	like UniqueInt->validate([1,['b','c']]), qr/failed for 'ArrayRef\[Int\]'/,
+	  "ArrayRef doesn't contain Ints";
+	
+	like UniqueInt->validate([1,[1,2,3]]), qr/failed with value \[ 1, \[ 1, 2, 3 \] \]/,
+	  "Is not unique in the constraint";
+	
+    like UniqueInt->validate([10,[1,10,15]]), qr/failed with value \[ 10, \[ 1, 10, 15 \] \]/,
+	  "Expected Error message for [10,[1,10,15]]";
 	
-	warn UniqueInt2->validate(['a',[1,2,3]]);
+    like UniqueInt->validate([2,[3..6]]), qr/failed with value \[ 2, \[ 3, 4, 5, 6 \] \]/,
+	  "Expected Error message for [2,[3..6]]";
 }