SOURCES: perl-WWW-Mechanize-testserver.patch (NEW) - allow sequential tests...

agaran agaran at pld-linux.org
Sun Dec 14 12:00:51 CET 2008


Author: agaran                       Date: Sun Dec 14 11:00:51 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- allow sequential tests pass

---- Files affected:
SOURCES:
   perl-WWW-Mechanize-testserver.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/perl-WWW-Mechanize-testserver.patch
diff -u /dev/null SOURCES/perl-WWW-Mechanize-testserver.patch:1.1
--- /dev/null	Sun Dec 14 12:00:51 2008
+++ SOURCES/perl-WWW-Mechanize-testserver.patch	Sun Dec 14 12:00:45 2008
@@ -0,0 +1,13 @@
+diff -Nur WWW-Mechanize-1.52.ori/t/lib/TestServer.pm WWW-Mechanize-1.52.mod2/t/lib/TestServer.pm
+--- WWW-Mechanize-1.52.ori/t/lib/TestServer.pm	2008-11-06 16:25:17.000000000 +0100
++++ WWW-Mechanize-1.52.mod2/t/lib/TestServer.pm	2008-12-14 11:44:22.201356367 +0100
+@@ -49,7 +49,8 @@
+ sub spawn {
+     my $self = shift;
+ 
+-    my $port = $self->port;
++    my $port = $self->port() + int(rand(30));
++    $self->port($port);
+     my $pid = $self->background;
+ 
+     print "# Server now running on port $port, pid $pid\n";
================================================================


More information about the pld-cvs-commit mailing list