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