2
use warnings FATAL => 'all';
5
use Apache::TestRequest;
10
my $location = '/TestFilter__out_str_subreq_modperl';
12
my $content1 = "content\n";
13
my $content2 = "more content\n";
14
my $filter = "filter\n";
15
my $subrequest = "modperl subrequest\n";
17
my $expected = join '', $content1, $subrequest, $content2, $filter;
18
my $received = GET_BODY $location;
20
ok t_cmp($expected, $received,
21
"testing filter-originated lookup_uri() call to modperl-served URI");