X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=install%2F5.005%2FNet-Whois-Raw%2Ft%2F01.t;fp=install%2F5.005%2FNet-Whois-Raw%2Ft%2F01.t;h=0000000000000000000000000000000000000000;hb=cac5bac7073a35e7d693fb55ce537994324b8e74;hp=dd7ffc46640297361c0ba087f6b9c1598b82a723;hpb=88d5d75f5297eaa96d3cd0c2a5f29c981e43e126;p=freeside.git diff --git a/install/5.005/Net-Whois-Raw/t/01.t b/install/5.005/Net-Whois-Raw/t/01.t deleted file mode 100644 index dd7ffc466..000000000 --- a/install/5.005/Net-Whois-Raw/t/01.t +++ /dev/null @@ -1,22 +0,0 @@ -# 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"); -} -