[p5sagit/p5-mst-13.2.git] / lib / Net / t / smtp.t

#!./perl -w

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";
Commit	Line	Data
406c51ee	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