#!/usr/bin/perl -sw
#
# $Id: address.t 765 2009-05-20 07:18:40Z calle $

require 5.008;
use warnings;
use strict;

use Test::More tests => 3;

use DNSCheck;

######################################################################

my $check = new DNSCheck();

######################################################################

ok($check->address->test("192.36.144.107") == 0);
ok($check->address->test("2a01:3f0:0:301::53") == 0);
ok($check->address->test("127.0.0.1") == 1);