. tests/lib
t-setup-import examplegit
+t-tstunt-parsechangelog
-cd example
+cd $tmp/git/$p.git
+git config core.sharedRepository true
+chmod -R g+w objects
+umask 022
+
+cd $tmp/example
suite=stable
t-dgit fetch stable
t-has-parent-or-is $rstable $badcommit
+fixup=${DGIT_BADCOMMIT_FIXUP-dgit-badcommit-fixup}
+
cd $tmp/git/$p.git
-${DGIT_BADCOMMIT_FIXUP} --real
+git gc --aggressive --prune=all
+rmdir objects/* ||:
+
+$fixup --real
cd $tmp/$p
git symbolic-ref HEAD >../sym.before
git rev-parse HEAD >../ref.before
-${DGIT_BADCOMMIT_FIXUP} --real
+$fixup --real
git symbolic-ref HEAD >../sym.after
git rev-parse HEAD >../ref.after
t-expect-fail "child $rstable lacks parent $badcommit" \
t-has-parent-or-is $rstable $badcommit
+check_shared () {
+ find "$1" -perm -200 \! -perm -020 -ls |tee $tmp/badperm
+ test -f $tmp/badperm -a ! -s $tmp/badperm
+}
+
+check_shared $tmp/git/$p.git/objects
+
t-ok