1 use Test::More tests=>29; {
6 use MooseX::Types::Dependent qw(Depending);
7 use MooseX::Types::Moose qw(Int Str Object ArrayRef HashRef Maybe);
8 use MooseX::Types -declare => [qw(
14 ## sugar for alternative syntax: depending {} TC,TC
16 my ($coderef, $dependent_tc, $constraining_tc, @args) = @_;
18 return (Depending[$dependent_tc,$coderef,$constraining_tc],@args);
20 return Depending[$dependent_tc,$coderef,$constraining_tc];
24 ## The dependent value must exceed the constraining value
25 subtype IntGreaterThanInt,
29 my ($dependent_val, $constraining_val) = @_;
30 return ($dependent_val > $constraining_val) ? 1:undef;
35 isa_ok IntGreaterThanInt, 'MooseX::Meta::TypeConstraint::Dependent';
36 ok !IntGreaterThanInt->check(['a',10]), "Fails, 'a' is not an Int.";
37 ok !IntGreaterThanInt->check([5,'b']), "Fails, 'b' is not an Int either.";
38 ok !IntGreaterThanInt->check({4,1}), "Fails, since this isn't an arrayref";
39 ok !IntGreaterThanInt->check([5,10]), "Fails, 5 is less than 10";
40 ok IntGreaterThanInt->check([11,6]), "Success, 11 is greater than 6.";
41 ok IntGreaterThanInt->check([12,1]), "Success, 12 is greater than1.";
42 ok IntGreaterThanInt->check([0,-10]), "Success, 0 is greater than -10.";
44 ## The dependent value cannot exist in the constraining arrayref. Also, it
45 ## (the dependent type) must exceed 2.
50 my ($dependent_int, $constraining_arrayref) = @_;
51 (grep { $_ == $dependent_int} @$constraining_arrayref) ? undef:1
56 my ($dependent_val, $constraining_value) = @$_;
57 return $dependent_val > 2 ? 1:undef;
59 #message {"Custom Error: $_"};
61 isa_ok UniqueInt, 'MooseX::Meta::TypeConstraint::Dependent';
62 ok !UniqueInt->check(['a',[1,2,3]]), '"a" not an Int';
63 ok !UniqueInt->check([1,['b','c']]), '"b","c" not an arrayref';
64 ok !UniqueInt->check([1,[1,2,3]]), 'not unique in set';
65 ok !UniqueInt->check([10,[1,10,15]]), 'not unique in set';
66 ok !UniqueInt->check([2,[3..6]]), 'FAIL dependent is too small';
67 ok UniqueInt->check([3,[100..110]]), 'PASS unique in set';
68 ok UniqueInt->check([4,[100..110]]), 'PASS unique in set';
70 ## Basically as above, with sugar.
73 my ($dependent_int, $constraining_arrayref) = @_;
74 (grep { $_ == $dependent_int} @$constraining_arrayref) ? undef:1
77 my ($dependent_val, $constraining_value) = @$_;
78 return $dependent_val > 2 ? 1:undef;
81 isa_ok UniqueInt2, 'MooseX::Meta::TypeConstraint::Dependent';
82 ok !UniqueInt2->check(['a',[1,2,3]]), '"a" not an Int';
83 ok !UniqueInt2->check([1,['b','c']]), '"b","c" not an arrayref';
84 ok !UniqueInt2->check([1,[1,2,3]]), 'not unique in set';
85 ok !UniqueInt2->check([10,[1,10,15]]), 'not unique in set';
86 ok !UniqueInt2->check([2,[3..6]]), 'FAIL dependent is too small';
87 ok UniqueInt2->check([3,[100..110]]), 'PASS unique in set';
88 ok UniqueInt2->check([4,[100..110]]), 'PASS unique in set';
90 ## Basic error messages. TODO should be it's own test
91 like UniqueInt->validate(['a',[1,2,3]]), qr/failed for 'Int' failed with value a/,
94 like UniqueInt->validate([1,['b','c']]), qr/failed for 'ArrayRef\[Int\]'/,
95 "ArrayRef doesn't contain Ints";
97 like UniqueInt->validate([1,[1,2,3]]), qr/failed with value \[ 1, \[ 1, 2, 3 \] \]/,
98 "Is not unique in the constraint";
100 like UniqueInt->validate([10,[1,10,15]]), qr/failed with value \[ 10, \[ 1, 10, 15 \] \]/,
101 "Expected Error message for [10,[1,10,15]]";
103 like UniqueInt->validate([2,[3..6]]), qr/failed with value \[ 2, \[ 3, 4, 5, 6 \] \]/,
104 "Expected Error message for [2,[3..6]]";