X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/b7b9dad9e33b14e2364f6f69edc9bce5bdbd0cb2..58ad0f73721365480cd2c2bc844af04146ba1941:/t/50-cgi.t diff --git a/t/50-cgi.t b/t/50-cgi.t index b3d5105..bf60143 100644 --- a/t/50-cgi.t +++ b/t/50-cgi.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Cwd qw(cwd); +use File::Spec; use Test::More; eval { require PerlIO::scalar }; @@ -14,11 +14,12 @@ require_ok('PLP::Backend::CGI') or BAIL_OUT(); $PLP::use_cache = 0 if $PLP::use_cache; #TODO: caching on (change file names) -my $base = -w '/tmp' ? '/tmp' : cwd(); +my $base = 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"); -open ORGOUT, '>&', STDOUT; +open ORGOUT, '>&', *STDOUT; sub plp_is { my ($test, $plp, $expect) = @_; @@ -36,6 +37,7 @@ sub plp_is { close STDOUT; open STDOUT, '>', \my $output; # STDOUT buffered to scalar + select STDOUT; # output before start() (which selects PLPOUT) eval { local $SIG{__WARN__} = sub { print $_[0] }; # enables warnings PLP::everything(); @@ -177,6 +179,7 @@ SKIP: { chmod 0244, $testfile or skip("changed permissions", 1); plp_is('permission denied', undef, < @@ -194,6 +197,7 @@ chmod 0644, $testfile; $ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123"; plp_is('not found', undef, <