X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/346533b5a8c78963e00ab44598eeae628a91ce53..b6ecc856f9ee83de1465613f74e6eb585d38cf21:/t/50-cgi.t diff --git a/t/50-cgi.t b/t/50-cgi.t index 57e766b..d30bff2 100644 --- a/t/50-cgi.t +++ b/t/50-cgi.t @@ -1,7 +1,8 @@ use strict; use warnings; -use Cwd qw(cwd); +use Cwd; +use File::Spec; use Test::More; eval { require PerlIO::scalar }; @@ -14,7 +15,8 @@ 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 = 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"); @@ -36,6 +38,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(); @@ -118,32 +121,22 @@ if (open my $dummy, "<", $INCFILE) { # like PLP::source will my $INCWARN = qq{Can't open "$INCFILE" ($!)}; plp_is('warnings', split /\n\n/, < -2 -<: 42 :> -3 -<: warn "warning" :> -4 -<: include "missinginclude" :> -5 -<(missinginclude)> +1<: use warnings :> +2<: 42 :> +3<: warn "warning" :> +4<: include "missinginclude" :> +5<(missinginclude)> 6 $HEAD -Useless use of a constant in void context at $testfile line 4. +Useless use of a constant in void context at $testfile line 2. 1 - 2 +3warning at $testfile line 3. -3 -warning at $testfile line 6. - -4 -
Debug information:
$INCWARN at $testfile line 8. +4
Debug information:
$INCWARN at $testfile line 4.
-5 -
Debug information:
$INCWARN at $testfile line 10. +5
Debug information:
$INCWARN at $testfile line 5.
TEST @@ -177,6 +170,7 @@ SKIP: { chmod 0244, $testfile or skip("changed permissions", 1); plp_is('permission denied', undef, < @@ -194,6 +188,7 @@ chmod 0644, $testfile; $ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123"; plp_is('not found', undef, <