X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/e11a488e0909da46fd76f05a6aef47305055e43f..58ad0f73721365480cd2c2bc844af04146ba1941:/t/50-cgi.t diff --git a/t/50-cgi.t b/t/50-cgi.t index cd10ee4..bf60143 100644 --- a/t/50-cgi.t +++ b/t/50-cgi.t @@ -1,39 +1,43 @@ use strict; use warnings; -use Cwd qw(cwd); +use File::Spec; use Test::More; eval { require PerlIO::scalar }; plan skip_all => "PerlIO required (perl 5.8) to test PLP" if $@; -plan tests => 18; +plan tests => 20; 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) = @_; chomp $expect; local $Test::Builder::Level = $Test::Builder::Level + 1; - eval { - open my $testfh, '>', "$base/$testfile" or die $!; - print {$testfh} $plp or die $!; - close $testfh or die $!; - }; - not $@ or fail("write $testfile"), diag(" Error: $@"), return; + if (defined $plp) { + eval { + open my $testfh, '>', "$base/$testfile" or die $!; + print {$testfh} $plp or die $!; + close $testfh or die $!; + }; + not $@ or fail("write $testfile"), diag(" Error: $@"), return; + } 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(); @@ -106,6 +110,15 @@ $HEAD TEST +SKIP: { + +my $INCFILE = File::Spec->rel2abs("$base/missinginclude"); +if (open my $dummy, "<", $INCFILE) { # like PLP::source will + fail("file missinginclude shouldn't exist"); + skip("missinginclude tests", 2); +} +my $INCWARN = qq{Can't open "$INCFILE" ($!)}; + plp_is('warnings', split /\n\n/, < @@ -129,26 +142,25 @@ Useless use of a constant in void context at $testfile line 4. warning at $testfile line 6. 4 -
Debug information:
Can't open "$base/missinginclude" (No such file or directory) at $testfile line 8. +
Debug information:
$INCWARN at $testfile line 8.
5 -
Debug information:
Can't open "$base/missinginclude" (No such file or directory) at $testfile line 10. +
Debug information:
$INCWARN at $testfile line 10.
TEST plp_is('$PLP::ERROR', '<: $PLP::ERROR = sub {print "Oh no: $_[0]"} :> <(missinginclude)>.', - qq{$HEAD\n Oh no: Can't open "$base/missinginclude" (No such file or directory) at $testfile line 1.\n\n} + qq{$HEAD\n Oh no: $INCWARN at $testfile line 1.\n\n} ); -#TODO: 404 -#TODO: 403 - plp_is('$PLP::DEBUG', '<: $PLP::DEBUG = 2; delete $header{x_plp_version} :>1<(missinginclude)>2', "Content-Type: text/plain\n\nContent-Type: text/html\n\n1" ); +} + plp_is('utf8', '<: use open qw/:std :utf8/; print chr 191', < + +403 Forbidden + +

Forbidden

+You don't have permission to access /$testfile/test/123 on this server.

+

+ +TEST +chmod 0644, $testfile; +} + +$ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123"; +plp_is('not found', undef, < + +404 Not Found + +

Not Found

+The requested URL /$testfile/test/123 was not found on this server.

+

+ +TEST + %ENV = ( REQUEST_METHOD => 'GET', REQUEST_URI => "/$testfile/test/123",