use strict;
use Test::More;
use DBIx::DSN::Resolver::Cached;

my ($name,$aliases,$addrtype,$length,@addrs)= gethostbyname("google.com");

if( !$name or $length == 1 ) {
    plan skip_all => 'couldnot resolv google.com';
}
else {
    plan tests => 23;
}

my $r = DBIx::DSN::Resolver::Cached->new(
    ttl => 30,
);
ok($r);

like $r->resolv("dbi:mysql:database=mytbl;host=google.com"),
    qr/^dbi:mysql:database=mytbl;host=[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/;
{
no warnings;
*CORE::GLOBAL::gethostbyname = sub {};
}
my @dsn;
for ( 1..20 ) {
    my $d = $r->resolv("dbi:mysql:database=mytbl;host=google.com");
    ok($d);
    push @dsn, $d;
}
my %dsn;
$dsn{$_} = 1 for @dsn;
is( scalar keys %dsn, scalar @addrs);