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
28
29
30
31
32
33
34
35
36
37
|
use Test::More tests => 8;
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!
.
require OKMailerOO;
my $mailer1 = OKMailerOO->new;
my $mailer2 = OKMailerOO->new;
my $sender1 = Email::Send->new({ mailer => $mailer1 });
my $sender2 = Email::Send->new({ mailer => $mailer2 });
my $rv1 = $sender1->send($message);
ok($rv1, "first message sender returned success");
my $rv2 = $sender2->send($message);
ok($rv2, "second message sender returned success");
cmp_ok($rv1, '==', $mailer1, "first sender result was first mailer refaddr");
cmp_ok($rv2, '==', $mailer2, "second sender result was second mailer refaddr");
cmp_ok($rv1, '!=', $rv2, "...and of course the two are distinct objects");
|
