import Net::Whois::Raw into install/5.005 directory *sigh*

[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
new file mode 100644 (file)
index 0000000..dd7ffc4
--- /dev/null
+++ b/install/5.005/Net-Whois-Raw/t/01.t
@@ -0,0 +1,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");
+}
+