diff options
Diffstat (limited to 'install/5.005/Net-Whois-Raw/t/01.t')
| -rw-r--r-- | install/5.005/Net-Whois-Raw/t/01.t | 22 |
1 files changed, 22 insertions, 0 deletions
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 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"); +} + |