blob: 66ae95df73fd0f6d5c4246d97f969fcf4d07710f (
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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
plan tests => 4, need_php;
my $expect = "status=200:method=GET:uri=/php/target.php";
my $r = GET_BODY "/php/lookup.php";
chomp $r;
ok t_cmp($r, $expect, "apache_lookup_uri results OK");
# regression test for http://bugs.php.net/bug.php?id=31645
$r = GET("/php/lookup2.php");
ok t_cmp($r->header("X-Before"), "foobar", "header set before apache_lookup_uri");
ok t_cmp($r->header("X-After"), "foobar", "header set after apache_lookup_uri");
my $c = $r->content;
chomp $c;
ok t_cmp($c, $expect, "second apache_lookup_uri results");
|
