From: John Napiorkowski <jjnapiork@cpan.org>
Date: Mon, 17 Nov 2008 03:27:51 +0000 (+0000)
Subject: more debugging, I hope this wont need another moose patch...
X-Git-Tag: 0.06~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types-Structured.git;a=commitdiff_plain;h=b454ba9e20cef3be721db081bc7fa9c74de0134c

more debugging, I hope this wont need another moose patch...
---

diff --git a/t/09-optional.t b/t/09-optional.t
index 5380b0b..0ded179 100755
--- a/t/09-optional.t
+++ b/t/09-optional.t
@@ -5,6 +5,7 @@ use Test::More tests=>15;
 use Moose::Util::TypeConstraints;
 use Moose::Meta::TypeConstraint::Parameterizable;
 use Moose;
+use Data::Dump qw/dump/;
 
 ## Sketch for how this could work
 ok my $Optional = Moose::Meta::TypeConstraint::Parameterizable->new(
@@ -17,6 +18,10 @@ ok my $Optional = Moose::Meta::TypeConstraint::Parameterizable->new(
 		my $check = $type_parameter->_compiled_type_constraint;
 		return sub {
 			my (@args) = @_;
+			warn dump [@args];
+			warn exists $args[0]? "exists":"null";
+			warn defined $args[0]? "defined":"undef";		
+
 			if(exists($args[0])) {
 				## If it exists, we need to validate it
 				$check->($args[0]);
@@ -43,7 +48,12 @@ ok my $arrayref = Moose::Util::TypeConstraints::find_or_parse_type_constraint('A
 ok my $Optional_Int = $Optional->parameterize($int), 'Parameterized Int';
 ok my $Optional_ArrayRef = $Optional->parameterize($arrayref), 'Parameterized ArrayRef';
 
+$Optional_Int->check();
+
+die;
+
 ok $Optional_Int->check() => 'Optional is allowed to not exist';
+
 ok !$Optional_Int->check(undef) => 'Optional is NOT allowed to be undef';
 ok $Optional_Int->check(199) => 'Correctly validates 199';
 ok !$Optional_Int->check("a") => 'Correctly fails "a"';