chdir File::Spec->catdir(dirname($0), '50-cgi')
or BAIL_OUT('cannot change to test directory ./50-cgi/');
chdir File::Spec->catdir(dirname($0), '50-cgi')
or BAIL_OUT('cannot change to test directory ./50-cgi/');
if (open my $dummy, "<", $INCFILE) { # like PLP::source will
fail("file missinginclude shouldn't exist");
skip("missinginclude tests (3*)", @inctests - 1);
if (open my $dummy, "<", $INCFILE) { # like PLP::source will
fail("file missinginclude shouldn't exist");
skip("missinginclude tests (3*)", @inctests - 1);
GATEWAY_INTERFACE => 'CGI/1.1',
SCRIPT_NAME => "/$_", #XXX: .plp?
GATEWAY_INTERFACE => 'CGI/1.1',
SCRIPT_NAME => "/$_", #XXX: .plp?
PATH_INFO => '/test/123',
PATH_TRANSLATED => undef,
DOCUMENT_ROOT => undef,
PATH_INFO => '/test/123',
PATH_TRANSLATED => undef,
DOCUMENT_ROOT => undef,