r64559 - /trunk/libweather-google-perl/debian/patches/no_network.patch

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Thu Nov  4 22:58:11 2010
New Revision: 64559

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64559
Log:
tested patch

Modified:
    trunk/libweather-google-perl/debian/patches/no_network.patch

Modified: 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=64559&op=diff
==============================================================================
--- trunk/libweather-google-perl/debian/patches/no_network.patch (original)
+++ trunk/libweather-google-perl/debian/patches/no_network.patch Thu Nov  4 22:58:11 2010
@@ -51,26 +51,25 @@
 +}
 --- a/t/03forecast_conditions.t
 +++ b/t/03forecast_conditions.t
-@@ -14,6 +14,13 @@
- $num_tests = @$num_tests;
- $num_tests = 5+((3*$num_tests)+(5*14)*($num_tests));
- plan(tests => $num_tests);
-+SKIP: {
-+
+@@ -6,6 +6,13 @@
+ use Weather::Google;
+ 
+ use Test::More;
 +use Net::Ping;
 +my $p = Net::Ping->new;
 +if (not $p->ping('http://www.google.com')) {
-+    skip "no network", $num_tests;
++    plan skip_all => "no network";
++    exit(0);
 +}
++
  
- ok( $g->can('forecast_conditions'));
- is( ref $g->forecast_conditions, 'ARRAY', "Array ref");
-@@ -73,4 +80,4 @@
+ # There are 5+3(n)+(3*11)(n) tests. 
+ 
+@@ -73,4 +80,3 @@
  	ok( @b = $g->forecast($m, at test) );
  	is( @a, @b, "Arrays work" );
  }
 -
-+}
 --- a/t/04forecast_information.t
 +++ b/t/04forecast_information.t
 @@ -5,6 +5,13 @@