freeside/install/5.005/Net-Whois-Raw/t 01.t,NONE,1.1.2.1

[ivan]

Update of /home/cvs/cvsroot/freeside/install/5.005/Net-Whois-Raw/t
In directory pouncequick:/tmp/cvs-serv5726/Net-Whois-Raw/t

Added Files:
      Tag: FREESIDE_1_4_BRANCH
	01.t 
Log Message:
adding on 1.4 branch also


--- NEW FILE: 01.t ---
# 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");
}