#!/usr/bin/perl -s

use strict;
use warnings;
use Test::More;
use lib 'lib';

BEGIN {
    if ( -e 't/online.enabled' ) {
        plan tests => 9;
        unlink 't/online.enabled';
    }
    else {
        plan skip_all => 'Online tests disabled.';
        unlink 't/online.enabled';
        exit;
    }
}

BEGIN {
    use_ok('Tie::DNS');
}

my %dns;
eval { tie %dns, 'Tie::DNS'; };
ok( ( not $@ ), 'tie %dns, "Tie::DNS";' );

my $ip;
eval { $ip = $dns{'www.google.com'}; };
ok( ( not $@ ), '$ip = $dns{"www.google.com"}' );
ok( $ip =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/, 'www.google.com lookup' );

#Test caching
undef %dns;
eval { tie %dns, 'Tie::DNS', { cache => 100 }; };
ok( ( not $@ ), 'tie %dns, "Tie::DNS", { cache => 100 };' );
eval { $ip = $dns{'www.google.com'}; };
ok( ( not $@ ), '$ip = $dns{"www.google.com"}' );
ok(
    $ip =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/,
    'www.google.com lookup (testing cached)'
);
my $ip2;
eval { $ip2 = $dns{'www.google.com'}; };
ok( ( not $@ ), '$ip2 = $dns{"www.google.com"}' );
ok( $ip2 eq $ip, 'www.google.com lookup (testing cached)' );