29 lines
647 B
Perl
29 lines
647 B
Perl
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");
|
|
|