5 1_validate_05_types.t - Test CGI::Ex::Validate's ability to do multitudinous types of validate
10 use Test::More tests => 181;
12 use_ok('CGI::Ex::Validate');
17 sub validate { scalar CGI::Ex::Validate->new({as_array_title=>'',as_string_join=>"\n"})->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 $v->{'foo'}->{'match'} = 'm/3/';
114 $e = validate({foo => 1, bar => 2}, $v);
116 is($e, "Foo contains invalid characters.", 'enum shortcircuit');
118 $e = validate({foo => 4, bar => 1}, $v);
120 is($e, "Foo is not in the given list.", 'enum shortcircuit');
123 $v = {foo => {equals => 'bar'}};
124 $e = validate({}, $v);
127 $e = validate({foo => 1}, $v);
130 $e = validate({bar => 1}, $v);
133 $e = validate({foo => 1, bar => 2}, $v);
136 $e = validate({foo => 1, bar => 1}, $v);
139 $v = {foo => {equals => '"bar"'}};
140 $e = validate({foo => 1, bar => 1}, $v);
143 $e = validate({foo => 'bar', bar => 1}, $v);
147 $v = {foo => {min_len => 10}};
148 $e = validate({}, $v);
151 $e = validate({foo => ""}, $v);
154 $e = validate({foo => "123456789"}, $v);
157 $e = validate({foo => "1234567890"}, $v);
161 $v = {foo => {max_len => 10}};
162 $e = validate({}, $v);
165 $e = validate({foo => ""}, $v);
168 $e = validate({foo => "1234567890"}, $v);
171 $e = validate({foo => "12345678901"}, $v);
175 $v = {foo => {match => qr/^\w+$/}};
176 $e = validate({foo => "abc"}, $v);
179 $e = validate({foo => "abc."}, $v);
182 $v = {foo => {match => [qr/^\w+$/, qr/^[a-z]+$/]}};
183 $e = validate({foo => "abc"}, $v);
186 $e = validate({foo => "abc1"}, $v);
189 $v = {foo => {match => 'm/^\w+$/'}};
190 $e = validate({foo => "abc"}, $v);
193 $e = validate({foo => "abc."}, $v);
196 $v = {foo => {match => 'm/^\w+$/ || m/^[a-z]+$/'}};
197 $e = validate({foo => "abc"}, $v);
200 $e = validate({foo => "abc1"}, $v);
203 $v = {foo => {match => '! m/^\w+$/'}};
204 $e = validate({foo => "abc"}, $v);
207 $e = validate({foo => "abc."}, $v);
210 $v = {foo => {match => 'm/^\w+$/'}};
211 $e = validate({}, $v);
214 $v = {foo => {match => '! m/^\w+$/'}};
215 $e = validate({}, $v);
219 $v = {foo => {compare => '> 0'}};
220 $e = validate({}, $v);
222 $v = {foo => {compare => '== 0'}};
223 $e = validate({}, $v);
225 $v = {foo => {compare => '< 0'}};
226 $e = validate({}, $v);
229 $v = {foo => {compare => '> 10'}};
230 $e = validate({foo => 11}, $v);
232 $e = validate({foo => 10}, $v);
235 $v = {foo => {compare => '== 10'}};
236 $e = validate({foo => 11}, $v);
238 $e = validate({foo => 10}, $v);
241 $v = {foo => {compare => '< 10'}};
242 $e = validate({foo => 9}, $v);
244 $e = validate({foo => 10}, $v);
247 $v = {foo => {compare => '>= 10'}};
248 $e = validate({foo => 10}, $v);
250 $e = validate({foo => 9}, $v);
253 $v = {foo => {compare => '!= 10'}};
254 $e = validate({foo => 10}, $v);
256 $e = validate({foo => 9}, $v);
259 $v = {foo => {compare => '<= 10'}};
260 $e = validate({foo => 11}, $v);
262 $e = validate({foo => 10}, $v);
266 $v = {foo => {compare => 'gt ""'}};
267 $e = validate({}, $v);
269 $v = {foo => {compare => 'eq ""'}};
270 $e = validate({}, $v);
272 $v = {foo => {compare => 'lt ""'}};
273 $e = validate({}, $v);
274 ok($e, 'compare'); # 68
276 $v = {foo => {compare => 'gt "c"'}};
277 $e = validate({foo => 'd'}, $v);
279 $e = validate({foo => 'c'}, $v);
282 $v = {foo => {compare => 'eq c'}};
283 $e = validate({foo => 'd'}, $v);
285 $e = validate({foo => 'c'}, $v);
288 $v = {foo => {compare => 'lt c'}};
289 $e = validate({foo => 'b'}, $v);
291 $e = validate({foo => 'c'}, $v);
294 $v = {foo => {compare => 'ge c'}};
295 $e = validate({foo => 'c'}, $v);
297 $e = validate({foo => 'b'}, $v);
300 $v = {foo => {compare => 'ne c'}};
301 $e = validate({foo => 'c'}, $v);
303 $e = validate({foo => 'b'}, $v);
306 $v = {foo => {compare => 'le c'}};
307 $e = validate({foo => 'd'}, $v);
309 $e = validate({foo => 'c'}, $v);
310 ok(! $e, 'compare'); # 80
313 ### can't really do anything here without prompting for a db connection
317 $v = {foo => {custom => $n}};
318 $e = validate({}, $v);
320 $e = validate({foo => "str"}, $v);
324 $v = {foo => {custom => $n}};
325 $e = validate({}, $v);
327 $e = validate({foo => "str"}, $v);
330 $n = sub { my ($key, $val) = @_; return defined($val) ? 1 : 0};
331 $v = {foo => {custom => $n}};
332 $e = validate({}, $v);
334 $e = validate({foo => "str"}, $v);
337 $e = validate({foo => "str"}, {foo => {custom => sub { my ($k, $v) = @_; die "Always fail ($v)\n" }}});
338 ok($e, 'Got an error');
339 is($e->as_hash->{'foo_error'}, "Always fail (str)", "Passed along the message from die");
342 $v = {foo => {type => 'ip', match => 'm/^203\./'}};
343 $e = validate({foo => '209.108.25'}, $v);
345 is($e, 'Foo did not match type ip.', 'type ip'); # make sure they short circuit
346 $e = validate({foo => '209.108.25.111'}, $v);
347 ok($e, 'type ip - but had match error');
348 is($e, 'Foo contains invalid characters.', 'type ip');
349 $e = validate({foo => '203.108.25.111'}, $v);
352 $v = {foo => {type => 'domain'}};
353 $e = validate({foo => 'bar.com'}, $v);
354 ok(! $e, 'type domain');
355 $e = validate({foo => 'bing.bar.com'}, $v);
356 ok(! $e, 'type domain');
357 $e = validate({foo => 'bi-ng.com'}, $v);
358 ok(! $e, 'type domain');
359 $e = validate({foo => '123456789012345678901234567890123456789012345678901234567890123.com'}, $v);
360 ok(! $e, 'type domain');
362 $e = validate({foo => 'com'}, $v);
363 ok($e, 'type domain');
364 $e = validate({foo => 'bi-.com'}, $v);
365 ok($e, 'type domain');
366 $e = validate({foo => 'bi..com'}, $v);
367 ok($e, 'type domain');
368 $e = validate({foo => '1234567890123456789012345678901234567890123456789012345678901234.com'}, $v);
369 ok($e, 'type domain');
371 ok(!validate({n => $_}, {n => {type => 'num'}}), "Type num $_") for qw(0 2 23 -0 -2 -23 0.0 .1 0.1 0.10 1.0 1.01);
372 ok(!validate({n => $_}, {n => {type => 'int'}}), "Type int $_") for qw(0 2 23 -0 -2 -23 2147483647 -2147483648);
373 ok(!validate({n => $_}, {n => {type => 'uint'}}), "Type uint $_") for qw(0 2 23 4294967295);
374 ok(validate({n => $_}, {n => {type => 'num'}}), "Type num invalid $_") for qw(0a a2 -0a 0..0 00 001 1.);
375 ok(validate({n => $_}, {n => {type => 'int'}}), "Type int invalid $_") for qw(1.1 0.1 0.0 -1.1 0a a2 a 00 001 2147483648 -2147483649);
376 ok(validate({n => $_}, {n => {type => 'uint'}}), "Type uint invalid $_") for qw(-1 -0 1.1 0.1 0.0 -1.1 0a a2 a 00 001 4294967296);
378 ### min_in_set checks
379 $v = {foo => {min_in_set => '2 of foo bar baz', max_values => 5}};
380 $e = validate({foo => 1}, $v);
381 ok($e, 'min_in_set');
382 $e = validate({foo => 1, bar => 1}, $v);
383 ok(! $e, 'min_in_set');
384 $e = validate({foo => 1, bar => ''}, $v); # empty string doesn't count as value
385 ok($e, 'min_in_set');
386 $e = validate({foo => 1, bar => 0}, $v);
387 ok(! $e, 'min_in_set');
388 $e = validate({foo => [1, 2]}, $v);
389 ok(! $e, 'min_in_set');
390 $e = validate({foo => [1]}, $v);
391 ok($e, 'min_in_set');
392 $v = {foo => {min_in_set => '2 foo bar baz', max_values => 5}};
393 $e = validate({foo => 1, bar => 1}, $v);
394 ok(! $e, 'min_in_set');
396 ### max_in_set checks
397 $v = {foo => {max_in_set => '2 of foo bar baz', max_values => 5}};
398 $e = validate({foo => 1}, $v);
399 ok(! $e, 'max_in_set');
400 $e = validate({foo => 1, bar => 1}, $v);
401 ok(! $e, 'max_in_set');
402 $e = validate({foo => 1, bar => 1, baz => 1}, $v);
403 ok($e, 'max_in_set');
404 $e = validate({foo => [1, 2]}, $v);
405 ok(! $e, 'max_in_set');
406 $e = validate({foo => [1, 2, 3]}, $v);
407 ok($e, 'max_in_set');
409 ### validate_if revisited (but negated - uses max_in_set)
410 $v = {foo => {required => 1, validate_if => '! bar'}};
411 $e = validate({}, $v);
412 ok($e, 'validate_if - negated');
414 $e = validate({bar => 1}, $v);
415 ok(! $e, 'validate_if - negated');
419 $v = {foo => {required => 1, default => 'hmmmm'}};
420 $e = validate($f, $v);
423 ok($f->{foo} && $f->{foo} eq 'hmmmm', 'had right default');