ensure SQLite and Xapian files respect core.sharedRepository

We can't have files with permissions inconsistent with what's
in git objects.

1 files changed, 9 insertions, 0 deletions

diff --git a/t/v2writable.t b/t/v2writable.t
index d37fb06e..00b08e03 100644
--- a/t/v2writable.t
+++ b/t/v2writable.t
@@ -36,6 +36,15 @@ my $im = eval {
 };
 is($im->{partitions}, 1, 'one partition when forced');
 ok($im->add($mime), 'ordinary message added');
+foreach my $f ("$mainrepo/msgmap.sqlite3",
+                glob("$mainrepo/xap*/*"),
+                glob("$mainrepo/xap*/*/*")) {
+        my @st = stat($f);
+        my ($bn) = (split(m!/!, $f))[-1];
+        is($st[2] & 07777, -f _ ? 0660 : 0770,
+                "default sharedRepository respected for $bn");
+}
+
 my $git0;
 
 if ('ensure git configs are correct') {