Description: Disable network tests for components
 WWW:Search uses abstract testing, whilst components
 make network requets to test their functionality
Author: Nick Morrott <nickm@debian.org>
Forwarded: not-needed
Last-Update: 2020-08-27
---
--- a/ebay/t/category.t
+++ b/ebay/t/category.t
@@ -7,13 +7,20 @@
 use blib;
 use Bit::Vector;
 use Data::Dumper;
-use Test::More 'no_plan';
+use Test::More;
 
 use WWW::Search::Test;
-BEGIN
-  {
-  use_ok('WWW::Search::Ebay::Category');
-  } # end of BEGIN block
+
+use WWW::Search::Ebay::Category;
+
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
 
 my $iDebug;
 my $iDump = 0;
--- a/ebay/t/coverage.t
+++ b/ebay/t/coverage.t
@@ -2,13 +2,23 @@
 # $Id: coverage.t,v 1.4 2006-01-08 03:27:13 Daddy Exp $
 
 use ExtUtils::testlib;
-use Test::More no_plan;
+use Test::More;
 
 use IO::Capture::Stderr;
 my $oICE =  IO::Capture::Stderr->new;
 
-BEGIN { use_ok('WWW::Search') };
-BEGIN { use_ok('WWW::Search::Ebay') };
+use WWW::Search;
+use WWW::Search::Ebay;
+
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
+
 
 my $iDebug;
 my $iDump = 0;
--- a/ebay/t/ebay.t
+++ b/ebay/t/ebay.t
@@ -14,11 +14,17 @@
 use WWW::Search;
 use WWW::Search::Test;
 
-BEGIN
-  {
-  use blib;
-  use_ok('WWW::Search::Ebay');
-  } # end of BEGIN block
+use blib;
+use WWW::Search::Ebay;
+
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
 
 my $iDebug;
 my $iDump = 0;
--- a/ebay/t/enddate.t
+++ b/ebay/t/enddate.t
@@ -14,6 +14,17 @@
 use WWW::Search;
 use WWW::Search::Test;
 
+use WWW::Search::Ebay::ByEndDate;
+
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
+
 use constant DEBUG_DATE => 0;
 
 my $iDebug = 0;
--- a/ebay/t/itemnumber.t
+++ b/ebay/t/itemnumber.t
@@ -3,12 +3,20 @@
 
 use Data::Dumper;
 use ExtUtils::testlib;
-use Test::More no_plan;
+use Test::More;
 
 use WWW::Search::Test;
+
+use WWW::Search::Ebay;
+
 BEGIN {
-  use_ok('WWW::Search::Ebay');
-  } # end of BEGIN block
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
 
 use strict;
 
--- a/firstgov/test.pl
+++ b/firstgov/test.pl
@@ -3,6 +3,7 @@
 
 use ExtUtils::testlib;
 use WWW::Search::Test qw( new_engine run_gui_test run_test skip_test );
+use Test::More;
 
 ######################### We start with some black magic to print on failure.
 
@@ -17,6 +18,13 @@
 
 ######################### End of black magic.
 
+unless ($ENV{NO_NETWORK}) {
+    no_plan();
+}
+else {
+    plan skip_all => "no network";
+}
+
 # Insert your test code below (better if it prints "ok 13"
 # (correspondingly "not ok 13") depending on the success of chunk 13
 # of the test code):
--- a/googlism/test.pl
+++ b/googlism/test.pl
@@ -1,21 +1,19 @@
-use Test;
+use Test::More;
 $|++;
-BEGIN { plan tests => 2 };
 
 use WWW::Search::Googlism;
-ok(1);
 
-print "Are you connected to internet [Y/n]?";
-chomp($ans = <STDIN>);
-if($ans =~ /n/i){
-    ok(1);
+unless ($ENV{NO_NETWORK}) {
+    plan tests => 1;
 }
-else{
-    $query = "googlism";
-    $search = new WWW::Search('Googlism');
-    $search->native_query(WWW::Search::escape_query($query), { type => 'who' });
-    while (my $result = $search->next_result()) {
-	$text .= "$result\n";
-    }
-    ok(($text ? 1 : 0), 1);
+else {
+    plan skip_all => "no network";
 }
+
+$query = "googlism";
+$search = new WWW::Search('Googlism');
+$search->native_query(WWW::Search::escape_query($query), { type => 'who' });
+while (my $result = $search->next_result()) {
+    $text .= "$result\n";
+}
+ok(($text ? 1 : 0), 1);
--- a/jobserve/t/use.t
+++ b/jobserve/t/use.t
@@ -1,11 +1,20 @@
 # -*- perl -*-
 
 use strict;
-use Test;
+use Test::More;
 use WWW::Search;
 
 use vars qw( @as );
 
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
+
 open MAN, "<MANIFEST" or die " --- can not open MANIFEST for read: $!";
 $/ = "\n";
 my @as = <MAN>;
@@ -39,4 +48,4 @@
 $o->native_query('perl',
                    # {search_debug => 2, },
                 );
-ok(0 < scalar($o->results()));
\ No newline at end of file
+ok(0 < scalar($o->results()));
--- a/pubmed/t/0-signature.t
+++ b/pubmed/t/0-signature.t
@@ -3,7 +3,14 @@
 # $Revision: 2 $ $Change: 7212 $ $DateTime: 2003/07/28 14:21:21 $
 
 use strict;
-use Test::More tests => 1;
+use Test::More;
+
+unless ($ENV{NO_NETWORK}) {
+    plan tests => 1;
+}
+else {
+    plan skip_all => "no network";
+}
 
 SKIP: {
     if (!eval { require Module::Signature; 1 }) {
--- a/pubmed/t/1-test.t
+++ b/pubmed/t/1-test.t
@@ -2,9 +2,17 @@
 
 use lib 'lib';
 use WWW::Search;
-use Test::More	tests => 4;
+use Test::More;
 
 my $s	= new WWW::Search('PubMed');
+
+unless ($ENV{NO_NETWORK}) {
+    plan tests => 4;
+}
+else {
+    plan skip_all => "no network";
+}
+
 isa_ok( $s, 'WWW::Search' );
 
 $s->native_query('ACGT');
--- a/ebay/xt/buyitnow.t
+++ b/ebay/xt/buyitnow.t
@@ -5,13 +5,19 @@
 use Bit::Vector;
 use Data::Dumper;
 use Date::Manip;
-use Test::More no_plan;
+use Test::More;
 
 use WWW::Search::Test;
-BEGIN
-  {
-  use_ok('WWW::Search::Ebay::BuyItNow');
-  }
+use WWW::Search::Ebay::BuyItNow;
+
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
 
 my $iDebug;
 my $iDump = 0;
--- a/ebay/xt/bysellerid.t
+++ b/ebay/xt/bysellerid.t
@@ -5,15 +5,22 @@
 
 use Date::Manip;
 use ExtUtils::testlib;
-use Test::More no_plan;
+use Test::More;
 
 use WWW::Search;
 use WWW::Search::Test;
-BEGIN
-  {
-  use blib;
-  use_ok('WWW::Search::Ebay::BySellerID');
-  } # end of BEGIN block
+
+use blib;
+use WWW::Search::Ebay::BySellerID;
+
+BEGIN {
+    unless ($ENV{NO_NETWORK}) {
+        no_plan();
+    }
+    else {
+        plan skip_all => "no network";
+    }
+}
 
 my $iDebug;
 my $iDump;