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'); }