X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=install%2F5.005%2FNet-Whois-Raw%2Ft%2F01.t;fp=install%2F5.005%2FNet-Whois-Raw%2Ft%2F01.t;h=dd7ffc46640297361c0ba087f6b9c1598b82a723;hp=0000000000000000000000000000000000000000;hb=35effa1bf4ac902547615c816960bbc8db8e7256;hpb=de16528011da925274ae502e928c7878bbd7fefa

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
index 000000000..dd7ffc466
--- /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");
+}
+