X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/99f798d436793924b931174d4fdc3de715ef03b7..b6ecc856f9ee83de1465613f74e6eb585d38cf21:/t/50-cgi.t diff --git a/t/50-cgi.t b/t/50-cgi.t index fec88e3..d30bff2 100644 --- a/t/50-cgi.t +++ b/t/50-cgi.t @@ -1,6 +1,7 @@ use strict; use warnings; +use Cwd; use File::Spec; use Test::More; @@ -14,7 +15,7 @@ require_ok('PLP::Backend::CGI') or BAIL_OUT(); $PLP::use_cache = 0 if $PLP::use_cache; #TODO: caching on (change file names) -my $base = File::Spec->tmpdir || File::Spec->curdir; +my $base = Cwd::abs_path(File::Spec->tmpdir || File::Spec->curdir); -w $base or BAIL_OUT("$base not writable"); my $testfile = 'testfile.plp'; not -f "$base/$testfile" or BAIL_OUT("$testfile exists");