test using loopback rather than internet accessible address

Author: michal-josef-spacek

Changes

@@ -1,7 +1,9 @@
 Revision history for HTTP-Daemon
 
 {{$NEXT}}
-    - Use GH Perl helpers for build and coverage jobs (GH#53) (Olaf Alders)
+  - Test using loopback rather than internet accessible address (GH#52)
+    (Michal Josef Špaček)
+  - Use GH Perl helpers for build and coverage jobs (GH#53) (Olaf Alders)
 
 6.13      2022-02-09 20:39:12Z
   - Bump minimum IO::Socket::IP version to 0.32 (GH#50) (Olaf Alders)

t/chunked.t

@@ -102,8 +102,8 @@ my $tests = @TESTS;
 my $tport = 8334;
 
 my %addresses = (
-    AF_INET6() => {server => '::',      client => '::1'},
-    AF_INET()  => {server => '0.0.0.0', client => '127.0.0.1'}
+    AF_INET6() => {server => '::1',      client => '::1'},
+    AF_INET()  => {server => '127.0.0.1', client => '127.0.0.1'}
 );
 my $family;
 my $tsock = IO::Socket::IP->new(

t/local/http.t

@@ -5,11 +5,6 @@ if ($^O eq "MacOS") {
     exit(0);
 }
 
-unless (-f "CAN_TALK_TO_OURSELF") {
-    print "1..0 # Skipped: Can't talk to ourself (misconfigured system)\n";
-    exit;
-}
-
 $| = 1;    # autoflush
 
 require IO::Socket::IP;   # make sure this work before we try to make a HTTP::Daemon
@@ -20,7 +15,7 @@ if ($D eq 'daemon') {
 
     require HTTP::Daemon;
 
-    my $d = HTTP::Daemon->new(Timeout => 10);
+    my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => '127.0.0.1');
 
     print "Please to meet you at: <URL:", $d->url, ">\n";
     open(STDOUT, $^O eq 'VMS' ? ">nl: " : ">/dev/null");
@@ -174,7 +169,7 @@ $res = $ua->request($req);
 
 ok($res->is_success);
 ok($res->content_type,   'text/html');
-ok($res->content_length, 147);
+ok($res->content_length, 155);
 ok($res->title,          'En pr�ve');
 ok($res->content,        qr/� v�re/);
 

t/robot/ua-get.t

@@ -5,11 +5,6 @@ if ($^O eq "MacOS") {
     exit(0);
 }
 
-unless (-f "CAN_TALK_TO_OURSELF") {
-    print "1..0 # Skipped: Can't talk to ourself (misconfigured system)\n";
-    exit;
-}
-
 $| = 1;               # autoflush
 require IO::Socket::IP;   # make sure this work before we try to make a HTTP::Daemon
 
@@ -19,7 +14,7 @@ if ($D eq 'daemon') {
 
     require HTTP::Daemon;
 
-    my $d = HTTP::Daemon->new(Timeout => 10);
+    my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => '127.0.0.1');
 
     print "Please to meet you at: <URL:", $d->url, ">\n";
     open(STDOUT,

t/robot/ua.t

@@ -5,11 +5,6 @@ if ($^O eq "MacOS") {
     exit(0);
 }
 
-unless (-f "CAN_TALK_TO_OURSELF") {
-    print "1..0 # Skipped: Can't talk to ourself (misconfigured system)\n";
-    exit;
-}
-
 $| = 1;               # autoflush
 require IO::Socket::IP;   # make sure this work before we try to make a HTTP::Daemon
 
@@ -19,7 +14,7 @@ if ($D eq 'daemon') {
 
     require HTTP::Daemon;
 
-    my $d = HTTP::Daemon->new(Timeout => 10);
+    my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => '127.0.0.1');
 
     print "Please to meet you at: <URL:", $d->url, ">\n";
     open(STDOUT,