(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git fsck random collection of tests\n"> <LIT_CHARS "\n"> <LIT_CHARS "* (HEAD) B\n"> <LIT_CHARS "* (master) A\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config gc.auto 0 &&\n"> <LIT_CHARS "\tgit config i18n.commitencoding ISO-8859-1 &&\n"> <LIT_CHARS "\ttest_commit A fileA one &&\n"> <LIT_CHARS "\tgit config --unset i18n.commitencoding &&\n"> <LIT_CHARS "\tgit checkout HEAD^0 &&\n"> <LIT_CHARS "\ttest_commit B fileB two &&\n"> <LIT_CHARS "\tgit tag -d A B &&\n"> <LIT_CHARS "\tgit reflog expire --expire=now --all &&\n"> <LIT_CHARS "\t>empty\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "loose objects borrowed from alternate are not missing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir another &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd another &&\n"> <LIT_CHARS "\t\tgit init &&\n"> <LIT_CHARS "\t\techo ../../../.git/objects >.git/objects/info/alternates &&\n"> <LIT_CHARS "\t\ttest_commit C fileC one &&\n"> <LIT_CHARS "\t\tgit fsck --no-dangling >../actual 2>&1\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "HEAD is part of refs, valid objects appear valid">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit fsck >actual 2>&1 &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: helpers for corruption tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha1_file() {\n"> <LIT_CHARS "\t\techo \"$*\" | sed \"s#..#.git/objects/&/#\"\n"> <LIT_CHARS "\t} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tremove_object() {\n"> <LIT_CHARS "\t\tfile=$(sha1_file \"$*\") &&\n"> <LIT_CHARS "\t\ttest -e \"$file\" &&\n"> <LIT_CHARS "\t\trm -f \"$file\"\n"> <LIT_CHARS "\t}\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "object with bad sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha=$(echo blob | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\told=$(echo $sha | sed \"s+^..+&/+\") &&\n"> <LIT_CHARS "\tnew=$(dirname $old)/ffffffffffffffffffffffffffffffffffffff &&\n"> <LIT_CHARS "\tsha=\"$(dirname $new)$(basename $new)\" &&\n"> <LIT_CHARS "\tmv .git/objects/$old .git/objects/$new &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $sha\" &&\n"> <LIT_CHARS "\tgit update-index --add --cacheinfo 100644 $sha foo &&\n"> <LIT_CHARS "\ttest_when_finished \"git read-tree -u --reset HEAD\" &&\n"> <LIT_CHARS "\ttree=$(git write-tree) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $tree\" &&\n"> <LIT_CHARS "\tcmt=$(echo bogus | git commit-tree $tree) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $cmt\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus $cmt &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail git fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"$sha.*corrupt\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "branch pointing to non-commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-parse HEAD^{tree} >.git/refs/heads/invalid &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/invalid\" &&\n"> <LIT_CHARS "\tgit fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"not a commit\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "email without @ is okay">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/@/AT/\" basis >okay &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <okay) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $new\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\tgit fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\t! grep \"commit $new\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "email with embedded > is not okay">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/@[a-z]/&>/\" basis >bad-email &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <bad-email) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $new\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\tgit fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in commit $new\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "missing < email delimiter is reported nicely">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/<//\" basis >bad-email-2 &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <bad-email-2) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $new\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\tgit fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in commit $new.* - bad name\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "missing email is reported nicely">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/[a-z]* <[^>]*>//\" basis >bad-email-3 &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <bad-email-3) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $new\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\tgit fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in commit $new.* - missing email\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "> in name is reported">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/ </> </\" basis >bad-email-4 &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <bad-email-4) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $new\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\tgit fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in commit $new\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tag pointing to nonexistent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >invalid-tag <<-\\EOF &&\n"> <LIT_CHARS "\tobject ffffffffffffffffffffffffffffffffffffffff\n"> <LIT_CHARS "\ttype commit\n"> <LIT_CHARS "\ttag invalid\n"> <LIT_CHARS "\ttagger T A Gger <tagger@example.com> 1234567890 -0000\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tThis is an invalid tag.\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttag=$(git hash-object -t tag -w --stdin <invalid-tag) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $tag\" &&\n"> <LIT_CHARS "\techo $tag >.git/refs/tags/invalid &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/tags/invalid\" &&\n"> <LIT_CHARS "\ttest_must_fail git fsck --tags >out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"broken link\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tag pointing to something else than its type">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha=$(echo blob | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $sha\" &&\n"> <LIT_CHARS "\tcat >wrong-tag <<-EOF &&\n"> <LIT_CHARS "\tobject $sha\n"> <LIT_CHARS "\ttype commit\n"> <LIT_CHARS "\ttag wrong\n"> <LIT_CHARS "\ttagger T A Gger <tagger@example.com> 1234567890 -0000\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tThis is an invalid tag.\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttag=$(git hash-object -t tag -w --stdin <wrong-tag) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $tag\" &&\n"> <LIT_CHARS "\techo $tag >.git/refs/tags/wrong &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/tags/wrong\" &&\n"> <LIT_CHARS "\ttest_must_fail git fsck --tags 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in tag.*broken links\" out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleaned up">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit fsck >actual 2>&1 &&\n"> <LIT_CHARS "\ttest_cmp empty actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --verify-objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --verify-objects --all >/dev/null 2>out &&\n"> <LIT_CHARS "\ttest_cmp empty out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --verify-objects with bad sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha=$(echo blob | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\told=$(echo $sha | sed \"s+^..+&/+\") &&\n"> <LIT_CHARS "\tnew=$(dirname $old)/ffffffffffffffffffffffffffffffffffffff &&\n"> <LIT_CHARS "\tsha=\"$(dirname $new)$(basename $new)\" &&\n"> <LIT_CHARS "\tmv .git/objects/$old .git/objects/$new &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $sha\" &&\n"> <LIT_CHARS "\tgit update-index --add --cacheinfo 100644 $sha foo &&\n"> <LIT_CHARS "\ttest_when_finished \"git read-tree -u --reset HEAD\" &&\n"> <LIT_CHARS "\ttree=$(git write-tree) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $tree\" &&\n"> <LIT_CHARS "\tcmt=$(echo bogus | git commit-tree $tree) &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object $cmt\" &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/bogus $cmt &&\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail git rev-list --verify-objects refs/heads/bogus >/dev/null 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep -q \"error: sha1 mismatch 63ffffffffffffffffffffffffffffffffffffff\" out\n">]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('_bz', {[SQ <LIT_CHARS "\\0">]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('_bz5', {[DQ [VarSub _bz][VarSub _bz][VarSub _bz][VarSub _bz][VarSub _bz]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('_bz20', {[DQ [VarSub _bz5][VarSub _bz5][VarSub _bz5][VarSub _bz5]]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices blob entry pointing to null sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(git init null-blob &&\n"> <LIT_CHARS "\t cd null-blob &&\n"> <LIT_CHARS "\t sha=$(printf \"100644 file$_bz$_bz20\" |\n"> <LIT_CHARS "\t       git hash-object -w --stdin -t tree) &&\n"> <LIT_CHARS "\t  git fsck 2>out &&\n"> <LIT_CHARS "\t  cat out &&\n"> <LIT_CHARS "\t  grep \"warning.*null sha1\" out\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices submodule entry pointing to null sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(git init null-commit &&\n"> <LIT_CHARS "\t cd null-commit &&\n"> <LIT_CHARS "\t sha=$(printf \"160000 submodule$_bz$_bz20\" |\n"> <LIT_CHARS "\t       git hash-object -w --stdin -t tree) &&\n"> <LIT_CHARS "\t  git fsck 2>out &&\n"> <LIT_CHARS "\t  cat out &&\n"> <LIT_CHARS "\t  grep \"warning.*null sha1\" out\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)