File: lookup.t

package info (click to toggle)
apache2 2.4.66-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 59,500 kB
  • sloc: ansic: 212,331; python: 13,830; perl: 11,307; sh: 7,258; php: 1,320; javascript: 1,314; awk: 749; makefile: 715; lex: 374; yacc: 161; xml: 2
file content (29 lines) | stat: -rw-r--r-- 647 bytes parent folder | download | duplicates (7) 
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");