my ($bn) = ($dir =~ m!([^/]+)\z!);
is(system(qw(git --git-dir), $dir, qw(fsck --strict)), 0,
"git fsck is clean in epoch $bn");
my ($bn) = ($dir =~ m!([^/]+)\z!);
is(system(qw(git --git-dir), $dir, qw(fsck --strict)), 0,
"git fsck is clean in epoch $bn");