X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01-basic.t;h=86b12e0b84bf8c05f0336af9ad8c6e6e3b57d4f8;hb=9b6d2e22998448b8c5a0817fb0d6a945ca0a9ea4;hp=97dfdd9f37bf3d76546d92322eaad16b4cc8ee74;hpb=3313d2a6ae4206e091e7ec88fc4a2f672b6b1654;p=gitmo%2FMooseX-Dependent.git

diff --git a/t/01-basic.t b/t/01-basic.t
index 97dfdd9..86b12e0 100644
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -18,14 +18,13 @@ use Test::More tests=>9; {
 		parent => find_type_constraint('ArrayRef'),
 		dependent_type_constraint=>$int,
 		comparison_callback=>sub {
-			my ($constraining_value, $check_value) = @_;
-			return $check_value > $constraining_value ? 0:1;
+			my ($dependent_val, $constraining_val) = @_;
+			return ($dependent_val > $constraining_val) ? 1:undef;
 		},
 		constraining_type_constraint =>$int,
 		constraint_generator=> sub {
-			## Because "shift->(shift,shift)" is not very clear, is it :)
-			my ($callback, $constraining_value, $check_value) = @_;
-			return $callback->($constraining_value, $check_value);
+			my ($dependent_val, $callback, $constraining_val) = @_;
+			return $callback->($dependent_val, $constraining_val);
 		},
 	);