5 1_validate_12_change.t - Test CGI::Ex::Validate's ability to modify form fields
10 use Test::More tests => 5;
13 use_ok('CGI::Ex::Validate');
16 sub validate { scalar CGI::Ex::Validate::validate(@_) }
19 ###----------------------------------------------------------------###
24 replace => 's/[^\d]//g',
29 foo => '123-456-7890',
31 ok(! $e, "Didn't get error");
35 key1 => 'Bu-nch @of characte#rs^',
36 key2 => '123 456 7890',
42 replace => 's/[^\s\w]//g',
46 $e = validate($form, $v);
47 ok(! $e && $form->{key1} eq 'Bunch of characters', "No error and key1 updated");
51 replace => 's/(\d{3})\D*(\d{3})\D*(\d{4})/($1) $2-$3/g',
55 $e = validate($form, $v);
56 ok(! $e && $form->{key2} eq '(123) 456-7890', "No error and phone updated");
65 $e = validate($form, $v);
66 ok($e && $form->{key2} eq '', "Error with all replaced");