diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-03-07 18:56:40 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-03-07 18:56:40 -0600 |
commit | 9d5fea2e415bc9374d0152349a9ac6a0e1fca027 (patch) | |
tree | e20f279f6f7e4cfd02261af18ac84210e553db57 /t | |
parent | a91eb8ae579953b1c377f8d3c1da77d1c1ebaea7 (diff) | |
download | email-mime-header-encode-master.tar.gz email-mime-header-encode-master.zip |
Diffstat (limited to '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; |