view release on metacpan or  search on metacpan

t/server_mail.t  view on Meta::CPAN

use Apache::ASP::CGI;

&Apache::ASP::CGI::do_self(NoState => 1, 
			   Debug => 3, 
			   # defaults to localhost for mail relay
			   # but will lookup in Net::Config too for
			   # other hosts
			   MailHost => '127.0.0.1',
			   );

__END__

<% use lib '.';	use T;	$t =T->new(); %>
<% 

# test for Net::SMTP, and skip if not installed
eval "use Net::SMTP";
if($@) {
    return;
} else {
    my $smtp = Net::SMTP->new('127.0.0.1');
    unless($smtp) {
	return;
    }
}

$t->eok($Server->Mail({ 
			# won't actually send the mail in test mode
			Test => 1,
			# make the address fairly legit, in case the SMTP
			# is validating in realtime
			To => "asptest\@chamas.com",
			# no from, since some mail gateways may not relay * addresses
			# so we allow for From not to be set while Test is set
			# From => "INSTALL_TEST\@apache-asp.org",
			Subject => "Test Email",
			Body => "Test Body",
			Debug => 0
			}),
	"\$Server->Mail() failed in test mode, check that your mail server at 127.0.0.1 can relay email. "
	);
%>									
<% $t->done; %>