From e4fe75f6569d246cbd535dbc0852f72f4f9995c4 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Mon, 20 Feb 2012 05:54:54 +0100 Subject: [PATCH] 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). --- t/50-cgi.t | 233 +++++++++--------------- t/50-cgi/01-404 not found.html | 12 ++ t/50-cgi/05-403 permission denied.html | 12 ++ t/50-cgi/10-static.html | 2 + t/50-cgi/10-static.plp | 1 + t/50-cgi/11-print.html | 3 + t/50-cgi/11-print.plp | 1 + t/50-cgi/12-<:=.html | 2 + t/50-cgi/12-<:=.plp | 1 + t/50-cgi/17-exit.html | 2 + t/50-cgi/17-exit.plp | 1 + t/50-cgi/18-PLP_END.html | 2 + t/50-cgi/18-PLP_END.plp | 1 + t/50-cgi/20-no warnings by default.html | 3 + t/50-cgi/20-no warnings by default.plp | 1 + t/50-cgi/24-include.html | 2 + t/50-cgi/24-include.plp | 1 + t/50-cgi/29-fatal error.html | 4 + t/50-cgi/29-fatal error.plp | 3 + t/50-cgi/30-warnings.html | 10 + t/50-cgi/30-warnings.plp | 6 + t/50-cgi/31-$PLP::ERROR.html | 3 + t/50-cgi/31-$PLP::ERROR.plp | 1 + t/50-cgi/32-$PLP::DEBUG.html | 5 + t/50-cgi/32-$PLP::DEBUG.plp | 4 + t/50-cgi/40-utf8.html | 4 + t/50-cgi/40-utf8.plp | 3 + t/50-cgi/42-apache %ENV.html | 2 + t/50-cgi/42-apache %ENV.plp | 1 + t/50-cgi/50-%get.html | 2 + t/50-cgi/50-%get.plp | 1 + t/50-cgi/51-%get array.html | 2 + t/50-cgi/51-%get array.plp | 1 + t/50-cgi/55-%header.html | 3 + t/50-cgi/55-%header.plp | 4 + t/50-cgi/56-%header repetition.html | 6 + t/50-cgi/56-%header repetition.plp | 1 + t/50-cgi/80-lighttpd %ENV.html | 2 + t/50-cgi/80-lighttpd %ENV.plp | 1 + 39 files changed, 198 insertions(+), 151 deletions(-) create mode 100644 t/50-cgi/01-404 not found.html create mode 100644 t/50-cgi/05-403 permission denied.html create mode 100644 t/50-cgi/10-static.html create mode 100644 t/50-cgi/10-static.plp create mode 100644 t/50-cgi/11-print.html create mode 100644 t/50-cgi/11-print.plp create mode 100644 t/50-cgi/12-<:=.html create mode 100644 t/50-cgi/12-<:=.plp create mode 100644 t/50-cgi/17-exit.html create mode 100644 t/50-cgi/17-exit.plp create mode 100644 t/50-cgi/18-PLP_END.html create mode 100644 t/50-cgi/18-PLP_END.plp create mode 100644 t/50-cgi/20-no warnings by default.html create mode 100644 t/50-cgi/20-no warnings by default.plp create mode 100644 t/50-cgi/24-include.html create mode 100644 t/50-cgi/24-include.plp create mode 100644 t/50-cgi/29-fatal error.html create mode 100644 t/50-cgi/29-fatal error.plp create mode 100644 t/50-cgi/30-warnings.html create mode 100644 t/50-cgi/30-warnings.plp create mode 100644 t/50-cgi/31-$PLP::ERROR.html create mode 100644 t/50-cgi/31-$PLP::ERROR.plp create mode 100644 t/50-cgi/32-$PLP::DEBUG.html create mode 100644 t/50-cgi/32-$PLP::DEBUG.plp create mode 100644 t/50-cgi/40-utf8.html create mode 100644 t/50-cgi/40-utf8.plp create mode 100644 t/50-cgi/42-apache %ENV.html create mode 100644 t/50-cgi/42-apache %ENV.plp create mode 100644 t/50-cgi/50-%get.html create mode 100644 t/50-cgi/50-%get.plp create mode 100644 t/50-cgi/51-%get array.html create mode 100644 t/50-cgi/51-%get array.plp create mode 100644 t/50-cgi/55-%header.html create mode 100644 t/50-cgi/55-%header.plp create mode 100644 t/50-cgi/56-%header repetition.html create mode 100644 t/50-cgi/56-%header repetition.plp create mode 100644 t/50-cgi/80-lighttpd %ENV.html create mode 100644 t/50-cgi/80-lighttpd %ENV.plp diff --git a/t/50-cgi.t b/t/50-cgi.t index d6c2856..6b0661a 100644 --- 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 = <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{ + (.*?) + }{ 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', <Debug information:
Can't set headers after sending them at testfile.plp line 1. -(Output started at testfile.plp line 1.) - -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", <Debug information:
$SYNTAXERR - -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/, < -2<: 42 :> -3<: warn "warning" :> -4<: include "missinginclude" :> -5<(missinginclude)> -6 - -$HEAD -${VOIDWARN} -1 -2 -3warning at $testfile line 3. - -4
Debug information:
$INCWARN at $testfile line 4. -
-5
Debug information:
$INCWARN at $testfile line 5. -
-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', < <:=$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, <PLP: Can't read: $base/$testfile (/$testfile/test/123) -Content-Type: text/html -Status: 403 - - - -403 Forbidden - -

Forbidden

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

-

- -TEST -chmod 0644, $testfile; -} +#TODO: %post +#TODO: %fields +#TODO: %cookie -my %nf = (PATH_TRANSLATED => "$base/missinginclude/test/123"); -plp_is('not found', undef, <PLP: Not found: $base/missinginclude/test/123 (/$testfile/test/123) -Content-Type: text/html -Status: 404 - - - -404 Not Found - -

Not Found

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

-

- -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 index 0000000..92c91d8 --- /dev/null +++ b/t/50-cgi/01-404 not found.html @@ -0,0 +1,12 @@ +PLP: Not found: $SCRIPT_FILENAME/test/123 (/$SCRIPT_NAME/test/123) +Content-Type: text/html +Status: 404 + + + +404 Not Found + +

Not Found

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

+

+ diff --git a/t/50-cgi/05-403 permission denied.html b/t/50-cgi/05-403 permission denied.html new file mode 100644 index 0000000..f3d6cdb --- /dev/null +++ b/t/50-cgi/05-403 permission denied.html @@ -0,0 +1,12 @@ +PLP: Can't read: $SCRIPT_FILENAME (/$SCRIPT_NAME/test/123) +Content-Type: text/html +Status: 403 + + + +403 Forbidden + +

Forbidden

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

+

+ diff --git a/t/50-cgi/10-static.html b/t/50-cgi/10-static.html new file mode 100644 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 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 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 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 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 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 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 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 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 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 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 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 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 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 index 0000000..b2b566f --- /dev/null +++ b/t/50-cgi/29-fatal error.html @@ -0,0 +1,4 @@ +$HEAD +
Debug information:
q +; syntax(error +
diff --git a/t/50-cgi/29-fatal error.plp b/t/50-cgi/29-fatal error.plp new file mode 100644 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 index 0000000..94972da --- /dev/null +++ b/t/50-cgi/30-warnings.html @@ -0,0 +1,10 @@ +$HEAD +'42' +1 +2 +3warning at $SCRIPT_NAME line 3. + +4
Debug information:
$INCWARN at $SCRIPT_NAME line 4. +
+5
Debug information:
$INCWARN at $SCRIPT_NAME line 5. +
diff --git a/t/50-cgi/30-warnings.plp b/t/50-cgi/30-warnings.plp new file mode 100644 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 index 0000000..1120e6d --- /dev/null +++ b/t/50-cgi/56-%header repetition.html @@ -0,0 +1,6 @@ +A: 1 +A: 2 +$HEAD +.
Debug information:
Can't set headers after sending them at $SCRIPT_NAME line 1. +(Output started at $SCRIPT_NAME line 1.) +
diff --git a/t/50-cgi/56-%header repetition.plp b/t/50-cgi/56-%header repetition.plp new file mode 100644 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 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 index 0000000..cc6f7dd --- /dev/null +++ b/t/50-cgi/80-lighttpd %ENV.plp @@ -0,0 +1 @@ +ok <:=$ENV{SCRIPT_NAME}:> <:=$ENV{SCRIPT_FILENAME} -- 2.30.0