tags/v1_29/t/internal/taint.t

#!/usr/local/bin/perl -w

my(@tests) = qw{
    args env header_in
};

my $num_tests = scalar @tests;
print "1..$num_tests\n";

use Apache::testold;

my $ua = new LWP::UserAgent;    # create a useragent to test

my($request,$response,$str,$i);

foreach $q (@tests) {
    $netloc = $net::httpserver;
    $script = $net::perldir . "/taint.pl";

    $url = new URI::URL("http://$netloc$script?$q");

    $request = new HTTP::Request('GET', $url);

    print "GET $url\n\n";

    $response = $ua->request($request, undef, undef);

    $str = $response->as_string;
    print "$str\n";
    die "$1\n" if $str =~ /(Internal Server Error)/;


    test ++$i, ($response->is_success);
}

# avoid -w warning
$dummy = $net::httpserver;
$dummy = $net::perldir;