[Moose-commits] r7873 - MooseX-Types-Dependent/trunk/t

[jnapiorkowski at code2.0beta.co.uk]

Author: jnapiorkowski
Date: 2009-03-30 07:30:26 -0700 (Mon, 30 Mar 2009)
New Revision: 7873

Modified:
   MooseX-Types-Dependent/trunk/t/02-depending.t
Log:
removed useless comments (just distract you from the code)

Modified: MooseX-Types-Dependent/trunk/t/02-depending.t
===================================================================
--- MooseX-Types-Dependent/trunk/t/02-depending.t	2009-03-30 14:14:35 UTC (rev 7872)
+++ MooseX-Types-Dependent/trunk/t/02-depending.t	2009-03-30 14:30:26 UTC (rev 7873)
@@ -44,7 +44,7 @@
         Int,
         sub {
             my ($dependent_int, $constraining_arrayref) = @_;
-            (grep { $_ == $dependent_int} @$constraining_arrayref) ? 0:1
+            (grep { $_ == $dependent_int} @$constraining_arrayref) ? undef:1
         },
         ArrayRef[Int],
       ];
@@ -61,8 +61,12 @@
     subtype UniqueInt2,
 	  as depending {
             my ($dependent_int, $constraining_arrayref) = @_;
-            (grep { $_ == $dependent_int} @$constraining_arrayref) ? 0:1		
-	  } Int, ArrayRef[Int];
+            (grep { $_ == $dependent_int} @$constraining_arrayref) ? undef:1		
+	  } Int, ArrayRef[Int],
+	  where {
+		use Data::Dump qw/dump/;
+		warn dump @_;
+	  }
 
     isa_ok UniqueInt2, 'MooseX::Meta::TypeConstraint::Dependent';
     ok !UniqueInt2->check(['a',[1,2,3]]), '"a" not an Int';