about summary refs log tree commit homepage
path: root/t/solver_git.t
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-04-29 09:46:17 +0000
committerEric Wong <e@80x24.org>2021-04-30 06:41:36 +0000
commit64886302aea5b329a1ec0227d209c14b4a5dda96 (patch)
treef48e4df808d810ce5dfae9a41fc0b808fd022a7c /t/solver_git.t
parent08b649735a94af6a5385df3b78092e5818408df1 (diff)
downloadpublic-inbox-64886302aea5b329a1ec0227d209c14b4a5dda96.tar.gz
This will be convenient to avoid the overhead of
PublicInbox::Eml for verifying synchronization in lei.
Diffstat (limited to 't/solver_git.t')
-rw-r--r--t/solver_git.t7
1 files changed, 2 insertions, 5 deletions
diff --git a/t/solver_git.t b/t/solver_git.t
index 6875e26b..75387b2a 100644
--- a/t/solver_git.t
+++ b/t/solver_git.t
@@ -7,7 +7,6 @@ use PublicInbox::TestCommon;
 use Cwd qw(abs_path);
 require_git(2.6);
 use PublicInbox::ContentHash qw(git_sha);
-use PublicInbox::Eml;
 use PublicInbox::Spawn qw(popen_rd which);
 require_mods(qw(DBD::SQLite Search::Xapian Plack::Util));
 my $git_dir = xqx([qw(git rev-parse --git-dir)], undef, {2 => \(my $null)});
@@ -41,8 +40,7 @@ test_lei({tmpdir => $tmpdir}, sub {
                 "--mail won't run solver");
 
         lei_ok('blob', '69df7d5', '-I', $ibx->{inboxdir});
-        is(git_sha(1, PublicInbox::Eml->new($lei_out))->hexdigest,
-                $expect, 'blob contents output');
+        is(git_sha(1, \$lei_out)->hexdigest, $expect, 'blob contents output');
         my $prev = $lei_out;
         lei_ok(qw(blob --no-mail 69df7d5 -I), $ibx->{inboxdir});
         is($lei_out, $prev, '--no-mail works');
@@ -239,8 +237,7 @@ EOF
                 test_lei({tmpdir => "$tmpdir/ext"}, sub {
                         my $rurl = "$url/$name";
                         lei_ok(qw(blob --no-mail 69df7d5 -I), $rurl);
-                        my $eml = PublicInbox::Eml->new($lei_out);
-                        is(git_sha(1, $eml)->hexdigest, $expect,
+                        is(git_sha(1, \$lei_out)->hexdigest, $expect,
                                 'blob contents output');
                         ok(!lei(qw(blob -I), $rurl, $non_existent),
                                         'non-existent blob fails');