diff options
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 53 |
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; |