X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Fview.t;h=462667f1a54cc60ec9952c9ee55b8280f8bddae2;hp=38c12fcc1fda8bddd64be81dba0c17920228142b;hb=a5c812fb9d39adcf6ae7e63c15177ac3ce0cadfb;hpb=e3e9ebdaaf2c2f8192fc003f1857979f933b9a8b diff --git a/t/view.t b/t/view.t index 38c12fcc..462667f1 100644 --- a/t/view.t +++ b/t/view.t @@ -1,198 +1,31 @@ -# Copyright (C) 2013-2019 all contributors +# Copyright (C) 2013-2020 all contributors # License: AGPL-3.0+ use strict; -use warnings; use Test::More; use PublicInbox::TestCommon; -use Email::MIME; require_mods('Plack::Util'); use_ok 'PublicInbox::View'; -use_ok 'PublicInbox::Config'; -# FIXME: make this test less fragile -my $ctx = { - env => { HTTP_HOST => 'example.com', 'psgi.url_scheme' => 'http' }, - -inbox => Plack::Util::inline_object( - name => 'test', - over => sub { undef }, - search => sub { undef }, - base_url => sub { 'http://example.com/' }, - cloneurl => sub {[]}, - nntp_url => sub {[]}, - max_git_epoch => sub { undef }, - description => sub { '' }), - www => Plack::Util::inline_object(style => sub { '' }), -}; -$ctx->{-inbox}->{-primary_address} = 'test@example.com'; +# this only tests View.pm internals which are subject to change, +# see t/plack.t for tests against the PSGI interface. -sub msg_html ($$) { - my ($ctx, $mime) = @_; - - my $s = ''; - my $r = PublicInbox::View::msg_html($ctx, $mime); - my $body = $r->[2]; - while (defined(my $buf = $body->getline)) { - $s .= $buf; - } - $body->close; - $s; -} - -# plain text -{ - my $body = < keep this inline - -OK - -> Long and wordy reply goes here and it is split across multiple lines. -> We generate links to a separate full page where quoted-text is inline. -> This is -> -> Currently 12 lines -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED -> See MAX_INLINE_QUOTED - -hello world -EOF - my $s = Email::Simple->create( - header => [ - From => 'a@example.com', - To => 'b@example.com', - 'Content-Type' => 'text/plain', - 'Message-ID' => '', - Subject => 'this is a subject', - ], - body => $body, - )->as_string; - my $mime = Email::MIME->new($s); - my $html = msg_html($ctx, $mime); - - # ghetto tests - like($html, qr!create( - attributes => { content_type => 'text/plain', }, - body => 'hi', - ), - Email::MIME->create( - attributes => { content_type => 'text/plain', }, - body => 'bye', - ) - ]; - my $mime = Email::MIME->create( - header_str => [ - From => 'a@example.com', - Subject => 'blargh', - 'Message-ID' => '', - 'In-Reply-To' => '', - ], - parts => $parts, - ); - - my $html = msg_html($ctx, $mime); - like($html, qr/hi\n.*-- Attachment #2.*\nbye\n/s, "multipart split"); -} - -# multipart email with attached patch -{ - my $parts = [ - Email::MIME->create( - attributes => { content_type => 'text/plain', }, - body => 'hi, see attached patch', - ), - Email::MIME->create( - attributes => { - content_type => 'text/plain', - filename => "foo&.patch", - }, - body => "--- a/file\n+++ b/file\n" . - "@@ -49, 7 +49,34 @@\n", - ), - ]; - my $mime = Email::MIME->create( - header_str => [ - From => 'a@example.com', - Subject => '[PATCH] asdf', - 'Message-ID' => '', - ], - parts => $parts, - ); - - my $html = msg_html($ctx, $mime); - like($html, qr!.*Attachment #2: foo&(?:amp|#38);\.patch --!, - "parts split with filename"); -} - -# multipart collapsed to single quoted-printable text/plain -{ - my $parts = [ - Email::MIME->create( - attributes => { - content_type => 'text/plain', - encoding => 'quoted-printable', - }, - body => 'hi = bye', - ) - ]; - my $mime = Email::MIME->create( - header_str => [ - From => 'qp@example.com', - Subject => 'QP', - 'Message-ID' => '', - ], - parts => $parts, - ); - - my $orig = $mime->body_raw; - 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"); -} - -{ - use PublicInbox::MID qw/id_compress/; - - # n.b: this is probably invalid since we dropped CGI for PSGI: - like(id_compress('foo%bar@wtf'), qr/\A[a-f0-9]{40}\z/, - "percent always converted to sha1 to workaround buggy httpds"); - - is(id_compress('foobar-wtf'), 'foobar-wtf', - 'regular ID not compressed'); -} - -{ - my $cols = PublicInbox::View::COLS(); - my @addr; - until (length(join(', ', @addr)) > ($cols * 2)) { - push @addr, '"l, f" '; - my $n = int(rand(20)) + 1; - push @addr, ('x'x$n).'@x'; - } - my $orig = join(', ', @addr); - my $res = PublicInbox::View::fold_addresses($orig.''); - isnt($res, $orig, 'folded result'); - unlike($res, qr/l,\n\tf/s, '"last, first" no broken'); - my @nospc = ($res, $orig); - s/\s+//g for @nospc; - is($nospc[0], $nospc[1], 'no addresses lost in translation'); - my $tws = PublicInbox::View::fold_addresses($orig.' '); - # (Email::Simple drops leading whitespace, but not trailing) - $tws =~ s/ \z//; - is($tws, $res, 'not thrown off by trailing whitespace'); +my $cols = PublicInbox::View::COLS(); +my @addr; +until (length(join(', ', @addr)) > ($cols * 2)) { + push @addr, '"l, f" '; + my $n = int(rand(20)) + 1; + push @addr, ('x'x$n).'@x'; } +my $orig = join(', ', @addr); +my $res = PublicInbox::View::fold_addresses($orig.''); +isnt($res, $orig, 'folded result'); +unlike($res, qr/l,\n\tf/s, '"last, first" no broken'); +my @nospc = ($res, $orig); +s/\s+//g for @nospc; +is($nospc[0], $nospc[1], 'no addresses lost in translation'); +my $tws = PublicInbox::View::fold_addresses($orig.' '); +# (Email::Simple drops leading whitespace, but not trailing) +$tws =~ s/ \z//; +is($tws, $res, 'not thrown off by trailing whitespace'); done_testing();