summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/php/var3.t
blob: efa19fe5b982c293dffac778aefc1254a16240bd (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
30
31
32
33
34
35
use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;

plan tests => 2, need_php;

## var3.php source:
## <?php echo "$v1 $v2 $v3"?>
##
## result should be variables v1, v2 and v3.

my $page = '/php/var3.php';
my $v1 = "blah1+blah2+FOO";
my $v2 = "this+is+v2";
my $v3 = "DOOM-GL00m";
my $data = "v1=$v1\&v2=$v2\&v3=$v3";
my $expected = "$v1 $v2 $v3";
$expected =~ s/\+/ /g;

## POST
my $return = POST_BODY $page, content => $data;
ok t_cmp($return,
         $expected,
         "POST request for $page, content=\"$data\""
        );

## GET
$return = GET_BODY "$page?$data";
ok t_cmp($return,
         $expected,
         "GET request for $page?$data"
        );