install/5.005/Net-Whois-Raw/t/01.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl test.pl'
   3
   4 use strict;
   5
   6 use Test::More tests => 5;
   7 BEGIN { use_ok('Net::Whois::Raw',qw( whois )) };
   8
   9 my @domains = qw(
  10         yahoo.com
  11         freshmeat.net
  12         freebsd.org
  13         ucsb.edu
  14 );
  15
  16 print "The following tests requires internet connection...\n";
  17
  18 foreach my $domain ( @domains ) {
  19         my $txt = whois( $domain );
  20         ok($txt =~ /$domain/i, "$domain resolved");
  21 }
  22