From: John Napiorkowski Date: Mon, 30 Mar 2009 18:09:35 +0000 (+0000) Subject: created placeholder for API tests, and a bit of docs X-Git-Tag: 0.01~35 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d56f4d1975aa41522902bbb2d0c11ab9014e73e;p=gitmo%2FMooseX-Dependent.git created placeholder for API tests, and a bit of docs --- diff --git a/t/02-depending.t b/t/02-depending.t index df57670..b1269c0 100644 --- a/t/02-depending.t +++ b/t/02-depending.t @@ -42,7 +42,8 @@ use Test::More tests=>24; { ok IntGreaterThanInt->check([12,1]), "Success, 12 is greater than1."; ok IntGreaterThanInt->check([0,-10]), "Success, 0 is greater than -10."; - ## The dependent value cannot exist in the constraining arrayref + ## The dependent value cannot exist in the constraining arrayref. Also, it + ## (the dependent type) must exceed 2. subtype UniqueInt, as Depending[ Int, @@ -66,7 +67,7 @@ use Test::More tests=>24; { ok UniqueInt->check([3,[100..110]]), 'PASS unique in set'; ok UniqueInt->check([4,[100..110]]), 'PASS unique in set'; - ## Basically as above, with sugar + ## Basically as above, with sugar. subtype UniqueInt2, as depending { my ($dependent_int, $constraining_arrayref) = @_;