You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gentoo-overlay/dev-perl/Net-Z3950-ZOOM/files/Net-Z3950-ZOOM-1.28-network...

300 lines
6.2 KiB

From dd0b1305d9d44167a10e224179a4d25b997dfb8c Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Sun, 17 Dec 2017 20:08:01 +1300
Subject: Disable network-dependent tests when NO_NETWORK_TESTING is defined
---
t/1-Net-Z3950-ZOOM.t | 6 ++++++
t/12-query.t | 6 ++++++
t/13-resultset.t | 6 ++++++
t/14-sorting.t | 6 ++++++
t/15-scan.t | 6 ++++++
t/16-packages.t | 6 ++++++
t/18-charset.t | 6 ++++++
t/19-events.t | 6 ++++++
t/2-ZOOM.t | 6 ++++++
t/22-query.t | 6 ++++++
t/23-resultset.t | 6 ++++++
t/24-sorting.t | 6 ++++++
t/25-scan.t | 6 ++++++
t/26-packages.t | 6 ++++++
t/28-charset.t | 6 ++++++
t/29-events.t | 6 ++++++
16 files changed, 96 insertions(+)
diff --git a/t/1-Net-Z3950-ZOOM.t b/t/1-Net-Z3950-ZOOM.t
index a23ba48..673d9c3 100644
--- a/t/1-Net-Z3950-ZOOM.t
+++ b/t/1-Net-Z3950-ZOOM.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 23;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/12-query.t b/t/12-query.t
index d21204b..c100699 100644
--- a/t/12-query.t
+++ b/t/12-query.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 41;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/13-resultset.t b/t/13-resultset.t
index b3e6225..e8a4eaa 100644
--- a/t/13-resultset.t
+++ b/t/13-resultset.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 24;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/14-sorting.t b/t/14-sorting.t
index 341ed44..3f663d4 100644
--- a/t/14-sorting.t
+++ b/t/14-sorting.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 29;
use MARC::Record;
diff --git a/t/15-scan.t b/t/15-scan.t
index fea22a0..a723e43 100644
--- a/t/15-scan.t
+++ b/t/15-scan.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 81;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/16-packages.t b/t/16-packages.t
index 1cdd022..de3ae56 100644
--- a/t/16-packages.t
+++ b/t/16-packages.t
@@ -12,6 +12,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 39;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/18-charset.t b/t/18-charset.t
index 72e0ead..05fdbd6 100644
--- a/t/18-charset.t
+++ b/t/18-charset.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 9;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/19-events.t b/t/19-events.t
index 3c286b2..cecd221 100644
--- a/t/19-events.t
+++ b/t/19-events.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 23;
BEGIN { use_ok('Net::Z3950::ZOOM') };
diff --git a/t/2-ZOOM.t b/t/2-ZOOM.t
index d644068..e6bda5a 100644
--- a/t/2-ZOOM.t
+++ b/t/2-ZOOM.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 23;
BEGIN { use_ok('ZOOM') };
diff --git a/t/22-query.t b/t/22-query.t
index 4ffbd63..a5cb283 100644
--- a/t/22-query.t
+++ b/t/22-query.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 41;
BEGIN { use_ok('ZOOM') };
diff --git a/t/23-resultset.t b/t/23-resultset.t
index 7a026ff..ac0977a 100644
--- a/t/23-resultset.t
+++ b/t/23-resultset.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 24;
BEGIN { use_ok('ZOOM') };
diff --git a/t/24-sorting.t b/t/24-sorting.t
index e7f1b77..64251ae 100644
--- a/t/24-sorting.t
+++ b/t/24-sorting.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 29;
use MARC::Record;
diff --git a/t/25-scan.t b/t/25-scan.t
index 01aba9e..042e0ab 100644
--- a/t/25-scan.t
+++ b/t/25-scan.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 81;
BEGIN { use_ok('ZOOM') };
diff --git a/t/26-packages.t b/t/26-packages.t
index e60b5f3..eb7f7b3 100644
--- a/t/26-packages.t
+++ b/t/26-packages.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 39;
BEGIN { use_ok('ZOOM') };
diff --git a/t/28-charset.t b/t/28-charset.t
index 16773f0..6abe21d 100644
--- a/t/28-charset.t
+++ b/t/28-charset.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 9;
BEGIN { use_ok('ZOOM') };
diff --git a/t/29-events.t b/t/29-events.t
index 5c0ef4b..9bb2ba4 100644
--- a/t/29-events.t
+++ b/t/29-events.t
@@ -3,6 +3,12 @@
use strict;
use warnings;
+BEGIN {
+ $ENV{NO_NETWORK_TESTING} and do {
+ print "1..0 # SKIP due to NO_NETWORK_TESTING=1";
+ exit;
+ };
+}
use Test::More tests => 23;
BEGIN { use_ok('ZOOM') };
--
2.15.1