48 lines
1.7 KiB
Perl
48 lines
1.7 KiB
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestRequest;
|
|
use Apache::TestUtil;
|
|
|
|
my @ts = (
|
|
# see t/conf/extra.conf.in
|
|
{ url => "/apache/sed/out-foo/foobar.html", content => 'barbar', msg => "sed output filter", code => '200' },
|
|
# error after status sent
|
|
{ url => "/apache/sed-echo/out-foo-grow/foobar.html", content => "", msg => "sed output filter too large", code => '200', body=>"foo" x (8192*1024), resplen=>0},
|
|
{ url => "/apache/sed-echo/input", content => 'barbar', msg => "sed input filter", code => '200', body=>"foobar" },
|
|
{ url => "/apache/sed-echo/input", content => undef, msg => "sed input filter", code => '200', body=>"foo" x (1024)},
|
|
# fixme: returns 400 default error doc for some people instead
|
|
# { url => "/apache/sed-echo/input", content => '!!!ERROR!!!', msg => "sed input filter", code => '200', skippable=>true body=>"foo" x (1024*4096)}
|
|
);
|
|
|
|
my $tests = 2*scalar @ts;
|
|
|
|
plan tests => $tests, need 'LWP::Protocol::AnyEvent::http', need_module('sed');
|
|
|
|
# Hack to allow streaming of data in/out of mod_echo
|
|
require LWP::Protocol::AnyEvent::http;
|
|
|
|
for my $t (@ts) {
|
|
my $req;
|
|
if (defined($t->{'body'})) {
|
|
t_debug "posting body of size ". length($t->{'body'});
|
|
$req = POST $t->{'url'}, content => $t->{'body'};
|
|
t_debug "... posted body of size ". length($t->{'body'});
|
|
}
|
|
else {
|
|
$req = GET $t->{'url'};
|
|
}
|
|
t_debug "Content Length " . length $req->content;
|
|
ok t_cmp($req->code, $t->{'code'}, "status code for " . $t->{'url'});
|
|
if (defined($t->{content})) {
|
|
my $content = $req->content;
|
|
chomp($content);
|
|
ok t_cmp($content, $t->{content}, $t->{msg});
|
|
}
|
|
else {
|
|
ok "no body check";
|
|
}
|
|
}
|
|
|
|
|