From 3c63c0c85719f23ce21ec5b1b6806c014ece6218 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 2 Aug 2025 22:03:14 +0200
Subject: [PATCH] do live test against example.com (GH #84)

www.neverssl.com is nowadays quite unreliable. The first precheck
sometimes succeeds, but the real check fails afterwards, generating
FAIL tests.

example.com is not perfect, but seem to perform better.

The test host can now be set by $host variable.

The precheck is skipped during "perl -c", possibly reducing load on
the test host (think of IDEs which do syntax checking using "perl -c").
---
 t/live.t | 36 +++++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 15 deletions(-)

diff --git a/t/live.t b/t/live.t
index 45b2ba8e..2c4d32a3 100644
--- a/t/live.t
+++ b/t/live.t
@@ -1,20 +1,26 @@
+my $host;
+BEGIN { $host = 'example.com' }
+#BEGIN { $host = 'www.neverssl.com' }
+
 BEGIN {
     if ( $ENV{NO_NETWORK_TESTING} ) {
-        print "1..0 # SKIP Live tests disabled due to NO_NETWORK_TESTING\n";
-        exit;
+	print "1..0 # SKIP Live tests disabled due to NO_NETWORK_TESTING\n";
+	exit;
     }
-    eval {
-        require IO::Socket::INET;
-        my $s = IO::Socket::INET->new(
-            PeerHost => "www.neverssl.com:80",
-            Timeout  => 5,
-        );
-        die "Can't connect: $@" unless $s;
-    };
-    if ($@) {
-        print "1..0 # SKIP Can't connect to www.neverssl.com\n";
-        print $@;
-        exit;
+    if ( !$^C ) { # avoid running the test connection with "perl -c"
+	eval {
+	    require IO::Socket::INET;
+	    my $s = IO::Socket::INET->new(
+		PeerHost => "$host:80",
+		Timeout  => 5,
+	    );
+	    die "Can't connect: $@" unless $s;
+	};
+	if ($@) {
+	    print "1..0 # SKIP Can't connect to $host\n";
+	    print $@;
+	    exit;
+	}
     }
 }
 
@@ -26,7 +32,7 @@ plan tests => 6;
 use Net::HTTP;
 
 my $s = Net::HTTP->new(
-    Host            => "www.neverssl.com",
+    Host            => $host,
     KeepAlive       => 1,
     Timeout         => 15,
     PeerHTTPVersion => "1.1",