[Rt-commit] rt branch, html-templates, updated. rt-3.9.6-47-g8906083

[Thomas Sibley]

The branch, html-templates has been updated
       via  89060832290c835a0a3243487e954eac3412e989 (commit)
      from  23eeb5995ff298b4ccc114ec7d862b464a8bb3ef (commit)

Summary of changes:
 t/mail/html-outgoing.t |   21 +++++++++++++--------
 1 files changed, 13 insertions(+), 8 deletions(-)

- Log -----------------------------------------------------------------
commit 89060832290c835a0a3243487e954eac3412e989
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Fri Dec 3 18:05:59 2010 -0500

    Actually test that HTML content gets through OK

diff --git a/t/mail/html-outgoing.t b/t/mail/html-outgoing.t
index 3149f52..8560fe5 100644
--- a/t/mail/html-outgoing.t
+++ b/t/mail/html-outgoing.t
@@ -59,28 +59,30 @@ mail_ok {
     'Content-Type' => qr{multipart},
 };
 
-
 diag "Admin Correspondence and Correspondence";
 mail_ok {
     ($ok, $tmsg) = $t->Correspond(
-        Content => 'This is a test of correspondence using HTML templates.',
+        MIMEObj => HTML::Mason::Commands::MakeMIMEEntity(
+            Body => '<p>This is a test of <b>HTML</b> correspondence.</p>',
+            Type => 'text/html',
+        ),
     );
 } { from    => qr/RT System/,
     bcc     => 'root at localhost',
     subject => qr/\Q[example.com #1] The internet is broken\E/,
     body    => parts_regex(
         'Ticket URL: http://localhost:\d+/Ticket/Display\.html\?id=1.+?'.
-        'This is a test of correspondence using HTML templates\.',
+        'This is a test of HTML correspondence\.',
         'Ticket URL: <a href="(http://localhost:\d+/Ticket/Display\.html\?id=1)">\1</a>.+?'.
-        '<pre>This is a test of correspondence using HTML templates\.</pre>'
+        '<p>This is a test of <b>HTML</b> correspondence\.</p>'
     ),
     'Content-Type' => qr{multipart},
 },{ from    => qr/RT System/,
     to      => 'enduser at example.com',
     subject => qr/\Q[example.com #1] The internet is broken\E/,
     body    => parts_regex(
-        'This is a test of correspondence using HTML templates\.',
-        '<pre>This is a test of correspondence using HTML templates\.</pre>'
+        'This is a test of HTML correspondence\.',
+        '<p>This is a test of <b>HTML</b> correspondence\.</p>'
     ),
     'Content-Type' => qr{multipart},
 };
@@ -89,7 +91,10 @@ mail_ok {
 diag "Admin Comment in HTML";
 mail_ok {
     ($ok, $tmsg) = $t->Comment(
-        Content => 'Comment test, please!',
+        MIMEObj => HTML::Mason::Commands::MakeMIMEEntity(
+            Body => '<p>Comment test, <em>please!</em></p>',
+            Type => 'text/html',
+        ),
     );
 } { from    => qr/RT System/,
     bcc     => 'root at localhost',
@@ -101,7 +106,7 @@ mail_ok {
 
         '<p>This is a comment about <a href="http://localhost:\d+/Ticket/Display\.html\?id=1">ticket 1</a>\. '.
         'It is not sent to the Requestor\(s\):</p>.+?'.
-        '<pre>Comment test, please!</pre>',
+        '<p>Comment test, <em>please!</em></p>',
     ),
     'Content-Type' => qr{multipart},
 };

-----------------------------------------------------------------------