blob: 400418a8c0e7bee1118b0d90a0f8ab519b77b01f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
#test output of some other modules
my %urls = (
mod_php4 => '/php/var3u.php',
mod_cgi => '/modules/cgi/perl_echo.pl',
mod_echo_post => '/echo_post',
);
my @filter = ('X-AddInputFilter' => 'CaseFilterIn'); #mod_client_add_filter
for my $module (keys %urls) {
delete $urls{$module} unless have_module($module);
}
my $tests = 1 + scalar keys %urls;
plan tests => $tests, need_module 'case_filter_in';
ok 1;
my $data = "v1=one&v3=two&v2=three";
for my $module (sort keys %urls) {
my $r = POST $urls{$module}, @filter, content => $data;
print "# testing $module with $urls{$module}\n";
print "# expected 200\n";
print "# received ".$r->code."\n";
verify($r);
}
sub verify {
my $r = shift;
my $body = $r->content;
ok $r->code == 200 and $body
and $body =~ /[A-Z]/ and $body !~ /[a-z]/;
}
|