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