summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/php/var2.t
blob: 2080b7efa35a459fc5f85fbd95ba6d75def57dd3 (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
use strict;
use warnings FATAL => 'all';

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

plan tests => 2, need_php;

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

my $page = '/php/var2.php';
my $v1 = "blah1+blah2+FOO";
my $v2 = "this+is+v2";
my $data = "v1=$v1\&v2=$v2";
my $expected = "$v1 $v2";
$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"
        );