request.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# Test ability to retrieve HTTP request info
######################### We start with some black magic to print on failure.
use CGI ();
use Config;
$loaded = 1;
print "ok 1\n";
######################### End of black magic.
# util
sub test {
local($^W) = 0;
}
# Set up a CGI environment
test(2,$q,"CGI::new()");
test(12,$q->query_string eq 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux");
"CGI::url()");
test(19,$q->url(-relative=>1,-path=>1) eq 'foo.cgi/somewhere/else','CGI::url(-relative=>1,-path=>1)');
'CGI::url(-relative=>1,-path=>1,-query=>1)');
$q->_reset_globals;
# test tied interface
my $p = $q->Vars;
# test posting
$q->_reset_globals;
print CHILD $test_string;
exit 0;
}
# at this point, we're in a new (child) process
} else {
print "ok 31 # Skip\n";
print "ok 32 # Skip\n";
print "ok 33 # Skip\n";
}