lib/Net/t/smtp.t

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