From: Don Armstrong <don@volo>
Date: Sat, 17 Feb 2007 21:23:39 +0000 (-0800)
Subject:  * Add HTTP::Server::Simple::CGI class to allow testing cgi scripts
X-Git-Tag: release/2.6.0~585^2^2~20
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=313a4087ff869ff06da2c36f188166708151e568;p=debbugs.git

 * Add HTTP::Server::Simple::CGI class to allow testing cgi scripts
---

diff --git a/t/lib/DebbugsTest.pm b/t/lib/DebbugsTest.pm
index 1ce2998..9f5f8e6 100644
--- a/t/lib/DebbugsTest.pm
+++ b/t/lib/DebbugsTest.pm
@@ -154,6 +154,53 @@ sub send_message{
      }
 }
 
+{
+     package DebbugsTest::HTTPServer;
+     use base qw(HTTP::Server::Simple::CGI);
+
+     our $child_pid = undef;
+     our $webserver = undef;
+     our $server_handler = undef;
+
+     END {
+	  if (defined $child_pid) {
+	       # stop the child
+	       kill(15,$child_pid);
+	       waitpid(-1,0);
+	  }
+     }
+
+     sub fork_and_create_webserver {
+	  my ($handler,$port) = @_;
+	  $port ||= 8080;
+	  if (defined $child_pid) {
+	       die "We appear to have already forked once";
+	  }
+	  $server_handler = $handler;
+	  my $pid = fork;
+	  return 0 if not defined $pid;
+	  if ($pid) {
+	       $child_pid = $pid;
+	       return $pid;
+	  }
+	  else {
+	       $webserver = DebbugsTest::HTTPServer->new($port);
+	       $webserver->run;
+	  }
+
+     }
+
+     sub handle_request {
+	  if (defined $server_handler) {
+	       $server_handler->(@_);
+	  }
+	  else {
+	       warn "No handler defined\n";
+	       print "No handler defined\n";
+	  }
+     }
+}
+
 
 1;