]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/multi-mid.t
remove most internal Email::MIME usage
[public-inbox.git] / t / multi-mid.t
index 31a8fd74cf29caf77708f2a3e8882fc8f0a3200a..91c8597e2e61f1815f6f4976e4aa59365b266d46 100644 (file)
@@ -2,7 +2,7 @@
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
 use Test::More;
-use PublicInbox::MIME;
+use PublicInbox::Eml;
 use PublicInbox::TestCommon;
 use PublicInbox::InboxWritable;
 require_git(2.6);
@@ -11,7 +11,7 @@ require PublicInbox::SearchIdx;
 my $delay = $ENV{TEST_DELAY_CONVERT};
 
 my $addr = 'test@example.com';
-my $bad = PublicInbox::MIME->new(<<EOF);
+my $bad = PublicInbox::Eml->new(<<EOF);
 Message-ID: <a\@example.com>
 Message-ID: <b\@example.com>
 From: a\@example.com
@@ -20,7 +20,7 @@ Subject: bad
 
 EOF
 
-my $good = PublicInbox::MIME->new(<<EOF);
+my $good = PublicInbox::Eml->new(<<EOF);
 Message-ID: <b\@example.com>
 From: b\@example.com
 To: $addr
@@ -65,7 +65,7 @@ for my $order ([$bad, $good], [$good, $bad]) {
        my @v2 = ($ibx->over->get_art(1), $ibx->over->get_art(2));
        is_deeply(\@v2, \@old, 'v2 conversion times match');
 
-       system(qw(git clone -sq --mirror), "$tmpdir/v2/git/0.git",
+       xsys(qw(git clone -sq --mirror), "$tmpdir/v2/git/0.git",
                "$tmpdir/v2-clone/git/0.git") == 0 or die "clone: $?";
        $cmd = [ '-init', '-Lbasic', '-V2', 'v2c', "$tmpdir/v2-clone",
                'http://example.com/v2c', 'v2c@example.com' ];