diff options
Diffstat (limited to 'lib/Net/t/smtp.t')
-rw-r--r-- | lib/Net/t/smtp.t | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/lib/Net/t/smtp.t b/lib/Net/t/smtp.t deleted file mode 100644 index ac2df6c8b9..0000000000 --- a/lib/Net/t/smtp.t +++ /dev/null @@ -1,38 +0,0 @@ -#!./perl -w - -BEGIN { - unless (-d 'blib') { - chdir 't' if -d 't'; - @INC = '../lib'; - } - if (!eval "require Socket") { - print "1..0 # no Socket\n"; exit 0; - } - if (ord('A') == 193 && !eval "require Convert::EBCDIC") { - print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; - } -} - -use Net::Config; -use Net::SMTP; - -unless(@{$NetConfig{smtp_hosts}} && $NetConfig{test_hosts}) { - print "1..0\n"; - exit 0; -} - -print "1..3\n"; - -my $i = 1; - -$smtp = Net::SMTP->new(Debug => 0) - or (print("not ok 1\n"), exit); - -print "ok 1\n"; - -$smtp->domain or print "not "; -print "ok 2\n"; - -$smtp->quit or print "not "; -print "ok 3\n"; - |