-my $f = $WebPAC::Input::Test::filter_coderef;
-ok(ref($f) eq 'CODE', 'filter_coderef');
-
-diag "regexps = ", dump($input->modify_file_regexps( $modify_file ));
-
-sub test_filter {
- my ($field, $from, $to) = @_;
- cmp_ok( $f->( $from, $field, 1 ), 'eq', $to, "filter $field |$from| -> |$to|" );
-}