34 lines
673 B
Perl
34 lines
673 B
Perl
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"
|
|
);
|