Skip xt/author/example.t when httpbin.org is unhealthy

Moving the test to xt/ stopped it failing end-user installs, but it still
runs in CI's author job -- where an httpbin.org 503 promptly turned the run
red. Probe the service once up front and skip_all when the response is not
successful, so a transient outage skips instead of failing while keeping all
the SSL-layer assertions intact when the service is healthy.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

Author: oalders

Changes

@@ -3,7 +3,9 @@ Release history for LWP-Protocol-https
 {{$NEXT}}
     - Move the live httpbin.org test from t/example.t to xt/author/example.t so
       that a transient outage of the external service (e.g. a 503) can no longer
-      fail an end-user install. The test still runs in CI. (Claude Opus 4.8)
+      fail an end-user install. The test still runs in CI, and now skips
+      (rather than fails) when httpbin.org itself is unhealthy, e.g. returns a
+      5xx. (Claude Opus 4.8)
 
 6.16      2026-07-23 03:48:07Z
     - Remove undeclared Try::Tiny dependency from t/diag.t, which could cause

xt/author/example.t

@@ -8,10 +8,20 @@ use LWP::UserAgent ();
 
 my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } );
 
-plan tests => 2;
-
 my $url = 'https://httpbin.org';
 
+# httpbin.org is a shared public service that intermittently returns 5xx or
+# times out. Test::RequiresInternet only proves the TCP port is reachable, so
+# an up-but-unhealthy service would otherwise fail this test even though there
+# is nothing wrong with the module. Probe once and skip if it is unhealthy.
+{
+    my $probe = $ua->simple_request( HTTP::Request->new( GET => $url ) );
+    plan skip_all => "$url unavailable: " . $probe->status_line
+        unless $probe->is_success;
+}
+
+plan tests => 2;
+
 subtest "Request GET $url" => sub {
     plan tests => 6;