X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/095ac3b8fc366cf1dd634bb746d6720d72b7b9da..fe22802045bae19ea53858a20b4752eb9e9bcac8:/t/50-cgi.t

diff --git a/t/50-cgi.t b/t/50-cgi.t
index 3ad0deb..ed39da5 100644
--- a/t/50-cgi.t
+++ b/t/50-cgi.t
@@ -1,12 +1,9 @@
 use strict;
 use warnings;
 
-use Cwd;
 use File::Basename qw( dirname );
 use File::Spec;
-use Test::More;
-
-plan tests => 25;
+use Test::More tests => 25;
 
 use_ok('Test::PLP');
 
@@ -15,7 +12,6 @@ $PLP::use_cache = 0 if $PLP::use_cache;
 
 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:
@@ -49,7 +45,7 @@ plp_ok($_) for glob '[12]*.html';
 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);
@@ -82,7 +78,7 @@ plp_ok($_, -env => {
 	GATEWAY_INTERFACE => 'CGI/1.1',
 	
 	SCRIPT_NAME => "/$_", #XXX: .plp?
-	SCRIPT_FILENAME => "$ORGDIR/$_",
+	SCRIPT_FILENAME => "./$_",
 	PATH_INFO => '/test/123',
 	PATH_TRANSLATED => undef,
 	DOCUMENT_ROOT => undef,