viewdiff: stricter highlighting and linkification check

[public-inbox.git] / t / search.t

diff --git a/t/search.t b/t/search.t
index 0301fd90b6289f379063400ac888343f7ed9d433..83986837eaf9190e8c98aa21115dfeb2db19c38a 100644 (file)
--- a/t/search.t
+++ b/t/search.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Test::More;
 use PublicInbox::TestCommon;
-require_mods(qw(DBD::SQLite Search::Xapian Email::MIME));
+require_mods(qw(DBD::SQLite Search::Xapian));
 require PublicInbox::SearchIdx;
 require PublicInbox::Inbox;
 require PublicInbox::InboxWritable;
@@ -286,9 +286,7 @@ EOF
 });
 
 $ibx->with_umask(sub {
-       my $eml = 't/utf8.eml';
-       my $mime = PublicInbox::InboxWritable::mime_from_path($eml) or
-               die "open $eml: $!";
+       my $mime = mime_load 't/utf8.eml';
        my $doc_id = $rw->add_message($mime);
        ok($doc_id > 0, 'message indexed doc_id with UTF-8');
        my $msg = $rw->query('m:testmessage@example.com', {limit => 1})->[0];
@@ -371,37 +369,7 @@ $ibx->with_umask(sub {
 }
 
 $ibx->with_umask(sub {
-       my $amsg = mime_load 't/search-amsg.eml', sub {
-       my $part1 = Email::MIME->create(
-                 attributes => {
-                     content_type => 'text/plain',
-                     disposition  => 'attachment',
-                     charset => 'US-ASCII',
-                    encoding => 'quoted-printable',
-                    filename => 'attached_fart.txt',
-                 },
-                 body_str => 'inside the attachment',
-       );
-       my $part2 = Email::MIME->create(
-                 attributes => {
-                     content_type => 'text/plain',
-                     disposition  => 'attachment',
-                     charset => 'US-ASCII',
-                    encoding => 'quoted-printable',
-                    filename => 'part_deux.txt',
-                 },
-                 body_str => 'inside another',
-       );
-       Email::MIME->create(
-               header_str => [
-                       Subject => 'see attachment',
-                       'Message-ID' => '<file@attached>',
-                       From => 'John Smith <js@example.com>',
-                       To => 'list@example.com',
-               ],
-               parts => [ $part1, $part2 ],
-       )}; # mime_load sub
-
+       my $amsg = mime_load 't/search-amsg.eml';
        ok($rw->add_message($amsg), 'added attachment');
        $rw_commit->();
        $ro->reopen;