From 40e6d7036b3e168c955d1d5a39e9ab061c7c949d Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 5 Jul 2010 10:21:26 -0700 Subject: [PATCH] Add a test for UTF-8 handling in the subject. --- t/Mail/Send.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/Mail/Send.t b/t/Mail/Send.t index 344c15973..b4fb8f0fe 100644 --- a/t/Mail/Send.t +++ b/t/Mail/Send.t @@ -42,7 +42,7 @@ if ( $@ ) { diag( "Can't prepare mail server: $@" ) } #---------------------------------------------------------------------------- # Tests -plan tests => 33; # Increment this number for each test you create +plan tests => 34; # Increment this number for each test you create WebGUI::Test->addToCleanup(SQL => 'delete from mailQueue'); @@ -127,7 +127,8 @@ $mail = WebGUI::Mail::Send->create( $session, { $mail->addHeaderField('List-ID', "H\x{00C4}ufige Fragen"); my $messageId = $mail->queue; my $dbMail = WebGUI::Mail::Send->retrieve($session, $messageId); -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 in List-ID'); +is($dbMail->getMimeEntity->head->get('Subject'), "=?UTF-8?Q?H=C3=84ufige=20Fragen?=\n", '... in Subject'); { my $mail = WebGUI::Mail::Send->create( $session ); @@ -456,4 +457,5 @@ SKIP: { my $parsed_message = $parser->parse_data($received->{contents}); ok ( $parsed_message->is_multipart, 'left as multipart since it has more than 1 part'); } + # TODO: Test the emailToLog config setting