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