[librpc-xml-perl] 01/05: Use 127.0.0.1 to force IPv4 usage in tests again. (Closes: #759944)

[Niko Tyni]

This is an automated email from the git hooks/post-receive script.

ntyni pushed a commit to branch master
in repository librpc-xml-perl.

commit bc838161b0d00a6e0fe4dbea039786e0c149656f
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Sep 7 10:00:20 2014 +0300

    Use 127.0.0.1 to force IPv4 usage in tests again. (Closes: #759944)
    
    This fix was incorrectly dropped 0.76-3: it's still needed with
    newer Net-Server versions that bind to both IPv6 and IPv4 sockets,
    as RPC::XML is IPv4-only due to its HTTP::Daemon usage.
    
    This reverts commit fd945f205327d9094aee9f30a7c3c9c9f64f8238.
---
 ...use-an-IPv4-socket-in-the-Net-Server-test.patch | 47 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 48 insertions(+)

diff --git a/debian/patches/0001-Explicitly-use-an-IPv4-socket-in-the-Net-Server-test.patch b/debian/patches/0001-Explicitly-use-an-IPv4-socket-in-the-Net-Server-test.patch
new file mode 100644
index 0000000..48d8f1d
--- /dev/null
+++ b/debian/patches/0001-Explicitly-use-an-IPv4-socket-in-the-Net-Server-test.patch
@@ -0,0 +1,47 @@
+Origin: vendor
+Bug: http://rt.cpan.org/Public/Bug/Display.html?id=76362
+Bug-Debian: http://bugs.debian.org/666651
+Forwarded: http://rt.cpan.org/Public/Bug/Display.html?id=76362
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2012-04-06
+
+
+From ea0ddab6381398a8907f8f91ae208d03c8d6013e Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Fri, 6 Apr 2012 13:47:04 +0300
+Subject: [PATCH] Explicitly use an IPv4 socket in the Net::Server test
+
+As seen in <http://bugs.debian.org/666651>, Debian specific
+IPv6 Net::Server patches made it prefer IPv6 for 'localhost'.
+Unfortunately HTTP::Daemon::ClientConn is IPv4-only, leading
+to test failures.
+
+Use 127.0.0.1 to force IPv4 usage for now, at least until
+libnet-server-perl is fixed.
+---
+ t/60_net_server.t |    4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/t/60_net_server.t b/t/60_net_server.t
+index 902d79a..bad2c10 100644
+--- a/t/60_net_server.t
++++ b/t/60_net_server.t
+@@ -50,13 +50,13 @@ start_server($srv,
+              log_level   => 4,
+              pid_file    => $pid_file,
+              port        => $port,
+-             host        => 'localhost',
++             host        => '127.0.0.1',
+              background  => 1);
+ sleep 1; # Allow time for server to spin up
+ # Unless we see "ok 2", we have a problem
+ ok(-e $pid_file, 'server started, PID file exists');
+ # After this point, we have the obligation of killing the server manually
+-$client = RPC::XML::Client->new("http://localhost:$port");
++$client = RPC::XML::Client->new("http://127.0.0.1:$port");
+ is($client->simple_request('system.identity'), $srv->product_tokens,
+    'system.identity matches $srv->product_tokens');
+ 
+-- 
+1.7.9.5
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..71af6f7
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Explicitly-use-an-IPv4-socket-in-the-Net-Server-test.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/librpc-xml-perl.git