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 ###----------------------------------------------------------------###
25 replace => 's/[^\d]//g',
31 foo => '123-456-7890',
37 key1 => 'Bu-nch @of characte#rs^',
38 key2 => '123 456 7890',
44 replace => 's/[^\s\w]//g',
48 $e = validate($form, $v);
49 ok(! $e && $form->{key1} eq 'Bunch of characters');
53 replace => 's/(\d{3})\D*(\d{3})\D*(\d{4})/($1) $2-$3/g',
57 $e = validate($form, $v);
58 ok(! $e && $form->{key2} eq '(123) 456-7890');
68 $e = validate($form, $v);
69 ok($e && $form->{key2} eq '');