02inet_aton.t

use strict;
use warnings;

use List::Util qw(sum);
use Net::DNS::Lite qw(inet_aton);
use Test::More;
use Time::HiRes qw(time);

BEGIN {
    if (! -e '/etc/resolv.conf') {
        plan skip_all => 'no /etc/resolv.conf';
    }
};

my $ip = inet_aton("google.com");
ok scalar($ip), "lookup google.com";
is length($ip), 4;

$ip = inet_aton("foo.nonexistent.");
ok ! defined $ip, "lookup foo.nonexistent.";

if (0) {
    local $Net::DNS::Lite::TIMEOUT = 1;

    my $start_at = time;
    $ip = inet_aton("harepe.co.");
    my $elapsed = time - $start_at;
    ok ! defined $ip, 'global timeout';
    ok 0.5 <= $elapsed && $elapsed <= 1.5, "elapsed: $elapsed";
}

if (0) {
    my $start_at = time;
    $ip = inet_aton("harepe.co.", 1);
    my $elapsed = time - $start_at;
    ok ! defined $ip, 'timeout as arg';
    ok 0.5 <= $elapsed && $elapsed <= 1.5, "elapsed: $elapsed";
}

done_testing;