1#!/usr/bin/perl -sw
2#
3# $Id: address.t 765 2009-05-20 07:18:40Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use Test::More tests => 3;
10
11use DNSCheck;
12
13######################################################################
14
15my $check = new DNSCheck();
16
17######################################################################
18
19ok($check->address->test("192.36.144.107") == 0);
20ok($check->address->test("2a01:3f0:0:301::53") == 0);
21ok($check->address->test("127.0.0.1") == 1);
22