t/php/arg.t

use strict;
use warnings FATAL => 'all';

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

plan tests => 1, have_module 'php4';

## 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($expected,
         $result,
         "GET request for /php/arg.php?$testargs"
        );