[Bps-public-commit] r11072 - in HTTP-Server-Simple: . t

jesse at bestpractical.com jesse at bestpractical.com
Sun Mar 16 20:53:02 EDT 2008


Author: jesse
Date: Sun Mar 16 20:53:02 2008
New Revision: 11072

Modified:
   HTTP-Server-Simple/   (props changed)
   HTTP-Server-Simple/Changes
   HTTP-Server-Simple/SIGNATURE
   HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
   HTTP-Server-Simple/t/01live.t
   HTTP-Server-Simple/t/04cgi.t

Log:
 r28279 at 31b:  jesse | 2008-03-16 20:52:50 -0400
 * 0.31 - make the port we test on 8000+pid


Modified: HTTP-Server-Simple/Changes
==============================================================================
--- HTTP-Server-Simple/Changes	(original)
+++ HTTP-Server-Simple/Changes	Sun Mar 16 20:53:02 2008
@@ -1,3 +1,7 @@
+0.31 Sun Mar 16 20:51:04 EDT 2008
+
+* Test suite parallelization fixes. Thanks to Slaven Rezic
+
 0.30 Tue Mar 11 12:14:24 EDT 2008
 
 * Minor doc fix from Paul Miller. 

Modified: HTTP-Server-Simple/SIGNATURE
==============================================================================
--- HTTP-Server-Simple/SIGNATURE	(original)
+++ HTTP-Server-Simple/SIGNATURE	Sun Mar 16 20:53:02 2008
@@ -14,7 +14,7 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 aaa5973569bfe855b7f58b3e39c2b2d27a3aa327 Changes
+SHA1 7b69e947da5e7df624dbf159f3732c91e3e279ef Changes
 SHA1 0ac508c50476dcc2bf8fe3094cb341425291e1ee MANIFEST
 SHA1 de5abaa8229fa5378d21eeb328081c8f14a7b488 META.yml
 SHA1 3a02ba613b11b07dd1fa97e2a6b962ee3e039c98 Makefile.PL
@@ -28,18 +28,18 @@
 SHA1 5d6189b2cad15cf9932a28faafd55130c8247e83 inc/Module/Install/Metadata.pm
 SHA1 02af973fae2ac3531fa6b704574b2b8cb2a08148 inc/Module/Install/Win32.pm
 SHA1 3a2eab96e91cca8d99938cda7791759ae9d97b3a inc/Module/Install/WriteAll.pm
-SHA1 f5647cef6a4255c622113967654c415b67ec217b lib/HTTP/Server/Simple.pm
+SHA1 b961b499a6c7e02b278302020ae245e056bcfe0a lib/HTTP/Server/Simple.pm
 SHA1 40f24374f2b5845a3025e14ca4b91bd58298de03 lib/HTTP/Server/Simple/CGI.pm
 SHA1 47ef836a1cdd03add505dd4c90819cafb61dc565 lib/HTTP/Server/Simple/CGI/Environment.pm
 SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
-SHA1 b64150ac4ebc772f8b1f69455039e7ea3e067b3f t/01live.t
+SHA1 392ce46ec841bbee3072898413602517efa69ab0 t/01live.t
 SHA1 aca95653cfce68912e08c57b3a4566207e2f99b3 t/02pod.t
 SHA1 a7024d0d8e7b80d26f75a3551a1406a797b382f8 t/03podcoverage.t
-SHA1 bc9dc786924d61aa0dc8747c1d68f47cf421ec37 t/04cgi.t
+SHA1 354a5265b406fa5c183446cfb2bc98738815dbda t/04cgi.t
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.8 (Darwin)
 
-iD8DBQFH1rBEEi9d9xCOQEYRAusqAJsFwS6wO1qvPzvFxVQEy3QQwZSlAgCgs4AG
-rL8Z13+0oDUZviZ7CrgxqQE=
-=MnVf
+iD8DBQFH3cC8Ei9d9xCOQEYRAlo2AKDEVlxDpNjlWAsMyhrQEsi1mHshFACdHQmY
+NnNSbPL4jIEphEVZ5S38yew=
+=S+LQ
 -----END PGP SIGNATURE-----

Modified: HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
==============================================================================
--- HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	(original)
+++ HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	Sun Mar 16 20:53:02 2008
@@ -8,7 +8,7 @@
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 
 =head1 NAME

Modified: HTTP-Server-Simple/t/01live.t
==============================================================================
--- HTTP-Server-Simple/t/01live.t	(original)
+++ HTTP-Server-Simple/t/01live.t	Sun Mar 16 20:53:02 2008
@@ -7,15 +7,16 @@
 # This script assumes that `localhost' will resolve to a local IP
 # address that may be bound to,
 
-use constant PORT => 13432;
+my $PORT = 8000 + $$;
+
 
 use HTTP::Server::Simple;
 
 my $DEBUG = 1 if @ARGV;
 
 {
-    my $s=HTTP::Server::Simple->new(PORT);
-    is($s->port(),PORT,"Constructor set port correctly");
+    my $s=HTTP::Server::Simple->new($PORT);
+    is($s->port(),$PORT,"Constructor set port correctly");
 
     my $pid=$s->background();
 
@@ -30,7 +31,7 @@
 }
 
 {
-    my $s=HTTP::Server::Simple::CGI->new(PORT);
+    my $s=HTTP::Server::Simple::CGI->new($PORT);
     $s->host("localhost");
     my $pid=$s->background();
     diag("started server on $pid");
@@ -92,7 +93,7 @@
 	( 'init'     => sub { "lookup"; },
 	  "lookup"   => sub { ($iaddr = inet_aton("localhost"))
 				  && "sockaddr"			    },
-	  "sockaddr" => sub { ($paddr = sockaddr_in(PORT, $iaddr))
+	  "sockaddr" => sub { ($paddr = sockaddr_in($PORT, $iaddr))
 				  && "proto"			    },
 	  "proto"    => sub { ($proto = getprotobyname('tcp'))
 				  && "socket"			    },

Modified: HTTP-Server-Simple/t/04cgi.t
==============================================================================
--- HTTP-Server-Simple/t/04cgi.t	(original)
+++ HTTP-Server-Simple/t/04cgi.t	Sun Mar 16 20:53:02 2008
@@ -3,22 +3,22 @@
 use strict;
 
 plan tests => 21;
+my $PORT = 8000 + $$;
 
-use constant PORT => 13432;
 my $host = gethostbyaddr(inet_aton('localhost'), AF_INET);
 
 my %methods=(
-              url => "url: http://$host:".PORT,
+              url => "url: http://$host:".$PORT,
               path_info => 'path_info: /cgitest/path_info',
               server_name => "server_name: $host",
-              server_port => 'server_port: '.PORT,
+              server_port => 'server_port: '.$PORT,
               server_software => 'server_software: HTTP::Server::Simple/\d+.\d+',
               request_method => 'request_method: GET',
             );
 
 my %envvars=(
-              SERVER_URL => "SERVER_URL: http://$host:".PORT.'/',
-              SERVER_PORT => 'SERVER_PORT: '.PORT,
+              SERVER_URL => "SERVER_URL: http://$host:".$PORT.'/',
+              SERVER_PORT => 'SERVER_PORT: '.$PORT,
               REQUEST_METHOD => 'REQUEST_METHOD: GET',
               REQUEST_URI => 'REQUEST_URI: /cgitest/REQUEST_URI',
               SERVER_PROTOCOL => 'SERVER_PROTOCOL: HTTP/1.1',
@@ -30,8 +30,8 @@
             );
 
 {
-  my $server=CGIServer->new(PORT);
-  is($server->port(),PORT,'Constructor set port correctly');
+  my $server=CGIServer->new($PORT);
+  is($server->port(),$PORT,'Constructor set port correctly');
   select(undef,undef,undef,0.2); # wait a sec
 
   my $pid=$server->background;
@@ -104,7 +104,7 @@
 	( 'init'     => sub { "lookup"; },
 	  "lookup"   => sub { ($iaddr = inet_aton("localhost"))
 				  && "sockaddr"			    },
-	  "sockaddr" => sub { ($paddr = sockaddr_in(PORT, $iaddr))
+	  "sockaddr" => sub { ($paddr = sockaddr_in($PORT, $iaddr))
 				  && "proto"			    },
 	  "proto"    => sub { ($proto = getprotobyname('tcp'))
 				  && "socket"			    },



More information about the Bps-public-commit mailing list