5 1_validate_05_types.t - Test CGI::Ex::Validate's ability to do multitudinous types of validate
10 use Test::More tests => 120;
12 use_ok('CGI::Ex::Validate');
17 sub validate { scalar CGI::Ex::Validate::validate(@_) }
20 $v = {foo => {required => 1}};
21 $e = validate({}, $v);
22 ok($e, 'required => 1 - fail');
24 $e = validate({foo => 1}, $v);
25 ok(! $e, 'required => 1 - good');
28 $v = {foo => {required => 1, validate_if => 'bar'}};
29 $e = validate({}, $v);
30 ok(! $e, 'validate_if - true');
32 $e = validate({bar => 1}, $v);
33 ok($e, 'validate_if - false');
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);
59 ok(! $e, 'required_if - false');
61 $e = validate({bar => 1}, $v);
62 ok($e , 'required_if - true');
65 $v = {foo => {required => 1}};
66 $e = validate({foo => [1,2]}, $v);
69 $v = {foo => {max_values => 2}};
70 $e = validate({}, $v);
71 ok(! $e, 'max_values');
73 $e = validate({foo => "str"}, $v);
74 ok(! $e, 'max_values');
76 $e = validate({foo => [1]}, $v);
77 ok(! $e, 'max_values');
79 $e = validate({foo => [1,2]}, $v);
80 ok(! $e, 'max_values');
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);
88 ok(! $e, 'min_values');
90 $e = validate({foo => [1,2,3,4]}, $v);
91 ok(! $e, 'min_values');
93 $e = validate({foo => [1,2]}, $v);
96 $e = validate({foo => "str"}, $v);
99 $e = validate({}, $v);
100 ok($e, 'min_values');
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);
271 ok($e, 'compare'); # 68
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);
307 ok(! $e, 'compare'); # 80
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 $v = {foo => {type => 'domain'}};
342 $e = validate({foo => 'bar.com'}, $v);
343 ok(! $e, 'type domain');
344 $e = validate({foo => 'bing.bar.com'}, $v);
345 ok(! $e, 'type domain');
346 $e = validate({foo => 'bi-ng.com'}, $v);
347 ok(! $e, 'type domain');
348 $e = validate({foo => '123456789012345678901234567890123456789012345678901234567890123.com'}, $v);
349 ok(! $e, 'type domain');
351 $e = validate({foo => 'com'}, $v);
352 ok($e, 'type domain');
353 $e = validate({foo => 'bi-.com'}, $v);
354 ok($e, 'type domain');
355 $e = validate({foo => 'bi..com'}, $v);
356 ok($e, 'type domain');
357 $e = validate({foo => '1234567890123456789012345678901234567890123456789012345678901234.com'}, $v);
358 ok($e, 'type domain');
360 ### min_in_set checks
361 $v = {foo => {min_in_set => '2 of foo bar baz', max_values => 5}};
362 $e = validate({foo => 1}, $v);
363 ok($e, 'min_in_set');
364 $e = validate({foo => 1, bar => 1}, $v);
365 ok(! $e, 'min_in_set');
366 $e = validate({foo => 1, bar => ''}, $v); # empty string doesn't count as value
367 ok($e, 'min_in_set');
368 $e = validate({foo => 1, bar => 0}, $v);
369 ok(! $e, 'min_in_set');
370 $e = validate({foo => [1, 2]}, $v);
371 ok(! $e, 'min_in_set');
372 $e = validate({foo => [1]}, $v);
373 ok($e, 'min_in_set');
374 $v = {foo => {min_in_set => '2 foo bar baz', max_values => 5}};
375 $e = validate({foo => 1, bar => 1}, $v);
376 ok(! $e, 'min_in_set');
378 ### max_in_set checks
379 $v = {foo => {max_in_set => '2 of foo bar baz', max_values => 5}};
380 $e = validate({foo => 1}, $v);
381 ok(! $e, 'max_in_set');
382 $e = validate({foo => 1, bar => 1}, $v);
383 ok(! $e, 'max_in_set');
384 $e = validate({foo => 1, bar => 1, baz => 1}, $v);
385 ok($e, 'max_in_set');
386 $e = validate({foo => [1, 2]}, $v);
387 ok(! $e, 'max_in_set');
388 $e = validate({foo => [1, 2, 3]}, $v);
389 ok($e, 'max_in_set');
391 ### validate_if revisited (but negated - uses max_in_set)
392 $v = {foo => {required => 1, validate_if => '! bar'}};
393 $e = validate({}, $v);
394 ok($e, 'validate_if - negated');
396 $e = validate({bar => 1}, $v);
397 ok(! $e, 'validate_if - negated');
401 $v = {foo => {required => 1, default => 'hmmmm'}};
402 $e = validate($f, $v);
405 ok($f->{foo} && $f->{foo} eq 'hmmmm', 'had right default');