#!perl
use strict;
use warnings;
use IO::Socket::INET;
use Test::More 0.88;
use HTTP::Tiny;
my $test_host = "google.com";
my $test_url = "http://www.google.com/";
my $test_re = qr/google/;
plan 'skip_all' => "Only run for \$ENV{AUTOMATED_TESTING}"
unless $ENV{AUTOMATED_TESTING};
plan 'skip_all' => "Internet connection timed out"
unless IO::Socket::INET->new(
PeerHost => $test_host,
PeerPort => 80,
Proto => 'tcp',
Timeout => 10,
);
my $ua = HTTP::Tiny->new;
my $response = $ua->get($test_url);
if ( $ua->{handle} ) {
my $socket_class = ref $ua->{handle}{fh};
diag "HTTP::Tiny using $socket_class version " . $socket_class->VERSION;
}
ok( $response->{status} ne '599', "Request to $test_url completed" )
or dump_hash($response);
ok( $response->{content}, "Got content" );
sub dump_hash {
my $hash = shift;
$hash->{content} = substr($hash->{content},0,160) . "...";
require Data::Dumper;
my $dumped = Data::Dumper::Dumper($hash);
$dumped =~ s{^}{# };
print $dumped;
}
done_testing;