use strict;
use warnings;
-use Cwd;
use File::Basename qw( dirname );
use File::Spec;
use Test::More tests => 25;
chdir File::Spec->catdir(dirname($0), '50-cgi')
or BAIL_OUT('cannot change to test directory ./50-cgi/');
-my $ORGDIR = '.'; # Cwd::getcwd();
# 0*: permission checks using generated dummy files
SKIP:
SKIP: {
my @inctests = glob '3*.html';
- my $INCFILE = File::Spec->rel2abs("$ORGDIR/missinginclude");
+ my $INCFILE = File::Spec->rel2abs("./missinginclude");
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?
- SCRIPT_FILENAME => "$ORGDIR/$_",
+ SCRIPT_FILENAME => "./$_",
PATH_INFO => '/test/123',
PATH_TRANSLATED => undef,
DOCUMENT_ROOT => undef,