1 files changed, 53 insertions, 0 deletions
diff --git a/t/basic.t b/t/basic.t
new file mode 100644
index 0000000..5f28ffd
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use utf8;
+
+use Email::MIME::Header::Encode 'mime_encode_header';
+
+is(mime_encode_header('Date', 'Wed, 7 Mar 2012 23:00:10 +0100', 'utf8'),
+   'Wed, 7 Mar 2012 23:00:10 +0100',
+   "Date encoded correctly");
+
+for my $header (qw(From Sender Reply-To To Cc Bcc)) {
+    is(mime_encode_header($header, 'Ævar Arnfjörð Bjarmason <abcd@example.com>', 'utf8'),
+        '=?UTF-8?B?w4Z2YXIgQXJuZmrDtnLDsCBCamFybWFzb24=?= <abcd@example.com>',
+        "$header encoded correctly");
+    is(mime_encode_header($header, 'Ricardo Signes <efgh@example.com>', 'utf8'),
+        'Ricardo Signes <efgh@example.com>',
+        "$header encoded correctly");
+    is(mime_encode_header($header, 'Ævar Arnfjörð Bjarmason <abcd@example.com>, "Ricardo Signes" <efgh@example.com>', 'utf8'),
+        '=?UTF-8?B?w4Z2YXIgQXJuZmrDtnLDsCBCamFybWFzb24=?= <abcd@example.com>, "Ricardo Signes" <efgh@example.com>',
+        "$header encoded correctly");
+}
+
+for my $header (qw(Message-ID In-Reply-To References)) {
+    is(mime_encode_header($header, '<CACBZZX54+QxadTb-m=j0M3DoeLo6-PQcPvLEDgYw=ZU57njMWQ@mail.gmail.com>', 'utf8'),
+       '<CACBZZX54+QxadTb-m=j0M3DoeLo6-PQcPvLEDgYw=ZU57njMWQ@mail.gmail.com>',
+       "$header encoded correctly");
+    is(mime_encode_header($header, '<foobar=?baz?=@example.com>', 'utf8'),
+       '<foobar=?baz?=@example.com>',
+       "$header encoded correctly");
+}
+
+for my $header (qw(Subject Comments X-NonStandard)) {
+    is(mime_encode_header($header, 'Ricardo', 'utf8'),
+       'Ricardo',
+       "$header encoded correctly");
+    is(mime_encode_header($header, 'Julián', 'utf8'),
+       '=?UTF-8?B?SnVsacOhbg==?=',
+       "$header encoded correctly");
+    is(mime_encode_header($header, '=?UTF-8?B?SnVsacOhbg==?=', 'utf8'),
+       '=?UTF-8?B?PT9VVEYtOD9CP1NuVnNhY09oYmc9PT89?=',
+       "$header encoded correctly");
+    is(mime_encode_header($header, 'test test test test test test test test tést te (12 34)', 'utf8'),
+       '=?UTF-8?B?dGVzdCB0ZXN0IHRlc3QgdGVzdCB0ZXN0IHRlc3QgdGVzdCB0ZXN0IHTDqXN0?= =?UTF-8?B?IHRlICgxMiAzNCk=?=',
+       "$header encoded correctly");
+    is(mime_encode_header($header, 'test test test test test test test test test te (12 34)', 'utf8'),
+       'test test test test test test test test test te (12 34)',
+       "$header encoded correctly");
+}
+
+done_testing;