oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove diags, and fix counts for mail tests.

Browse source
This commit is contained in:
Colin Kuskie 2009-10-27 19:15:26 -07:00
parent 697353558c
commit 16e482f1d2
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Mail/Send.t
View file

@ -122,9 +122,7 @@ $mail = WebGUI::Mail::Send->create( $session, {
}); });
$mail->addHeaderField('List-ID', "H\x{00C4}ufige Fragen"); $mail->addHeaderField('List-ID', "H\x{00C4}ufige Fragen");
my $messageId = $mail->queue; my $messageId = $mail->queue;
diag $messageId;
my $dbMail = WebGUI::Mail::Send->retrieve($session, $messageId); my $dbMail = WebGUI::Mail::Send->retrieve($session, $messageId);
diag ref $dbMail;
is($dbMail->getMimeEntity->head->get('List-ID'), "=?UTF-8?Q?H=C3=84ufige=20Fragen?=\n", 'addHeaderField: handles utf-8 correctly'); is($dbMail->getMimeEntity->head->get('List-ID'), "=?UTF-8?Q?H=C3=84ufige=20Fragen?=\n", 'addHeaderField: handles utf-8 correctly');
# TODO: Test that addHtml creates a body with the right content type # TODO: Test that addHtml creates a body with the right content type
@ -337,7 +335,7 @@ $mail->send;
is(scalar @mailIds, $startingMessages+2, 'sending a message with a group added two messages'); is(scalar @mailIds, $startingMessages+2, 'sending a message with a group added two messages');
@mailIds = $session->db->buildArray("select messageId from mailQueue where message like ?",['%Mail::Send test message%']); @mailIds = $session->db->buildArray("select messageId from mailQueue where message like ?",['%Mail::Send test message%']);
is(scalar @mailIds, $startingMessages+2, 'sending a message with a group added the right two messages'); is(scalar @mailIds, 2, 'sending a message with a group added the right two messages');
my @emailAddresses = (); my @emailAddresses = ();
foreach my $mailId (@mailIds) { foreach my $mailId (@mailIds) {