r64557 - in /trunk/libweather-google-perl/debian/patches: ./ no_network.patch series
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Thu Nov 4 22:38:26 UTC 2010
Author: periapt-guest
Date: Thu Nov 4 22:38:11 2010
New Revision: 64557
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64557
Log:
adding patch to handle lack of network
Added:
trunk/libweather-google-perl/debian/patches/
trunk/libweather-google-perl/debian/patches/no_network.patch
trunk/libweather-google-perl/debian/patches/series
Added: trunk/libweather-google-perl/debian/patches/no_network.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libweather-google-perl/debian/patches/no_network.patch?rev=64557&op=file
==============================================================================
--- trunk/libweather-google-perl/debian/patches/no_network.patch (added)
+++ trunk/libweather-google-perl/debian/patches/no_network.patch Thu Nov 4 22:38:11 2010
@@ -1,0 +1,25 @@
+--- a/t/01init.t
++++ b/t/01init.t
+@@ -2,9 +2,15 @@
+
+ use strict;
+ use warnings;
++use Test::More tests => 10;
+
+-use Test::Simple tests => 10;
++SKIP: {
+
++use Net::Ping;
++my $p = Net::Ping->new;
++if (not $p->ping('http://www.google.com')) {
++ skip "no network", 10;
++}
+ use Weather::Google;
+
+ my $w = new Weather::Google;
+@@ -22,3 +28,5 @@
+ ok ( $g = new Weather::Google('Beverly Hills, CA'), 'new(city)');
+ ok( defined $g );
+ ok( $g->isa('Weather::Google') );
++
++}
Added: trunk/libweather-google-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libweather-google-perl/debian/patches/series?rev=64557&op=file
==============================================================================
--- trunk/libweather-google-perl/debian/patches/series (added)
+++ trunk/libweather-google-perl/debian/patches/series Thu Nov 4 22:38:11 2010
@@ -1,0 +1,1 @@
+no_network.patch
More information about the Pkg-perl-cvs-commits
mailing list