1#!/usr/bin/perl -sw 2# 3# $Id: asn.t 775 2009-05-27 08:09:42Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use Test::More tests => 2; 10 11use DNSCheck; 12 13###################################################################### 14 15my $check = new DNSCheck; 16 17###################################################################### 18 19ok(join(",", @{ $check->asn->lookup("195.47.254.0") }) eq "29344"); 20ok(join(",", @{ $check->asn->lookup("192.71.220.0") }) eq "1257"); 21