1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
use Test::More tests => 3;
# $Id: classic.t,v 1.1 2006/01/17 22:11:38 cwest Exp $
use strict;
$^W =1;
BEGIN {
use_ok 'Email::Send';
}
use Email::Send;
use lib 't/lib';
my $message = <<'.';
From: rjbs@foo.bar
To: rjbs@baz.boo
Subject: test message
Date: Thu, 2 Feb 2006 21:51:53 -0500
This is a test, a what, a test, a what, a test, oh, a test!
.
my $sender = Email::Send->new({ mailer => 'OKMailer' });
my $rv = $sender->send($message);
ok($rv, "message sending returned success");
|
