X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fview.t;h=1f4ed9373a8857a385cea3a84b78c3226325c0dd;hb=ef3ca9b80fcb464d851c2f8d87f3f02f4f70986d;hp=4ce3c7739018ddf3f5d060471043d729320ef55c;hpb=4af9fd9c5e46eed341a535f37d54cf228303326c;p=public-inbox.git diff --git a/t/view.t b/t/view.t index 4ce3c773..1f4ed937 100644 --- a/t/view.t +++ b/t/view.t @@ -4,8 +4,8 @@ use strict; use warnings; use Test::More; use Email::MIME; -use PublicInbox::View; use Plack::Util; +use_ok 'PublicInbox::View'; # FIXME: make this test less fragile my $ctx = { @@ -13,7 +13,9 @@ my $ctx = { -inbox => Plack::Util::inline_object( name => 'test', search => sub { undef }, + base_url => sub { 'http://example.com/' }, cloneurl => sub {[]}, + nntp_url => sub {[]}, description => sub { '' }), }; $ctx->{-inbox}->{-primary_address} = 'test@example.com'; @@ -22,7 +24,8 @@ sub msg_html ($) { my ($mime) = @_; my $s = ''; - my $body = PublicInbox::View::msg_html($ctx, $mime); + my $r = PublicInbox::View::msg_html($ctx, $mime); + my $body = $r->[2]; while (defined(my $buf = $body->getline)) { $s .= $buf; } @@ -109,7 +112,7 @@ EOF Email::MIME->create( attributes => { content_type => 'text/plain', - filename => "foo.patch", + filename => "foo&.patch", }, body => "--- a/file\n+++ b/file\n" . "@@ -49, 7 +49,34 @@\n", @@ -125,7 +128,7 @@ EOF ); my $html = msg_html($mime); - like($html, qr!.*Attachment #2: foo\.patch --!, + like($html, qr!.*Attachment #2: foo&(?:amp|#38);\.patch --!, "parts split with filename"); }