0.32 (and then some) released
[freeside.git] / install / 5.005 / Net-Whois-Raw / t / 01.t
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 (file)
index dd7ffc4..0000000
+++ /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");
-}
-