install/5.005/Net-Whois-Raw/t/01.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

use strict;

use Test::More tests => 5;
BEGIN { use_ok('Net::Whois::Raw',qw( whois )) };

my @domains = qw( 
	yahoo.com
	freshmeat.net
	freebsd.org
	ucsb.edu
);

print "The following tests requires internet connection...\n";

foreach my $domain ( @domains ) {
	my $txt = whois( $domain );
	ok($txt =~ /$domain/i, "$domain resolved");
}