X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types-Structured.git;a=blobdiff_plain;f=t%2F12-error.t;h=404716d214786e64d7afbc7e8d172eb42ca3ebae;hp=7df84f0c93363074859b97c2e84c19b8d22b77ca;hb=5ac93dbb32df5bdf286efab5cca11423083b8a57;hpb=21d0e759ab986615952773d9dce93ec2b28f7b2a diff --git a/t/12-error.t b/t/12-error.t index 7df84f0..404716d 100644 --- a/t/12-error.t +++ b/t/12-error.t @@ -131,6 +131,12 @@ like $deep_tuple->validate([1,{a=>2},{name=>'Vincent1',age=>'Hello1'}]), qr/'Int' with value Hello1/, 'correct deeper error'; +## Success Tests... + +ok !$deep_tuple->validate([1,{a=>2},{name=>'John',age=>40}]), 'Validates ok'; + +## Deeper Tests... + my $deeper_tc = subtype as Dict[ a => Tuple[ @@ -160,7 +166,4 @@ my $deeper_tc = subtype warn $message; } -## Success Tests... - -ok !$deep_tuple->validate([1,{a=>2},{name=>'John',age=>40}]), 'Validates ok';