X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/e11a488e0909da46fd76f05a6aef47305055e43f..346533b5a8c78963e00ab44598eeae628a91ce53:/t/50-cgi.t diff --git a/t/50-cgi.t b/t/50-cgi.t index cd10ee4..57e766b 100644 --- a/t/50-cgi.t +++ b/t/50-cgi.t @@ -7,7 +7,7 @@ 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(); @@ -18,19 +18,21 @@ my $base = -w '/tmp' ? '/tmp' : cwd(); 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 @@ -106,6 +108,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 +140,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",