Don't test live unless release testing

nigelhorne · Jun 3, 2018 · 1f20921 · 1f20921
1 parent ad179bc
commit 1f20921
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -8,13 +8,17 @@ my $online_tests;
 
 if($ENV{RELEASE_TESTING}) {
 	$online_tests = are_online();
-} elsif($ENV{AUTOMATED_TESTING} || $ENV{NO_NETWORK_TESTING}) {
+} elsif($ENV{AUTOMATED_TESTING} || $ENV{NO_NETWORK_TESTING} || (!-t STDIN)) {
 	$online_tests = 0;
 } else {
 	Getopt::Long::GetOptions('online-tests!' => \$online_tests);
 
 	if(!defined($online_tests)) {
-		$online_tests = are_online();
+		if($ENV{RELEASE_TESTING}) {
+			$online_tests = are_online();
+		} else {
+			$online_tests = 0;
+		}
 	}
 }
 

diff --git a/t/list.t b/t/list.t
@@ -13,7 +13,10 @@ BEGIN {
 
 LIST: {
 	SKIP: {
-		skip 'Test requires Internet access', 55 unless(-e 't/online.enabled');
+		if(!-e 't/online.enabled') {
+			diag('Online tests disabled');
+			skip('Online tests disabled', 55);
+		}
 
 		eval {
 			require Test::Number::Delta;