t/50-cgi: separate i/o in external files

Distinct files should be easier to read and maintain than inline mess.
Read input from *.plp and match output to *.html with the same filename,
with initials indicating environment (1-3* cgi, 4-7* apache, 8* lighttpd).

diff --git a/t/50-cgi.t b/t/50-cgi.t
index d6c2856de5a6162f35cf4d95c331f3dd5d243c8e..6b0661a2bd891e7320d5c34ad1aa0b814dc95b76 100644 (file)
--- a/t/50-cgi.t
+++ b/t/50-cgi.t
@@ -2,6 +2,7 @@ use strict;
 use warnings;
 
 use Cwd;
+use File::Basename qw( dirname );
 use File::Spec;
 use Test::More;
 
@@ -22,49 +23,37 @@ eval {
 eval { require PerlIO::scalar };
 plan skip_all => "PerlIO required (perl 5.8) to test PLP" if $@;
 
-plan tests => 20;
+plan tests => 21;
 
 require_ok('PLP::Backend::CGI') or BAIL_OUT();
 
 $PLP::use_cache = 0 if $PLP::use_cache;
 #TODO: caching on (change file names)
 
-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");
-
+chdir File::Spec->catdir(dirname($0), '50-cgi')
+       or BAIL_OUT('cannot change to test directory ./50-cgi/');
+my $ORGDIR = Cwd::getcwd();
 open ORGOUT, '>&', *STDOUT;
 
 sub plp_is {
-       my ($test, $plp, $expect, $env) = @_;
-       chomp $expect;
+       my ($test, $src, $expect, $env) = @_;
        local $Test::Builder::Level = $Test::Builder::Level + 1;
 
        %ENV = (
                REQUEST_METHOD => 'GET',
-               REQUEST_URI => "/$testfile/test/123",
+               REQUEST_URI => "/$src/test/123",
                QUERY_STRING => 'test=1&test=2',
                GATEWAY_INTERFACE => 'CGI/1.1',
                
                SCRIPT_NAME => '/plp.cgi',
-               SCRIPT_FILENAME => "$base/plp.cgi",
-               PATH_INFO => "/$testfile/test/123",
-               PATH_TRANSLATED => "$base/$testfile/test/123",
-               DOCUMENT_ROOT => $base,
+               SCRIPT_FILENAME => "$ORGDIR/plp.cgi",
+               PATH_INFO => "/$src/test/123",
+               PATH_TRANSLATED => "$ORGDIR/$src/test/123",
+               DOCUMENT_ROOT => $ORGDIR,
                
                $env ? %{$env} : (),
        ); # Apache/2.2.4 CGI environment
 
-       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)
@@ -99,161 +88,103 @@ sub getwarning {
        my $res = $@;
        chomp $res;
        return $res;
-};
-
-my $HEAD = <<EOT;  # common header output
-Content-Type: text/html
-X-PLP-Version: $PLP::VERSION
-EOT
+}
 
-plp_is('print', '0<: print print 2 :>3', "$HEAD\n0213");
+sub plp_ok {
+       my ($file, %replace) = @_;
 
-plp_is('exit', '1<:exit:>not <(reached)>', "$HEAD\n1");
+       (my $name = $file) =~ s/[.][^.]+$//;
+       $file = "$name.html";
+       my $infile = delete $replace{-input} // "$name.plp";
+       $name =~ s/^(\d*)-// and $name .= " ($1)";
 
-plp_is('<:=', '1<:=$foo=2:>3<:= $foo', "$HEAD\n1232");
+       my $out = eval {
+               local $/ = undef;  # slurp
+               open my $fh, '<', $file or die "$!\n";
+               return readline $fh;
+       };
+       if (not defined $out) {
+               fail($name);
+               diag("error reading output from $file: $@");
+               return;
+       }
 
-plp_is('%get', '<: print $get{test} if defined $get{test} and not exists $get{test2}', "$HEAD\n2\n");
+       my $env = delete $replace{-env};
+       $replace{HEAD} //= "Content-Type: text/html\nX-PLP-Version: $PLP::VERSION\n";
+       $replace{VERSION        } //= $PLP::VERSION;
+       $replace{SCRIPT_NAME    } //= $infile;
+       $replace{SCRIPT_FILENAME} //= "$ORGDIR/$infile";
 
-plp_is('%get array', '<:= @{$get{q/@test/}}', "$HEAD\n12\n");
+       chomp $out;
+       $out =~ s/\$$_/$replace{$_}/g for keys %replace;
+       $out =~ s{
+               <eval \s+ line="([^"]*)"> (.*?) </eval>
+       }{ getwarning($2, $1, $infile) }msxge;
 
-plp_is('%header',
-       '<: $headers{_test}=2; print $header{x_PLP_version}; BEGIN { $header{"-tesT"}=1 }',
-       "-tesT: 2\n$HEAD\n$PLP::VERSION"
-);
+       plp_is($name, $infile, $out, $env);
+}
 
-plp_is('%header repetition', '.<: BEGIN{$header{A}="1\n2"} $header{A}=3', <<TEST);
-A: 1
-A: 2
-$HEAD
-.<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>Can't set headers after sending them at testfile.plp line 1.
-(Output started at testfile.plp line 1.)
-</td></tr></table>
-TEST
+# 0*: permission checks using generated dummy files
+SKIP:
+for my $file (glob '0*.html') {
+       $file =~ s/[.]html$/.plp/;
+       my ($mode) = $file =~ /^..-(\d*)\b/;
+       eval {
+               if ($mode eq 404) {
+                       return 1;  # do not create
+               }
 
-#TODO: %post
-#TODO: %fields
-#TODO: %cookie
+               # prepare input
+               open my $out, '>', $file or die "cannot generate source file ($!)\n";
+               print {$out} 'ok';
 
-plp_is('PLP_END', '<: PLP_END{print 1}; PLP_END{print 2}; print 3', "$HEAD\n321");
+               if ($mode eq 403) {
+                       chmod 0244, $file or die "cannot change permissions ($!)\n";
+               }
 
-plp_is('no warnings by default', '<: ignoreme :>ok', "$HEAD\nok");
+               return -e $file;
+       } or chomp $@, skip("$file: $@", 1);  # ignore generation failure
 
-rename "$base/$testfile", "$base/$testfile.inc";
-plp_is('include', "<($testfile.inc)> <: include '$testfile.inc'", "$HEAD\nok ok");
-unlink "$base/$testfile.inc";
+       plp_ok($file);
+       eval { unlink $file };  # clean up
+}
 
-my $SYNTAXERR = getwarning("q\cq\n\cq; syntax(error", 1, $testfile);
-plp_is('fatal error', "runtime\n<: syntax(error :>\nruntime", <<TEST);
-$HEAD
-<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>$SYNTAXERR
-</td></tr></table>
-TEST
+# 1*-2*: generic tests with standard environment
+plp_ok($_) for glob '[12]*.html';
 
+# 3*: error tests depending on warning message
 SKIP: {
+       my @inctests = glob '3*.html';
 
-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" ($!)};
-
-my $VOIDWARN = getwarning('42', 2, $testfile);
-
-plp_is('warnings', split /\n\n/, <<TEST, 2);
-1<: use warnings :>
-2<: 42 :>
-3<: warn "warning" :>
-4<: include "missinginclude" :>
-5<(missinginclude)>
-6
-
-$HEAD
-<warning>${VOIDWARN}</warning>
-1
-2
-3<warning>warning at $testfile line 3.</warning>
-
-4<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>$INCWARN at $testfile line 4.
-</td></tr></table>
-5<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>$INCWARN at $testfile line 5.
-</td></tr></table>
-TEST
-
-plp_is('$PLP::ERROR',
-       '<: $PLP::ERROR = sub {print "Oh no: $_[0]"} :> <(missinginclude)>.',
-       qq{$HEAD\n Oh no: $INCWARN at $testfile line 1.\n\n}
-);
-
-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"
-);
+       my $INCFILE = File::Spec->rel2abs("$ORGDIR/missinginclude");
+       if (open my $dummy, "<", $INCFILE) {  # like PLP::source will
+               fail("file missinginclude shouldn't exist");
+               skip("missinginclude tests (3*)", @inctests - 1);
+       }
+       my $INCWARN = qq{Can't open "$INCFILE" ($!)};
 
+       plp_ok($_, INCWARN => $INCWARN) for @inctests;
 }
 
-plp_is('utf8', '<: use open qw/:std :utf8/; print chr 191', <<TEST);
-Content-Type: text/html; charset=utf-8
-X-PLP-Version: $PLP::VERSION
-
-\302\277
-TEST
-
-my @envtest = (
-       'ok <:=$ENV{SCRIPT_NAME}:> <:=$ENV{SCRIPT_FILENAME}',
-       "$HEAD\nok /$testfile $base/$testfile"
-);
-
-plp_is('%ENV (on apache)', @envtest);
+# 4*-7*: apache environment (default)
+plp_ok($_) for glob '[4-7]*.html';
 
-SKIP: {
-chmod 0244, $testfile or skip("changed permissions", 1);
-plp_is('permission denied', undef, <<TEST);
-<warning>PLP: Can't read: $base/$testfile (/$testfile/test/123)</warning>
-Content-Type: text/html
-Status: 403
-
-<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
-<html><head>
-<title>403 Forbidden</title>
-</head></body>
-<h1>Forbidden</h1>
-You don't have permission to access /$testfile/test/123 on this server.<p>
-<hr>
-</body></html>
-TEST
-chmod 0644, $testfile;
-}
+#TODO: %post
+#TODO: %fields
+#TODO: %cookie
 
-my %nf = (PATH_TRANSLATED => "$base/missinginclude/test/123");
-plp_is('not found', undef, <<TEST, \%nf);
-<warning>PLP: Not found: $base/missinginclude/test/123 (/$testfile/test/123)</warning>
-Content-Type: text/html
-Status: 404
-
-<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
-<html><head>
-<title>404 Not Found</title>
-</head></body>
-<h1>Not Found</h1>
-The requested URL /$testfile/test/123 was not found on this server.<p>
-<hr>
-</body></html>
-TEST
-
-plp_is('%ENV on lighttpd', @envtest, {
+# 8*: lighttpd environment
+plp_ok($_, -env => {
        # lighttpd/1.4.7 CGI environment
        REQUEST_METHOD => 'GET',
-       REQUEST_URI => "/$testfile/test/123",
+       REQUEST_URI => "/$_/test/123",
        QUERY_STRING => 'test=1&test=2',
        GATEWAY_INTERFACE => 'CGI/1.1',
        
-       SCRIPT_NAME => "/$testfile", #XXX: .plp?
-       SCRIPT_FILENAME => "$base/$testfile",
+       SCRIPT_NAME => "/$_", #XXX: .plp?
+       SCRIPT_FILENAME => "$ORGDIR/$_",
        PATH_INFO => '/test/123',
        PATH_TRANSLATED => undef,
        DOCUMENT_ROOT => undef,
-});
-
-unlink "$base/$testfile";
+}) for glob '8*.plp';
 

diff --git a/t/50-cgi/01-404 not found.html b/t/50-cgi/01-404 not found.html
new file mode 100644 (file)
index 0000000..92c91d8
--- /dev/null
+++ b/t/50-cgi/01-404 not found.html
@@ -0,0 +1,12 @@
+<warning>PLP: Not found: $SCRIPT_FILENAME/test/123 (/$SCRIPT_NAME/test/123)</warning>
+Content-Type: text/html
+Status: 404
+
+<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
+<html><head>
+<title>404 Not Found</title>
+</head></body>
+<h1>Not Found</h1>
+The requested URL /$SCRIPT_NAME/test/123 was not found on this server.<p>
+<hr>
+</body></html>

diff --git a/t/50-cgi/05-403 permission denied.html b/t/50-cgi/05-403 permission denied.html
new file mode 100644 (file)
index 0000000..f3d6cdb
--- /dev/null
+++ b/t/50-cgi/05-403 permission denied.html
@@ -0,0 +1,12 @@
+<warning>PLP: Can't read: $SCRIPT_FILENAME (/$SCRIPT_NAME/test/123)</warning>
+Content-Type: text/html
+Status: 403
+
+<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
+<html><head>
+<title>403 Forbidden</title>
+</head></body>
+<h1>Forbidden</h1>
+You don't have permission to access /$SCRIPT_NAME/test/123 on this server.<p>
+<hr>
+</body></html>

diff --git a/t/50-cgi/10-static.html b/t/50-cgi/10-static.html
new file mode 100644 (file)
index 0000000..1bb0a65
--- /dev/null
+++ b/t/50-cgi/10-static.html
@@ -0,0 +1,2 @@
+$HEAD
+ok

diff --git a/t/50-cgi/10-static.plp b/t/50-cgi/10-static.plp
new file mode 100644 (file)
index 0000000..b5754e2
--- /dev/null
+++ b/t/50-cgi/10-static.plp
@@ -0,0 +1 @@
+ok
\ No newline at end of file

diff --git a/t/50-cgi/11-print.html b/t/50-cgi/11-print.html
new file mode 100644 (file)
index 0000000..f642bf9
--- /dev/null
+++ b/t/50-cgi/11-print.html
@@ -0,0 +1,3 @@
+$HEAD
+0213
+

diff --git a/t/50-cgi/11-print.plp b/t/50-cgi/11-print.plp
new file mode 100644 (file)
index 0000000..dd7a44c
--- /dev/null
+++ b/t/50-cgi/11-print.plp
@@ -0,0 +1 @@
+0<: print print 2 :>3

diff --git a/t/50-cgi/12-<:=.html b/t/50-cgi/12-<:=.html
new file mode 100644 (file)
index 0000000..9712f69
--- /dev/null
+++ b/t/50-cgi/12-<:=.html
@@ -0,0 +1,2 @@
+$HEAD
+1232

diff --git a/t/50-cgi/12-<:=.plp b/t/50-cgi/12-<:=.plp
new file mode 100644 (file)
index 0000000..d9a3b28
--- /dev/null
+++ b/t/50-cgi/12-<:=.plp
@@ -0,0 +1 @@
+1<:=$foo=2:>3<:= $foo

diff --git a/t/50-cgi/17-exit.html b/t/50-cgi/17-exit.html
new file mode 100644 (file)
index 0000000..d9f35ca
--- /dev/null
+++ b/t/50-cgi/17-exit.html
@@ -0,0 +1,2 @@
+$HEAD
+1

diff --git a/t/50-cgi/17-exit.plp b/t/50-cgi/17-exit.plp
new file mode 100644 (file)
index 0000000..5602fb9
--- /dev/null
+++ b/t/50-cgi/17-exit.plp
@@ -0,0 +1 @@
+1<:exit:>not <(reached)>

diff --git a/t/50-cgi/18-PLP_END.html b/t/50-cgi/18-PLP_END.html
new file mode 100644 (file)
index 0000000..f3a7558
--- /dev/null
+++ b/t/50-cgi/18-PLP_END.html
@@ -0,0 +1,2 @@
+$HEAD
+321

diff --git a/t/50-cgi/18-PLP_END.plp b/t/50-cgi/18-PLP_END.plp
new file mode 100644 (file)
index 0000000..452f2bb
--- /dev/null
+++ b/t/50-cgi/18-PLP_END.plp
@@ -0,0 +1 @@
+<: PLP_END{print 1}; PLP_END{print 2}; print 3

diff --git a/t/50-cgi/20-no warnings by default.html b/t/50-cgi/20-no warnings by default.html
new file mode 100644 (file)
index 0000000..1fb1190
--- /dev/null
+++ b/t/50-cgi/20-no warnings by default.html
@@ -0,0 +1,3 @@
+$HEAD
+ok
+

diff --git a/t/50-cgi/20-no warnings by default.plp b/t/50-cgi/20-no warnings by default.plp
new file mode 100644 (file)
index 0000000..014fc10
--- /dev/null
+++ b/t/50-cgi/20-no warnings by default.plp
@@ -0,0 +1 @@
+<: ignoreme :>ok

diff --git a/t/50-cgi/24-include.html b/t/50-cgi/24-include.html
new file mode 100644 (file)
index 0000000..a093590
--- /dev/null
+++ b/t/50-cgi/24-include.html
@@ -0,0 +1,2 @@
+$HEAD
+ok ok

diff --git a/t/50-cgi/24-include.plp b/t/50-cgi/24-include.plp
new file mode 100644 (file)
index 0000000..b666742
--- /dev/null
+++ b/t/50-cgi/24-include.plp
@@ -0,0 +1 @@
+<(10-static.plp)> <: include '10-static.plp'

diff --git a/t/50-cgi/29-fatal error.html b/t/50-cgi/29-fatal error.html
new file mode 100644 (file)
index 0000000..b2b566f
--- /dev/null
+++ b/t/50-cgi/29-fatal error.html
@@ -0,0 +1,4 @@
+$HEAD
+<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br><eval line="1">q\11
+\11; syntax(error</eval>
+</td></tr></table>

diff --git a/t/50-cgi/29-fatal error.plp b/t/50-cgi/29-fatal error.plp
new file mode 100644 (file)
index 0000000..51aa475
--- /dev/null
+++ b/t/50-cgi/29-fatal error.plp
@@ -0,0 +1,3 @@
+runtime
+<: syntax(error :>
+runtime

diff --git a/t/50-cgi/30-warnings.html b/t/50-cgi/30-warnings.html
new file mode 100644 (file)
index 0000000..94972da
--- /dev/null
+++ b/t/50-cgi/30-warnings.html
@@ -0,0 +1,10 @@
+$HEAD
+<warning><eval line="2">'42'</eval></warning>
+1
+2
+3<warning>warning at $SCRIPT_NAME line 3.</warning>
+
+4<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>$INCWARN at $SCRIPT_NAME line 4.
+</td></tr></table>
+5<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>$INCWARN at $SCRIPT_NAME line 5.
+</td></tr></table>

diff --git a/t/50-cgi/30-warnings.plp b/t/50-cgi/30-warnings.plp
new file mode 100644 (file)
index 0000000..0d4e559
--- /dev/null
+++ b/t/50-cgi/30-warnings.plp
@@ -0,0 +1,6 @@
+1<: use warnings :>
+2<: 42 :>
+3<: warn "warning" :>
+4<: include "missinginclude" :>
+5<(missinginclude)>
+6

diff --git a/t/50-cgi/31-$PLP::ERROR.html b/t/50-cgi/31-$PLP::ERROR.html
new file mode 100644 (file)
index 0000000..2dc57f4
--- /dev/null
+++ b/t/50-cgi/31-$PLP::ERROR.html
@@ -0,0 +1,3 @@
+$HEAD
+ Oh no: $INCWARN at $SCRIPT_NAME line 1.
+

diff --git a/t/50-cgi/31-$PLP::ERROR.plp b/t/50-cgi/31-$PLP::ERROR.plp
new file mode 100644 (file)
index 0000000..1f6dec0
--- /dev/null
+++ b/t/50-cgi/31-$PLP::ERROR.plp
@@ -0,0 +1 @@
+<: $PLP::ERROR = sub {print "Oh no: $_[0]"} :> <(missinginclude)>.

diff --git a/t/50-cgi/32-$PLP::DEBUG.html b/t/50-cgi/32-$PLP::DEBUG.html
new file mode 100644 (file)
index 0000000..1fd608e
--- /dev/null
+++ b/t/50-cgi/32-$PLP::DEBUG.html
@@ -0,0 +1,5 @@
+Content-Type: text/plain
+
+Content-Type: text/html
+
+1

diff --git a/t/50-cgi/32-$PLP::DEBUG.plp b/t/50-cgi/32-$PLP::DEBUG.plp
new file mode 100644 (file)
index 0000000..0d4d9c8
--- /dev/null
+++ b/t/50-cgi/32-$PLP::DEBUG.plp
@@ -0,0 +1,4 @@
+<:
+$PLP::DEBUG = 2;
+delete $header{x_plp_version}
+:>1<(missinginclude)>2

diff --git a/t/50-cgi/40-utf8.html b/t/50-cgi/40-utf8.html
new file mode 100644 (file)
index 0000000..a5b4355
--- /dev/null
+++ b/t/50-cgi/40-utf8.html
@@ -0,0 +1,4 @@
+Content-Type: text/html; charset=utf-8
+X-PLP-Version: $VERSION
+
+¿

diff --git a/t/50-cgi/40-utf8.plp b/t/50-cgi/40-utf8.plp
new file mode 100644 (file)
index 0000000..eabfc1f
--- /dev/null
+++ b/t/50-cgi/40-utf8.plp
@@ -0,0 +1,3 @@
+<:
+use open qw/:std :utf8/;
+print chr 191;

diff --git a/t/50-cgi/42-apache %ENV.html b/t/50-cgi/42-apache %ENV.html
new file mode 100644 (file)
index 0000000..15f95f6
--- /dev/null
+++ b/t/50-cgi/42-apache %ENV.html
@@ -0,0 +1,2 @@
+$HEAD
+ok /$SCRIPT_NAME $SCRIPT_FILENAME

diff --git a/t/50-cgi/42-apache %ENV.plp b/t/50-cgi/42-apache %ENV.plp
new file mode 100644 (file)
index 0000000..cc6f7dd
--- /dev/null
+++ b/t/50-cgi/42-apache %ENV.plp
@@ -0,0 +1 @@
+ok <:=$ENV{SCRIPT_NAME}:> <:=$ENV{SCRIPT_FILENAME}

diff --git a/t/50-cgi/50-%get.html b/t/50-cgi/50-%get.html
new file mode 100644 (file)
index 0000000..e86b1ab
--- /dev/null
+++ b/t/50-cgi/50-%get.html
@@ -0,0 +1,2 @@
+$HEAD
+2

diff --git a/t/50-cgi/50-%get.plp b/t/50-cgi/50-%get.plp
new file mode 100644 (file)
index 0000000..f61448a
--- /dev/null
+++ b/t/50-cgi/50-%get.plp
@@ -0,0 +1 @@
+<: print $get{test} if defined $get{test} and not exists $get{test2}

diff --git a/t/50-cgi/51-%get array.html b/t/50-cgi/51-%get array.html
new file mode 100644 (file)
index 0000000..f6518d6
--- /dev/null
+++ b/t/50-cgi/51-%get array.html
@@ -0,0 +1,2 @@
+$HEAD
+12

diff --git a/t/50-cgi/51-%get array.plp b/t/50-cgi/51-%get array.plp
new file mode 100644 (file)
index 0000000..ccd03d3
--- /dev/null
+++ b/t/50-cgi/51-%get array.plp
@@ -0,0 +1 @@
+<:= @{$get{q/@test/}}

diff --git a/t/50-cgi/55-%header.html b/t/50-cgi/55-%header.html
new file mode 100644 (file)
index 0000000..f35933c
--- /dev/null
+++ b/t/50-cgi/55-%header.html
@@ -0,0 +1,3 @@
+-tesT: 2
+$HEAD
+$VERSION

diff --git a/t/50-cgi/55-%header.plp b/t/50-cgi/55-%header.plp
new file mode 100644 (file)
index 0000000..5fcee9f
--- /dev/null
+++ b/t/50-cgi/55-%header.plp
@@ -0,0 +1,4 @@
+<:
+$headers{_test}=2;
+print $header{x_PLP_version};
+BEGIN { $header{"-tesT"} = 1 }

diff --git a/t/50-cgi/56-%header repetition.html b/t/50-cgi/56-%header repetition.html
new file mode 100644 (file)
index 0000000..1120e6d
--- /dev/null
+++ b/t/50-cgi/56-%header repetition.html
@@ -0,0 +1,6 @@
+A: 1
+A: 2
+$HEAD
+.<table border=1 class="PLPerror"><tr><td><b>Debug information:</b><br>Can't set headers after sending them at $SCRIPT_NAME line 1.
+(Output started at $SCRIPT_NAME line 1.)
+</td></tr></table>

diff --git a/t/50-cgi/56-%header repetition.plp b/t/50-cgi/56-%header repetition.plp
new file mode 100644 (file)
index 0000000..115290c
--- /dev/null
+++ b/t/50-cgi/56-%header repetition.plp
@@ -0,0 +1 @@
+.<: BEGIN{$header{A}="1\n2"} $header{A}=3

diff --git a/t/50-cgi/80-lighttpd %ENV.html b/t/50-cgi/80-lighttpd %ENV.html
new file mode 100644 (file)
index 0000000..15f95f6
--- /dev/null
+++ b/t/50-cgi/80-lighttpd %ENV.html
@@ -0,0 +1,2 @@
+$HEAD
+ok /$SCRIPT_NAME $SCRIPT_FILENAME

diff --git a/t/50-cgi/80-lighttpd %ENV.plp b/t/50-cgi/80-lighttpd %ENV.plp
new file mode 100644 (file)
index 0000000..cc6f7dd
--- /dev/null
+++ b/t/50-cgi/80-lighttpd %ENV.plp
@@ -0,0 +1 @@
+ok <:=$ENV{SCRIPT_NAME}:> <:=$ENV{SCRIPT_FILENAME}