lib/Net/t/smtp.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 use Net::Config;
   9 use Net::SMTP;
  10
  11 unless(@{$NetConfig{smtp_hosts}} && $NetConfig{test_hosts}) {
  12     print "1..0\n";
  13     exit 0;
  14 }
  15
  16 print "1..3\n";
  17
  18 my $i = 1;
  19
  20 $smtp = Net::SMTP->new(Debug => 0)
  21         or (print("not ok 1\n"), exit);
  22
  23 print "ok 1\n";
  24
  25 $smtp->domain or print "not ";
  26 print "ok 2\n";
  27
  28 $smtp->quit or print "not ";
  29 print "ok 3\n";
  30