From 2319bc6ff8bfef3deb6699f546df0c0281b08e6b Mon Sep 17 00:00:00 2001
From: Mathias Reitinger <mathias.reitinger@loop0.org>
Date: Sun, 10 Jun 2012 23:58:49 +0200
Subject: [PATCH] add utf8 tests to make sure we don't mangle utf8 characters
 in body and subject

---
 t/utf8.t | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 t/utf8.t

diff --git a/t/utf8.t b/t/utf8.t
new file mode 100644
index 00000000..db017043
--- /dev/null
+++ b/t/utf8.t
@@ -0,0 +1,61 @@
+use strict;
+use warnings;
+use Test::More;
+use CiderWebmail::Test {login => 1};
+use Regexp::Common qw(Email::Address);
+use Email::Address;
+use English qw(-no_match_vars);
+
+use charnames ':full';
+
+my $uname = getpwuid $UID;
+
+$mech->get_ok('http://localhost/mailbox/INBOX/compose');
+
+my $unix_time = time();
+
+my $body  = "UMLAUT_A_\N{LATIN SMALL LETTER A WITH DIAERESIS} ";
+$body    .= "UMLAUT_U_\N{LATIN SMALL LETTER U WITH DIAERESIS} ";
+$body    .= "UMLAUT_O_\N{LATIN SMALL LETTER O WITH DIAERESIS} ";
+$body    .= "CHECK_\N{CHECK MARK}";
+
+$mech->submit_form(
+    with_fields => {
+        from        => "$uname\@localhost",
+        to          => "$uname\@localhost",
+        sent_folder => 'Sent',
+        subject     => 'utf8-test-'.$unix_time." -- $body",
+        body        => $body,
+    },
+);
+
+$mech->get( 'http://localhost/mailbox/INBOX?length=99999' );
+$mech->content_like(qr/UMLAUT_A_\N{LATIN SMALL LETTER A WITH DIAERESIS}/, 'subject umlaut handling: A');
+$mech->content_like(qr/UMLAUT_U_\N{LATIN SMALL LETTER U WITH DIAERESIS}/, 'subject umlaut handling: U');
+$mech->content_like(qr/UMLAUT_O_\N{LATIN SMALL LETTER O WITH DIAERESIS}/, 'subject umlaut handling: O');
+$mech->content_like(qr/CHECK_\N{CHECK MARK}/, 'subject check mark');
+
+
+my (@inbox_messages) = $mech->find_all_links( text_regex => qr{\Autf8-test-$unix_time\s\-\-});
+ok((@inbox_messages == 1), 'messages found');
+$mech->get_ok($inbox_messages[0]->url, 'open message');
+
+$mech->content_like(qr/UMLAUT_A_\N{LATIN SMALL LETTER A WITH DIAERESIS}/, 'body umlaut handling: A');
+$mech->content_like(qr/UMLAUT_U_\N{LATIN SMALL LETTER U WITH DIAERESIS}/, 'body umlaut handling: U');
+$mech->content_like(qr/UMLAUT_O_\N{LATIN SMALL LETTER O WITH DIAERESIS}/, 'body umlaut handling: O');
+$mech->content_like(qr/CHECK_\N{CHECK MARK}/, 'check mark');
+
+$mech->get( 'http://localhost/mailbox/Sent?length=99999' );
+my (@sent_messages) = $mech->find_all_links( text_regex => qr{\Autf8-test-$unix_time\s\-\-});
+ok((@sent_messages == 1), 'messages found');
+
+$mech->get_ok($inbox_messages[0]->url.'/delete', "Delete message from INBOX");
+$mech->get_ok($sent_messages[0]->url.'/delete', "Delete message from Sent folder");
+
+$mech->get_ok( 'http://localhost/mailbox/INBOX?length=99999' );
+$mech->content_unlike(qr/utf8-test-$unix_time/, 'message deleted from INBOX');
+
+$mech->get_ok( 'http://localhost/mailbox/Sent?length=99999' );
+$mech->content_unlike(qr/utf8-test-$unix_time/, 'message deleted from Sent folder');
+
+done_testing();