X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fhttpd.t;h=7404eb8b691156a7f820eea4310c037e8d78684f;hb=1e3c53a422b8d23cff961e43f77ea0a835cdef78;hp=c9756a705c67cd1c5161c69f242d410ea0c39437;hpb=c5ce0f75020db9b3fa7dae9958bedcdb08452e04;p=public-inbox.git
diff --git a/t/httpd.t b/t/httpd.t
index c9756a70..7404eb8b 100644
--- a/t/httpd.t
+++ b/t/httpd.t
@@ -1,9 +1,10 @@
-# Copyright (C) 2016-2019 all contributors
+# Copyright (C) 2016-2020 all contributors
# License: AGPL-3.0+
use strict;
use warnings;
use Test::More;
use PublicInbox::TestCommon;
+use PublicInbox::Eml;
use Socket qw(IPPROTO_TCP SOL_SOCKET);
require_mods(qw(Plack::Util Plack::Builder HTTP::Date HTTP::Status));
@@ -20,7 +21,6 @@ my $sock = tcp_server();
my $td;
use_ok 'PublicInbox::Git';
use_ok 'PublicInbox::Import';
-use_ok 'Email::MIME';
{
local $ENV{HOME} = $home;
my $cmd = [ '-init', $group, $maindir, 'http://example.com/', $addr ];
@@ -28,7 +28,7 @@ use_ok 'Email::MIME';
# ensure successful message delivery
{
- my $mime = Email::MIME->new(<new(<
To: You
Cc: $addr
@@ -64,22 +64,22 @@ EOF
is($conn->read($buf, 1), 0, "EOF");
}
- is(system(qw(git clone -q --mirror),
+ is(xsys(qw(git clone -q --mirror),
"http://$host:$port/$group", "$tmpdir/clone.git"),
0, 'smart clone successful');
# ensure dumb cloning works, too:
- is(system('git', "--git-dir=$maindir",
+ is(xsys('git', "--git-dir=$maindir",
qw(config http.uploadpack false)),
0, 'disable http.uploadpack');
- is(system(qw(git clone -q --mirror),
+ is(xsys(qw(git clone -q --mirror),
"http://$host:$port/$group", "$tmpdir/dumb.git"),
0, 'clone successful');
ok($td->kill, 'killed httpd');
$td->join;
- is(system('git', "--git-dir=$tmpdir/clone.git",
+ is(xsys('git', "--git-dir=$tmpdir/clone.git",
qw(fsck --no-verbose)), 0,
'fsck on cloned directory successful');
}