X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fview.t;h=38c12fcc1fda8bddd64be81dba0c17920228142b;hb=62f28026e624ed30d620063a0fa92cbedb7f6673;hp=0782954305944857ddd59d69f9c5ff9d7a277c4a;hpb=70caf43a131fc5bdf7104f82f2acee9d5353d6a8;p=public-inbox.git diff --git a/t/view.t b/t/view.t index 07829543..38c12fcc 100644 --- a/t/view.t +++ b/t/view.t @@ -1,10 +1,11 @@ -# Copyright (C) 2013-2018 all contributors +# Copyright (C) 2013-2019 all contributors # License: AGPL-3.0+ use strict; use warnings; use Test::More; +use PublicInbox::TestCommon; use Email::MIME; -use Plack::Util; +require_mods('Plack::Util'); use_ok 'PublicInbox::View'; use_ok 'PublicInbox::Config'; @@ -18,14 +19,14 @@ my $ctx = { base_url => sub { 'http://example.com/' }, cloneurl => sub {[]}, nntp_url => sub {[]}, - max_git_part => sub { undef }, + max_git_epoch => sub { undef }, description => sub { '' }), www => Plack::Util::inline_object(style => sub { '' }), }; $ctx->{-inbox}->{-primary_address} = 'test@example.com'; -sub msg_html ($) { - my ($mime) = @_; +sub msg_html ($$) { + my ($ctx, $mime) = @_; my $s = ''; my $r = PublicInbox::View::msg_html($ctx, $mime); @@ -72,7 +73,7 @@ EOF body => $body, )->as_string; my $mime = Email::MIME->new($s); - my $html = msg_html($mime); + my $html = msg_html($ctx, $mime); # ghetto tests like($html, qr! $parts, ); - my $html = msg_html($mime); + my $html = msg_html($ctx, $mime); like($html, qr/hi\n.*-- Attachment #2.*\nbye\n/s, "multipart split"); } @@ -131,7 +132,7 @@ EOF parts => $parts, ); - my $html = msg_html($mime); + my $html = msg_html($ctx, $mime); like($html, qr!.*Attachment #2: foo&(?:amp|#38);\.patch --!, "parts split with filename"); } @@ -157,7 +158,7 @@ EOF ); my $orig = $mime->body_raw; - my $html = msg_html($mime); + my $html = msg_html($ctx, $mime); like($orig, qr/hi =3D bye=/, "our test used QP correctly"); like($html, qr/\bhi = bye\b/, "HTML output decoded QP"); }