(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_must_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 "\ttest_must_fail git 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 "HEAD link pointing at a funny object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"mv .git/SAVED_HEAD .git/HEAD\" &&\n"> <LIT_CHARS "\tmv .git/HEAD .git/SAVED_HEAD &&\n"> <LIT_CHARS "\techo 0000000000000000000000000000000000000000 >.git/HEAD &&\n"> <LIT_CHARS "\t# avoid corrupt/broken HEAD from interfering with repo discovery\n"> <LIT_CHARS "\ttest_must_fail env GIT_DIR=.git git fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"detached HEAD points\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "HEAD link pointing at a funny place">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"mv .git/SAVED_HEAD .git/HEAD\" &&\n"> <LIT_CHARS "\tmv .git/HEAD .git/SAVED_HEAD &&\n"> <LIT_CHARS "\techo \"ref: refs/funny/place\" >.git/HEAD &&\n"> <LIT_CHARS "\t# avoid corrupt/broken HEAD from interfering with repo discovery\n"> <LIT_CHARS "\ttest_must_fail env GIT_DIR=.git git fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"HEAD points to something strange\" 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 "\ttest_must_fail git 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 "\ttest_must_fail git 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 "\ttest_must_fail git 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 "\ttest_must_fail git 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 "integer overflow in timestamps is reported">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/^\\\\(author .*>\\\\) [0-9]*/\\\\1 18446744073709551617/\" \\\n"> <LIT_CHARS "\t\t<basis >bad-timestamp &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <bad-timestamp) &&\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 "\ttest_must_fail git fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in commit $new.*integer overflow\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit with NUL in header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/author ./author Q/\" <basis | q_to_nul >commit-NUL-header &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <commit-NUL-header) &&\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 "\ttest_must_fail git fsck 2>out &&\n"> <LIT_CHARS "\tcat out &&\n"> <LIT_CHARS "\tgrep \"error in commit $new.*unterminated header: NUL at offset\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tree object with duplicate entries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"remove_object \\$T\" &&\n"> <LIT_CHARS "\tT=$(\n"> <LIT_CHARS "\t\tGIT_INDEX_FILE=test-index &&\n"> <LIT_CHARS "\t\texport GIT_INDEX_FILE &&\n"> <LIT_CHARS "\t\trm -f test-index &&\n"> <LIT_CHARS "\t\t>x &&\n"> <LIT_CHARS "\t\tgit add x &&\n"> <LIT_CHARS "\t\tT=$(git write-tree) &&\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tgit cat-file tree $T &&\n"> <LIT_CHARS "\t\t\tgit cat-file tree $T\n"> <LIT_CHARS "\t\t) |\n"> <LIT_CHARS "\t\tgit hash-object -w -t tree --stdin\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_must_fail git fsck 2>out &&\n"> <LIT_CHARS "\tgrep \"error in tree .*contains duplicate file entries\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unparseable tree object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git update-ref -d refs/heads/wrong\" &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object \\$tree_sha1\" &&\n"> <LIT_CHARS "\ttest_when_finished \"remove_object \\$commit_sha1\" &&\n"> <LIT_CHARS "\ttree_sha1=$(printf \"100644 \\0twenty-bytes-of-junk\" | git hash-object -t tree --stdin -w --literally) &&\n"> <LIT_CHARS "\tcommit_sha1=$(git commit-tree $tree_sha1) &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/wrong $commit_sha1 &&\n"> <LIT_CHARS "\ttest_must_fail git fsck 2>out &&\n"> <LIT_CHARS "\ttest_i18ngrep \"error: empty filename in tree entry\" out &&\n"> <LIT_CHARS "\ttest_i18ngrep \"$tree_sha1\" out &&\n"> <LIT_CHARS "\ttest_i18ngrep ! \"fatal: empty filename in tree entry\" 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\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tag with incorrect tag name & missing tagger">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tcat >wrong-tag <<-EOF &&\n"> <LIT_CHARS "\tobject $sha\n"> <LIT_CHARS "\ttype commit\n"> <LIT_CHARS "\ttag wrong name format\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 "\tgit fsck --tags 2>out &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-EOF &&\n"> <LIT_CHARS "\twarning in tag $tag: badTagName: invalid ">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS tag>] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS " name: wrong name format\n"> <LIT_CHARS "\twarning in tag $tag: missingTaggerEntry: invalid format - expected ">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS tagger>] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS " line\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tag with bad tagger">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tcat >wrong-tag <<-EOF &&\n"> <LIT_CHARS "\tobject $sha\n"> <LIT_CHARS "\ttype commit\n"> <LIT_CHARS "\ttag not-quite-wrong\n"> <LIT_CHARS "\ttagger Bad Tagger Name\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 --literally -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 "\tgrep \"error in tag .*: invalid author/committer\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tag with NUL in header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsha=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tq_to_nul >tag-NUL-header <<-EOF &&\n"> <LIT_CHARS "\tobject $sha\n"> <LIT_CHARS "\ttype commit\n"> <LIT_CHARS "\ttag contains-Q-in-header\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 --literally -t tag -w --stdin <tag-NUL-header) &&\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 $tag.*unterminated header: NUL at offset\" 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">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "force fsck to ignore double author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit HEAD >basis &&\n"> <LIT_CHARS "\tsed \"s/^author .*/&,&/\" <basis | tr , \\\\n >multiple-authors &&\n"> <LIT_CHARS "\tnew=$(git hash-object -t commit -w --stdin <multiple-authors) &&\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 "\ttest_must_fail git fsck &&\n"> <LIT_CHARS "\tgit -c fsck.multipleAuthors=ignore fsck\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">]})
  (While
    (Com {[LIT_CHARS read]} {[LIT_CHARS name]} {[LIT_CHARS path]} {[LIT_CHARS pretty]})
    (While
      (Com {[LIT_CHARS read]} {[LIT_CHARS mode]} {[LIT_CHARS type]})
      (List
        (Com {[LIT_OTHER ":"]} {[VarSub pretty test_op=VS_TEST_COLON_EQUALS {[VarSub path]}]})
        (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "fsck notices "][VarSub pretty][LIT_CHARS " as "][VarSub type]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tgit init $name-$type &&\n"> <LIT_CHARS "\t\t\tcd $name-$type &&\n"> <LIT_CHARS "\t\t\techo content >file &&\n"> <LIT_CHARS "\t\t\tgit add file &&\n"> <LIT_CHARS "\t\t\tgit commit -m base &&\n"> <LIT_CHARS "\t\t\tblob=$(git rev-parse :file) &&\n"> <LIT_CHARS "\t\t\ttree=$(git rev-parse HEAD^{tree}) &&\n"> <LIT_CHARS "\t\t\tvalue=$(eval \"echo \\$$type\") &&\n"> <LIT_CHARS "\t\t\tprintf \"$mode $type %s\\t%s\" \"$value\" \"$path\" >bad &&\n"> <LIT_CHARS "\t\t\tbad_tree=$(git mktree <bad) &&\n"> <LIT_CHARS "\t\t\tgit fsck 2>out &&\n"> <LIT_CHARS "\t\t\tcat out &&\n"> <LIT_CHARS "\t\t\tgrep \"warning.*tree $bad_tree\" out\n"> <LIT_CHARS "\t\t)">]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck allows .\u0147it">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tgit init not-dotgit &&\n"> <LIT_CHARS "\t\tcd not-dotgit &&\n"> <LIT_CHARS "\t\techo content >file &&\n"> <LIT_CHARS "\t\tgit add file &&\n"> <LIT_CHARS "\t\tgit commit -m base &&\n"> <LIT_CHARS "\t\tblob=$(git rev-parse :file) &&\n"> <LIT_CHARS "\t\tprintf \"100644 blob $blob\\t.\\\\305\\\\207it\" >tree &&\n"> <LIT_CHARS "\t\ttree=$(git mktree <tree) &&\n"> <LIT_CHARS "\t\tgit fsck 2>err &&\n"> <LIT_CHARS "\t\ttest_line_count = 0 err\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "NUL in commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr nul-in-commit &&\n"> <LIT_CHARS "\tgit init nul-in-commit &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd nul-in-commit &&\n"> <LIT_CHARS "\t\tgit commit --allow-empty -m \"initial commitQNUL after message\" &&\n"> <LIT_CHARS "\t\tgit cat-file commit HEAD >original &&\n"> <LIT_CHARS "\t\tq_to_nul <original >munged &&\n"> <LIT_CHARS "\t\tgit hash-object -w -t commit --stdin <munged >name &&\n"> <LIT_CHARS "\t\tgit branch bad $(cat name) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_must_fail git -c fsck.nulInCommit=error fsck 2>warn.1 &&\n"> <LIT_CHARS "\t\tgrep nulInCommit warn.1 &&\n"> <LIT_CHARS "\t\tgit fsck 2>warn.2 &&\n"> <LIT_CHARS "\t\tgrep nulInCommit warn.2\n"> <LIT_CHARS "\t)\n">]})
  (FunctionDef create_repo_missing []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS missing]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS init]} {[LIT_CHARS missing]})
        (Subshell
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS cd]} {[LIT_CHARS missing]})
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -m]} {[LIT_CHARS one]} {[LIT_CHARS --allow-empty]})
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS mkdir]} {[LIT_CHARS subdir]})
                (AndOr OP_AND_IF
                  (Com {[LIT_CHARS echo]} {[LIT_CHARS content]}
                    <
                    (FilenameRedirectNode filename={[LIT_CHARS subdir/file]} <REDIR_GREAT ">"> 1),
                    >
                  )
                  (AndOr OP_AND_IF
                    (Com {[LIT_CHARS git]} {[LIT_CHARS add]} {[LIT_CHARS subdir/file]})
                    (AndOr OP_AND_IF
                      (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -m]} {[LIT_CHARS two]})
                      (AndOr OP_AND_IF
                        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('unrelated', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[LIT_CHARS unrelated]}) (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS --stdin]} {[LIT_CHARS -w]}) )]})])
                        (AndOr OP_AND_IF
                          (Com {[LIT_CHARS git]} {[LIT_CHARS tag]} {[LIT_CHARS -m]} {[LIT_CHARS foo]} {[LIT_CHARS tag]} {[VarSub unrelated]})
                          (AndOr OP_AND_IF
                            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sha1', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[LIT_CHARS --verify]} {[DQ [VarSub 1]]})]})])
                            (AndOr OP_AND_IF
                              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('path', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub sha1]}) (Com {[LIT_CHARS sed]} {[SQ <LIT_CHARS "s|..|&/|">]}) )]})])
                              (Com {[LIT_CHARS rm]} {[LIT_CHARS .git/objects/] [VarSub path]})
                            )
                          )
                        )
                      )
                    )
                  )
                )
              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices missing blob">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing HEAD:subdir/file &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices missing subtree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing HEAD:subdir &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices missing root tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing HEAD^{tree} &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices missing parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing HEAD^ &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices missing tagged object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing tag^{blob} &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices ref pointing to missing commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing HEAD &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck notices ref pointing to missing tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_repo_missing tag &&\n"> <LIT_CHARS "\ttest_must_fail git -C missing fsck\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck --connectivity-only">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf connectivity-only &&\n"> <LIT_CHARS "\tgit init connectivity-only &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd connectivity-only &&\n"> <LIT_CHARS "\t\ttouch empty &&\n"> <LIT_CHARS "\t\tgit add empty &&\n"> <LIT_CHARS "\t\ttest_commit empty &&\n"> <LIT_CHARS "\t\tempty=.git/objects/e6/9de29bb2d1d6434b8b29ae775ad8c2e48c5391 &&\n"> <LIT_CHARS "\t\trm -f $empty &&\n"> <LIT_CHARS "\t\techo invalid >$empty &&\n"> <LIT_CHARS "\t\ttest_must_fail git fsck --strict &&\n"> <LIT_CHARS "\t\tgit fsck --strict --connectivity-only &&\n"> <LIT_CHARS "\t\ttree=$(git rev-parse HEAD:) &&\n"> <LIT_CHARS "\t\tsuffix=${tree#??} &&\n"> <LIT_CHARS "\t\ttree=.git/objects/${tree%$suffix}/$suffix &&\n"> <LIT_CHARS "\t\trm -f $tree &&\n"> <LIT_CHARS "\t\techo invalid >$tree &&\n"> <LIT_CHARS "\t\ttest_must_fail git fsck --strict --connectivity-only\n"> <LIT_CHARS "\t)\n">]})
  (FunctionDef remove_loose_object []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sha1', {[DQ [ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[DQ [VarSub 1]]})]]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('remainder', {[VarSub sha1 transform_ops=[VS_UNARY_POUND {[LIT_CHARS "??"]}]]})])
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('firsttwo', {[VarSub sha1 transform_ops=[VS_UNARY_PERCENT {[VarSub remainder]}]]})])
          (Com {[LIT_CHARS rm]} {[LIT_CHARS .git/objects/] [VarSub firsttwo] [LIT_CHARS /] [VarSub remainder]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck --name-objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf name-objects &&\n"> <LIT_CHARS "\tgit init name-objects &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd name-objects &&\n"> <LIT_CHARS "\t\ttest_commit julius caesar.t &&\n"> <LIT_CHARS "\t\ttest_commit augustus &&\n"> <LIT_CHARS "\t\ttest_commit caesar &&\n"> <LIT_CHARS "\t\tremove_loose_object $(git rev-parse julius:caesar.t) &&\n"> <LIT_CHARS "\t\ttest_must_fail git fsck --name-objects >out &&\n"> <LIT_CHARS "\t\ttree=$(git rev-parse --verify julius:) &&\n"> <LIT_CHARS "\t\tgrep \"$tree (\\(refs/heads/master\\|HEAD\\)@{[0-9]*}:\" out\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)