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