- added testcase for #948

git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-1.4.x@1901 152afb58-edef-0310-8abb-c4023f1b3aa9

2 files changed, 15 insertions, 1 deletions

diff --git a/tests/docroot/www/404.pl b/tests/docroot/www/404.pl
index 7c6d29bc..0f743d03 100755
--- a/tests/docroot/www/404.pl
+++ b/tests/docroot/www/404.pl
@@ -3,6 +3,7 @@ use CGI qw/:standard/;
 my $cgi = new CGI;
 my $request_uri = $ENV{'REQUEST_URI'};
 print (STDERR "REQUEST_URI: $request_uri\n");
+
 if ($request_uri =~ m/^\/dynamic\/200\// ) {
   print header ( -status => 200,
                  -type   => 'text/plain' );
@@ -17,8 +18,16 @@ elsif ($request_uri =~ m/^\/dynamic\/404\// ) {
                  -type   => 'text/plain' );
   print ("Not found here\n");
 }
+elsif ($request_uri =~ m/^\/send404\.pl/ ) {
+  print header ( -status => 404
+                 -type   => 'text/plain' );
+  print ("Not found here (send404)\n");
+}
+elsif ($request_uri =~ m/^\/dynamic\/nostatus\// ) {
+  print ("found here\n");
+}
 else {
-  print header ( -status => 404,
+  print header ( -status => 500,
                  -type   => 'text/plain');
   print ("huh\n");
 };
diff --git a/tests/docroot/www/send404.pl b/tests/docroot/www/send404.pl
new file mode 100755
index 00000000..a92dfa6c
--- /dev/null
+++ b/tests/docroot/www/send404.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+use CGI qw/:standard/;
+print header ( -status => 404
+               -type   => 'text/plain' );
+print ("send404\n");