tests: move t/common.perl to PublicInbox::TestCommon

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

diff --git a/t/git.t b/t/git.t
index 9bc8900c6d858781dcc23072f4d5a6af50ec07fd..d4694f44c2d98393458a856c7b7dabe502c9acdf 100644 (file)
--- a/t/git.t
+++ b/t/git.t
@@ -1,22 +1,20 @@
-# Copyright (C) 2015-2018 all contributors <meta@public-inbox.org>
+# Copyright (C) 2015-2019 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
 use warnings;
 use Test::More;
-use File::Temp qw/tempdir/;
-my $dir = tempdir('pi-git-XXXXXX', TMPDIR => 1, CLEANUP => 1);
+use PublicInbox::TestCommon;
+my ($dir, $for_destroy) = tmpdir();
 use PublicInbox::Spawn qw(popen_rd);
 
-eval { require IPC::Run } or plan skip_all => 'IPC::Run missing';
 use_ok 'PublicInbox::Git';
 
 {
        is(system(qw(git init -q --bare), $dir), 0, 'created git directory');
-       my $cmd = [ 'git', "--git-dir=$dir", 'fast-import', '--quiet' ];
-
        my $fi_data = './t/git.fast-import-data';
        ok(-r $fi_data, "fast-import data readable (or run test at top level)");
-       IPC::Run::run($cmd, '<', $fi_data);
+       local $ENV{GIT_DIR} = $dir;
+       system("git fast-import --quiet <$fi_data");
        is($?, 0, 'fast-import succeeded');
 }
 
@@ -46,8 +44,10 @@ if (1) {
        my $size = -s $big_data;
        ok($size > 8192, 'file is big enough');
 
-       my $buf = '';
-       IPC::Run::run($cmd, '<', $big_data, '>', \$buf);
+       my $buf = do {
+               local $ENV{GIT_DIR} = $dir;
+               `git hash-object -w --stdin <$big_data`;
+       };
        is(0, $?, 'hashed object successfully');
        chomp $buf;
 
@@ -67,7 +67,7 @@ if (1) {
 }
 
 if ('alternates reloaded') {
-       my $alt = tempdir('pi-git-XXXXXX', TMPDIR => 1, CLEANUP => 1);
+       my ($alt, $alt_obj) = tmpdir();
        my @cmd = ('git', "--git-dir=$alt", qw(hash-object -w --stdin));
        is(system(qw(git init -q --bare), $alt), 0, 'create alt directory');
        open my $fh, '<', "$alt/config" or die "open failed: $!\n";