alioth/nixpkgs
3
0
Fork 0
forked from mirrors/nixpkgs
Code Releases Activity

perl-LWP: enable tests

Browse source 
The added patch allows LWP to run its tests.
This commit is contained in:
Robert Helgesson 2015-07-21 20:58:10 +02:00
parent 174613a95e
commit 8c7857d65e
2 changed files with 77 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

75
pkgs/development/perl-modules/lwp-test-with-localhost.patch Normal file
View file

@ -0,0 +1,75 @@
From 2d7a479b39bb20a0d61f067ba6c2df92117fcb8c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 23 Apr 2014 12:45:38 +0200
Subject: [PATCH] Connect to localhost instead of hostname
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
The hostname does not have to be resolvable nor reachable. It's just
a machine name.
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
t/local/http.t | 2 +-
t/robot/ua-get.t | 2 +-
t/robot/ua.t | 2 +-
talk-to-ourself | 3 +--
4 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/t/local/http.t b/t/local/http.t
index 779cc21..534b4c8 100644
--- a/t/local/http.t
+++ b/t/local/http.t
@@ -20,7 +20,7 @@ if ($D eq 'daemon') {
require HTTP::Daemon;
- my $d = HTTP::Daemon->new(Timeout => 10);
+ my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => 'localhost');
print "Please to meet you at: <URL:", $d->url, ">\n";
open(STDOUT, $^O eq 'VMS'? ">nl: " : ">/dev/null");
diff --git a/t/robot/ua-get.t b/t/robot/ua-get.t
index 5754c4b..bf24589 100644
--- a/t/robot/ua-get.t
+++ b/t/robot/ua-get.t
@@ -19,7 +19,7 @@ if ($D eq 'daemon') {
require HTTP::Daemon;
- my $d = new HTTP::Daemon Timeout => 10;
+ my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost';
print "Please to meet you at: <URL:", $d->url, ">\n";
open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null");
diff --git a/t/robot/ua.t b/t/robot/ua.t
index 21ad5c8..11fafa8 100644
--- a/t/robot/ua.t
+++ b/t/robot/ua.t
@@ -19,7 +19,7 @@ if ($D eq 'daemon') {
require HTTP::Daemon;
- my $d = new HTTP::Daemon Timeout => 10;
+ my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost';
print "Please to meet you at: <URL:", $d->url, ">\n";
open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null");
diff --git a/talk-to-ourself b/talk-to-ourself
index 6c0257a..b4acda2 100644
--- a/talk-to-ourself
+++ b/talk-to-ourself
@@ -9,8 +9,7 @@ require IO::Socket;
if (@ARGV >= 2 && $ARGV[0] eq "--port") {
my $port = $ARGV[1];
- require Sys::Hostname;
- my $host = Sys::Hostname::hostname();
+ my $host = 'localhost';
if (my $socket = IO::Socket::INET->new(PeerAddr => "$host:$port", Timeout => 5)) {
require IO::Select;
if (IO::Select->new($socket)->can_read(1)) {
--
1.9.0

4
pkgs/top-level/perl-packages.nix
View file

@ -5384,8 +5384,8 @@ let self = _self // overrides; _self = with self; {
url = "mirror://cpan/authors/id/E/ET/ETHER/${name}.tar.gz";
sha256 = "1cpqjl59viw50bnbdyn8xzrwzg7g54b2rszw0fifacqrppp17gaz";
};
propagatedBuildInputs = [ EncodeLocale FileListing HTMLParser HTTPCookies HTTPDaemon HTTPDate HTTPNegotiate HTTPMessage LWPMediaTypes NetHTTP URI WWWRobotRules ];
doCheck = false; # tries to start a daemon
patches = [ ../development/perl-modules/lwp-test-with-localhost.patch ];
propagatedBuildInputs = [ EncodeLocale FileListing HTMLParser HTTPCookies HTTPDaemon HTTPDate HTTPMessage HTTPNegotiate LWPMediaTypes NetHTTP URI WWWRobotRules ];
meta = {
description = "The World-Wide Web library for Perl";
license = with stdenv.lib.licenses; [ artistic1 gpl1Plus ];