X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fplack.t;h=c9a2cf79521fbedf35befa20002778c100f69f79;hb=3c313f9034aac96182e2efdc2f92c40803626f32;hp=f9a55e4366b5d98c4cad0d480a1dda4f08bc5668;hpb=9bd675d33ad1e49bd2ebe12a1d216216e61380de;p=public-inbox.git diff --git a/t/plack.t b/t/plack.t index f9a55e43..c9a2cf79 100644 --- a/t/plack.t +++ b/t/plack.t @@ -4,9 +4,9 @@ use strict; use warnings; use Test::More; use Email::MIME; -use File::Temp qw/tempdir/; +use PublicInbox::TestCommon; my $psgi = "./examples/public-inbox.psgi"; -my $tmpdir = tempdir('pi-plack-XXXXXX', TMPDIR => 1, CLEANUP => 1); +my ($tmpdir, $for_destroy) = tmpdir(); my $pi_config = "$tmpdir/config"; my $maindir = "$tmpdir/main.git"; my $addr = 'test-public@example.com'; @@ -29,7 +29,7 @@ foreach my $mod (@mods) { use_ok $mod; } close $fh or die "close: $!\n"; my %cfg = ( "$cfgpfx.address" => $addr, - "$cfgpfx.mainrepo" => $maindir, + "$cfgpfx.inboxdir" => $maindir, "$cfgpfx.url" => 'http://example.com/test/', "$cfgpfx.newsgroup" => 'inbox.test', ); @@ -54,9 +54,9 @@ EOF my $im = PublicInbox::Import->new($git, 'test', $addr); $im->add($mime); $im->done; - my $rev = `git --git-dir="$maindir" rev-list HEAD`; + my $rev = $git->qx(qw(rev-list HEAD)); like($rev, qr/\A[a-f0-9]{40}/, "good revision committed"); - @ls = `git --git-dir="$maindir" ls-tree -r --name-only HEAD`; + @ls = $git->qx(qw(ls-tree -r --name-only HEAD)); chomp @ls; } my $app = eval {