5 1_validate_05_types.t - Test CGI::Ex::Validate's ability to do multitudinous types of validate
10 use Test::More tests => 112;
12 use_ok('CGI::Ex::Validate');
17 sub validate { scalar &CGI::Ex::Validate::validate(@_) }
20 $v = {foo => {required => 1}};
21 $e = validate({}, $v);
24 $e = validate({foo => 1}, $v);
28 $v = {foo => {required => 1, validate_if => 'bar'}};
29 $e = validate({}, $v);
32 $e = validate({bar => 1}, $v);
35 $v = {text1 => {required => 1, validate_if => 'text2 was_valid'}, text2 => {validate_if => 'text3'}};
36 $e = validate({}, $v);
37 ok(! $e, "Got no error on validate_if with was_valid");
38 $e = validate({text2 => 1}, $v);
39 ok(! $e, "Got no error on validate_if with was_valid with non-validated data");
40 $e = validate({text3 => 1}, $v);
41 ok(! $e, "Got no error on validate_if with was_valid with validated - bad data");
42 $e = validate({text2 => 1, text3 => 1}, $v);
43 ok(! $e, "Got error on validate_if with was_valid with validated - good data");
44 $e = validate({text1 => 1, text2 => 1, text3 => 1}, $v);
45 ok(! $e, "No error on validate_if with was_valid with validated - good data");
47 $v = {text1 => {required => 1, validate_if => 'text2 had_error'}, text2 => {required => 1}};
48 $e = validate({}, $v);
49 ok($e, "Got error on validate_if with had_error");
50 $e = validate({text2 => 1}, $v);
51 ok(! $e, "No error on validate_if with had_error and bad_data");
52 $e = validate({text1 => 1}, $v);
53 ok($e && ! $e->as_hash->{text1_error}, "No error on validate_if with had_error and good data");
57 $v = {foo => {required_if => 'bar'}};
58 $e = validate({}, $v);
61 $e = validate({bar => 1}, $v);
65 $v = {foo => {required => 1}};
66 $e = validate({foo => [1,2]}, $v);
69 $v = {foo => {max_values => 2}};
70 $e = validate({}, $v);
73 $e = validate({foo => "str"}, $v);
76 $e = validate({foo => [1]}, $v);
79 $e = validate({foo => [1,2]}, $v);
82 $e = validate({foo => [1,2,3]}, $v);
86 $v = {foo => {min_values => 3, max_values => 10}};
87 $e = validate({foo => [1,2,3]}, $v);
90 $e = validate({foo => [1,2,3,4]}, $v);
93 $e = validate({foo => [1,2]}, $v);
96 $e = validate({foo => "str"}, $v);
99 $e = validate({}, $v);
103 $v = {foo => {enum => [1, 2, 3]}, bar => {enum => "1 || 2||3"}};
104 $e = validate({}, $v);
107 $e = validate({foo => 1, bar => 1}, $v);
110 $e = validate({foo => 1, bar => 2}, $v);
113 $e = validate({foo => 1, bar => 3}, $v);
116 $e = validate({foo => 1, bar => 4}, $v);
120 $v = {foo => {equals => 'bar'}};
121 $e = validate({}, $v);
124 $e = validate({foo => 1}, $v);
127 $e = validate({bar => 1}, $v);
130 $e = validate({foo => 1, bar => 2}, $v);
133 $e = validate({foo => 1, bar => 1}, $v);
136 $v = {foo => {equals => '"bar"'}};
137 $e = validate({foo => 1, bar => 1}, $v);
140 $e = validate({foo => 'bar', bar => 1}, $v);
144 $v = {foo => {min_len => 10}};
145 $e = validate({}, $v);
148 $e = validate({foo => ""}, $v);
151 $e = validate({foo => "123456789"}, $v);
154 $e = validate({foo => "1234567890"}, $v);
158 $v = {foo => {max_len => 10}};
159 $e = validate({}, $v);
162 $e = validate({foo => ""}, $v);
165 $e = validate({foo => "1234567890"}, $v);
168 $e = validate({foo => "12345678901"}, $v);
172 $v = {foo => {match => qr/^\w+$/}};
173 $e = validate({foo => "abc"}, $v);
176 $e = validate({foo => "abc."}, $v);
179 $v = {foo => {match => [qr/^\w+$/, qr/^[a-z]+$/]}};
180 $e = validate({foo => "abc"}, $v);
183 $e = validate({foo => "abc1"}, $v);
186 $v = {foo => {match => 'm/^\w+$/'}};
187 $e = validate({foo => "abc"}, $v);
190 $e = validate({foo => "abc."}, $v);
193 $v = {foo => {match => 'm/^\w+$/ || m/^[a-z]+$/'}};
194 $e = validate({foo => "abc"}, $v);
197 $e = validate({foo => "abc1"}, $v);
200 $v = {foo => {match => '! m/^\w+$/'}};
201 $e = validate({foo => "abc"}, $v);
204 $e = validate({foo => "abc."}, $v);
207 $v = {foo => {match => 'm/^\w+$/'}};
208 $e = validate({}, $v);
211 $v = {foo => {match => '! m/^\w+$/'}};
212 $e = validate({}, $v);
216 $v = {foo => {compare => '> 0'}};
217 $e = validate({}, $v);
219 $v = {foo => {compare => '== 0'}};
220 $e = validate({}, $v);
222 $v = {foo => {compare => '< 0'}};
223 $e = validate({}, $v);
226 $v = {foo => {compare => '> 10'}};
227 $e = validate({foo => 11}, $v);
229 $e = validate({foo => 10}, $v);
232 $v = {foo => {compare => '== 10'}};
233 $e = validate({foo => 11}, $v);
235 $e = validate({foo => 10}, $v);
238 $v = {foo => {compare => '< 10'}};
239 $e = validate({foo => 9}, $v);
241 $e = validate({foo => 10}, $v);
244 $v = {foo => {compare => '>= 10'}};
245 $e = validate({foo => 10}, $v);
247 $e = validate({foo => 9}, $v);
250 $v = {foo => {compare => '!= 10'}};
251 $e = validate({foo => 10}, $v);
253 $e = validate({foo => 9}, $v);
256 $v = {foo => {compare => '<= 10'}};
257 $e = validate({foo => 11}, $v);
259 $e = validate({foo => 10}, $v);
263 $v = {foo => {compare => 'gt ""'}};
264 $e = validate({}, $v);
266 $v = {foo => {compare => 'eq ""'}};
267 $e = validate({}, $v);
269 $v = {foo => {compare => 'lt ""'}};
270 $e = validate({}, $v);
273 $v = {foo => {compare => 'gt "c"'}};
274 $e = validate({foo => 'd'}, $v);
276 $e = validate({foo => 'c'}, $v);
279 $v = {foo => {compare => 'eq c'}};
280 $e = validate({foo => 'd'}, $v);
282 $e = validate({foo => 'c'}, $v);
285 $v = {foo => {compare => 'lt c'}};
286 $e = validate({foo => 'b'}, $v);
288 $e = validate({foo => 'c'}, $v);
291 $v = {foo => {compare => 'ge c'}};
292 $e = validate({foo => 'c'}, $v);
294 $e = validate({foo => 'b'}, $v);
297 $v = {foo => {compare => 'ne c'}};
298 $e = validate({foo => 'c'}, $v);
300 $e = validate({foo => 'b'}, $v);
303 $v = {foo => {compare => 'le c'}};
304 $e = validate({foo => 'd'}, $v);
306 $e = validate({foo => 'c'}, $v);
310 ### can't really do anything here without prompting for a db connection
314 $v = {foo => {custom => $n}};
315 $e = validate({}, $v);
317 $e = validate({foo => "str"}, $v);
321 $v = {foo => {custom => $n}};
322 $e = validate({}, $v);
324 $e = validate({foo => "str"}, $v);
327 $n = sub { my ($key, $val) = @_; return defined($val) ? 1 : 0};
328 $v = {foo => {custom => $n}};
329 $e = validate({}, $v);
331 $e = validate({foo => "str"}, $v);
335 $v = {foo => {type => 'ip'}};
336 $e = validate({foo => '209.108.25'}, $v);
338 $e = validate({foo => '209.108.25.111'}, $v);
341 ### min_in_set checks
342 $v = {foo => {min_in_set => '2 of foo bar baz', max_values => 5}};
343 $e = validate({foo => 1}, $v);
345 $e = validate({foo => 1, bar => 1}, $v);
347 $e = validate({foo => 1, bar => ''}, $v); # empty string doesn't count as value
349 $e = validate({foo => 1, bar => 0}, $v);
351 $e = validate({foo => [1, 2]}, $v);
353 $e = validate({foo => [1]}, $v);
355 $v = {foo => {min_in_set => '2 foo bar baz', max_values => 5}};
356 $e = validate({foo => 1, bar => 1}, $v);
359 ### max_in_set checks
360 $v = {foo => {max_in_set => '2 of foo bar baz', max_values => 5}};
361 $e = validate({foo => 1}, $v);
363 $e = validate({foo => 1, bar => 1}, $v);
365 $e = validate({foo => 1, bar => 1, baz => 1}, $v);
367 $e = validate({foo => [1, 2]}, $v);
369 $e = validate({foo => [1, 2, 3]}, $v);
372 ### validate_if revisited (but negated - uses max_in_set)
373 $v = {foo => {required => 1, validate_if => '! bar'}};
374 $e = validate({}, $v);
377 $e = validate({bar => 1}, $v);
382 $v = {foo => {required => 1, default => 'hmmmm'}};
383 $e = validate($f, $v);
386 ok($f->{foo} && $f->{foo} eq 'hmmmm');