X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-coercions.t;h=5fc82622264b12e2ef12e48c9ab12b5e992a27fd;hb=26cf337eb5c6275eddbcda39f7187416d6314b2f;hp=db900d3f1e185c931fbdbde44bc4a4784c274d0e;hpb=21df4517825e6c4bc201683264ecf7a3b8e25230;p=gitmo%2FMooseX-Dependent.git

diff --git a/t/03-coercions.t b/t/03-coercions.t
index db900d3..5fc8262 100644
--- a/t/03-coercions.t
+++ b/t/03-coercions.t
@@ -1,5 +1,5 @@
 
-use Test::More tests=>14; {
+use Test::More tests=>15; {
 	
 	use strict;
 	use warnings;
@@ -8,7 +8,7 @@ use Test::More tests=>14; {
 	use MooseX::Types::Moose qw(Int Str HashRef ArrayRef);
 	
 	use MooseX::Types -declare=>[qw(
-		InfoHash OlderThanAge
+		InfoHash OlderThanAge DefinedOlderThanAge
 	)];
 	
 	ok subtype( InfoHash,
@@ -32,31 +32,17 @@ use Test::More tests=>14; {
 	ok OlderThanAge([older_than=>1])->check(9), '9 is older than 1';
 	ok !OlderThanAge([older_than=>1])->check('aaa'), '"aaa" not an int';
 	ok !OlderThanAge([older_than=>10])->check(9), '9 is not older than 10';
-	
-	my $a = OlderThanAge([older_than=>1]);
-	
-	coerce $a,
-		from ArrayRef,
-		via {
-			my ($arrayref, $constraining_value) = @_;
-			my $age;
-			$age += $_ for @$arrayref;
-			return $age;
-		};
-	
-	is $a->coerce([1,2,3]), 6, 'Got expected Value';
-	
+		
 	coerce OlderThanAge,
 		from HashRef,
-		via {
+		via { 
 			my ($hashref, $constraining_value) = @_;
-			return keys %$hashref;
-		};
-
-	coerce OlderThanAge([older_than=>5]),
+			return scalar(keys(%$hashref));
+		},
 		from ArrayRef,
-		via {
+		via { 
 			my ($arrayref, $constraining_value) = @_;
+			#use Data::Dump qw/dump/; warn dump $constraining_value;
 			my $age;
 			$age += $_ for @$arrayref;
 			return $age;
@@ -66,10 +52,27 @@ use Test::More tests=>14; {
 	  'Got corect name for OlderThanAge';
 	is OlderThanAge([older_than=>5])->coerce([1..10]), 55,
 	  'Coerce works';
+	is OlderThanAge([older_than=>5])->coerce({a=>1,b=>2,c=>3,d=>4}), 4,
+	  'inherit Coerce works';	  
 	like OlderThanAge([older_than=>2])->name, qr/main::OlderThanAge\[/,
 	  'Got correct name for OlderThanAge([older_than=>2])';
-	is OlderThanAge([older_than=>2])->coerce({a=>1,b=>2,c=>3,d=>4}), 4,
+	is OlderThanAge([older_than=>2])->coerce({a=>5,b=>6,c=>7,d=>8}), 4,
 	  'inherited Coerce works';
-	
-	
+
+	SKIP: {
+		skip 'Type Coercions on defined types not supported yet', 1;
+
+		subtype DefinedOlderThanAge, as OlderThanAge([older_than=>1]);
+		
+		coerce DefinedOlderThanAge,
+			from ArrayRef,
+			via {
+				my ($arrayref, $constraining_value) = @_;
+				my $age;
+				$age += $_ for @$arrayref;
+				return $age;
+			};
+		
+		is DefinedOlderThanAge->coerce([1,2,3]), 6, 'Got expected Value';
+	}
 }
\ No newline at end of file