[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