test suite: Run git-fsck a lot

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/lib b/tests/lib
index b7763056fa2cca759e115a1421b93c0b0bc534b5..579ddda34665dc279cd268ae70a011515095db1e 100644 (file)
--- a/tests/lib
+++ b/tests/lib
@@ -349,7 +349,22 @@ t-git-dir-check () {
        esac
 }
 
+t-git-fsck () {
+       git fsck --no-dangling --strict
+}
+
+t-fscks () {
+       (
+       shopt -s nullglob
+       for d in $tmp/*/.git $tmp/git/*.git; do
+               cd "$d"
+               t-git-fsck
+       done
+       )
+}
+
 t-ok () {
+       t-fscks
        echo ok.
 }