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 => 1, need_php;
## arg.php source:
## <?php
## for($i=0;$i<$argc;$i++) {
## echo "$i: ".$argv[$i]."\n";
## }
## ?>
##
## result should be '<arg number>: <arg>' for each arg sent.
my @testargs = ('foo', 'b@r', 'testarg123-456-fu', 'ARGV', 'hello%20world');
my ($expected, $testargs) = ('','');
my $count = 0;
foreach (@testargs) {
$testargs .= "$_+";
$expected .= "$count: $_\n";
$count++;
}
chop($testargs); ## get rid of trailing '+'
my $result = GET_BODY "/php/arg.php?$testargs";
ok t_cmp($result,
$expected,
"GET request for /php/arg.php?$testargs"
);
|
