fetch: support v2 w/o manifest on old WWW

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

diff --git a/t/v2mirror.t b/t/v2mirror.t
index fa4a717d4598aff5ff73f435824f677bba4d1238..a625646da1cf46604d673f198cd7e30b1406746d 100644 (file)
--- a/t/v2mirror.t
+++ b/t/v2mirror.t
@@ -376,6 +376,14 @@ EOM
        my @g_last = grep { -w $_ } glob("$dst/git/*.git");
        is_deeply(\@g_last, [ $g_all[-1] ], 'partial clone of ~0 worked');
 
+       chmod(0755, $g_all[0]) or xbail "chmod $!";
+       my @before = glob("$g_all[0]/objects/*/*");
+       run_script([qw(-fetch -v)], undef, { -C => $dst, 2 => \($err = '') });
+       is($?, 0, 'scraping fetch on old PublicInbox::WWW') or diag $err;
+       my @after = glob("$g_all[0]/objects/*/*");
+       ok(scalar(@before) < scalar(@after),
+               'fetched 0.git after enabling write-bit');
+
        $td->join('TERM');
 }