(CommandList children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_description) op: Equal rhs: { (SQ <"git fsck random collection of tests\n"> <"\n"> <"* (HEAD) B\n"> <"* (master) A\n">) } spids: [4] ) ] spids: [4] ) (C {(.)} {(./test-lib.sh)}) (C {(test_expect_success)} {(setup)} { (SQ <"\n"> <"\tgit config gc.auto 0 &&\n"> <"\tgit config i18n.commitencoding ISO-8859-1 &&\n"> <"\ttest_commit A fileA one &&\n"> <"\tgit config --unset i18n.commitencoding &&\n"> <"\tgit checkout HEAD^0 &&\n"> <"\ttest_commit B fileB two &&\n"> <"\tgit tag -d A B &&\n"> <"\tgit reflog expire --expire=now --all &&\n"> <"\t>empty\n"> ) } ) (C {(test_expect_success)} {(SQ <"loose objects borrowed from alternate are not missing">)} { (SQ <"\n"> <"\tmkdir another &&\n"> <"\t(\n"> <"\t\tcd another &&\n"> <"\t\tgit init &&\n"> <"\t\techo ../../../.git/objects >.git/objects/info/alternates &&\n"> <"\t\ttest_commit C fileC one &&\n"> <"\t\tgit fsck --no-dangling >../actual 2>&1\n"> <"\t) &&\n"> <"\ttest_cmp empty actual\n"> ) } ) (C {(test_expect_success)} {(SQ <"HEAD is part of refs, valid objects appear valid">)} {(SQ <"\n"> <"\tgit fsck >actual 2>&1 &&\n"> <"\ttest_cmp empty actual\n">)} ) (C {(test_expect_success)} {(SQ <"setup: helpers for corruption tests">)} { (SQ <"\n"> <"\tsha1_file() {\n"> <"\t\techo \"$*\" | sed \"s#..#.git/objects/&/#\"\n"> <"\t} &&\n"> <"\n"> <"\tremove_object() {\n"> <"\t\tfile=$(sha1_file \"$*\") &&\n"> <"\t\ttest -e \"$file\" &&\n"> <"\t\trm -f \"$file\"\n"> <"\t}\n"> ) } ) (C {(test_expect_success)} {(SQ <"object with bad sha1">)} { (SQ <"\n"> <"\tsha=$(echo blob | git hash-object -w --stdin) &&\n"> <"\told=$(echo $sha | sed \"s+^..+&/+\") &&\n"> <"\tnew=$(dirname $old)/ffffffffffffffffffffffffffffffffffffff &&\n"> <"\tsha=\"$(dirname $new)$(basename $new)\" &&\n"> <"\tmv .git/objects/$old .git/objects/$new &&\n"> <"\ttest_when_finished \"remove_object $sha\" &&\n"> <"\tgit update-index --add --cacheinfo 100644 $sha foo &&\n"> <"\ttest_when_finished \"git read-tree -u --reset HEAD\" &&\n"> <"\ttree=$(git write-tree) &&\n"> <"\ttest_when_finished \"remove_object $tree\" &&\n"> <"\tcmt=$(echo bogus | git commit-tree $tree) &&\n"> <"\ttest_when_finished \"remove_object $cmt\" &&\n"> <"\tgit update-ref refs/heads/bogus $cmt &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"$sha.*corrupt\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"branch pointing to non-commit">)} { (SQ <"\n"> <"\tgit rev-parse HEAD^{tree} >.git/refs/heads/invalid &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/invalid\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"not a commit\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"HEAD link pointing at a funny object">)} { (SQ <"\n"> <"\ttest_when_finished \"mv .git/SAVED_HEAD .git/HEAD\" &&\n"> <"\tmv .git/HEAD .git/SAVED_HEAD &&\n"> <"\techo 0000000000000000000000000000000000000000 >.git/HEAD &&\n"> <"\t# avoid corrupt/broken HEAD from interfering with repo discovery\n"> <"\ttest_must_fail env GIT_DIR=.git git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"detached HEAD points\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"HEAD link pointing at a funny place">)} { (SQ <"\n"> <"\ttest_when_finished \"mv .git/SAVED_HEAD .git/HEAD\" &&\n"> <"\tmv .git/HEAD .git/SAVED_HEAD &&\n"> <"\techo \"ref: refs/funny/place\" >.git/HEAD &&\n"> <"\t# avoid corrupt/broken HEAD from interfering with repo discovery\n"> <"\ttest_must_fail env GIT_DIR=.git git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"HEAD points to something strange\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"email without @ is okay">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/@/AT/\" basis >okay &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <okay) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\tgit fsck 2>out &&\n"> <"\tcat out &&\n"> <"\t! grep \"commit $new\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"email with embedded > is not okay">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/@[a-z]/&>/\" basis >bad-email &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <bad-email) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in commit $new\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"missing < email delimiter is reported nicely">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/<//\" basis >bad-email-2 &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <bad-email-2) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in commit $new.* - bad name\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"missing email is reported nicely">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/[a-z]* <[^>]*>//\" basis >bad-email-3 &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <bad-email-3) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in commit $new.* - missing email\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"> in name is reported">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/ </> </\" basis >bad-email-4 &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <bad-email-4) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in commit $new\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"integer overflow in timestamps is reported">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/^\\\\(author .*>\\\\) [0-9]*/\\\\1 18446744073709551617/\" \\\n"> <"\t\t<basis >bad-timestamp &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <bad-timestamp) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in commit $new.*integer overflow\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"commit with NUL in header">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/author ./author Q/\" <basis | q_to_nul >commit-NUL-header &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <commit-NUL-header) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in commit $new.*unterminated header: NUL at offset\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"tree object with duplicate entries">)} { (SQ <"\n"> <"\ttest_when_finished \"remove_object \\$T\" &&\n"> <"\tT=$(\n"> <"\t\tGIT_INDEX_FILE=test-index &&\n"> <"\t\texport GIT_INDEX_FILE &&\n"> <"\t\trm -f test-index &&\n"> <"\t\t>x &&\n"> <"\t\tgit add x &&\n"> <"\t\tT=$(git write-tree) &&\n"> <"\t\t(\n"> <"\t\t\tgit cat-file tree $T &&\n"> <"\t\t\tgit cat-file tree $T\n"> <"\t\t) |\n"> <"\t\tgit hash-object -w -t tree --stdin\n"> <"\t) &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\tgrep \"error in tree .*contains duplicate file entries\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"unparseable tree object">)} { (SQ <"\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/wrong\" &&\n"> <"\ttest_when_finished \"remove_object \\$tree_sha1\" &&\n"> <"\ttest_when_finished \"remove_object \\$commit_sha1\" &&\n"> < "\ttree_sha1=$(printf \"100644 \\0twenty-bytes-of-junk\" | git hash-object -t tree --stdin -w --literally) &&\n" > <"\tcommit_sha1=$(git commit-tree $tree_sha1) &&\n"> <"\tgit update-ref refs/heads/wrong $commit_sha1 &&\n"> <"\ttest_must_fail git fsck 2>out &&\n"> <"\ttest_i18ngrep \"error: empty filename in tree entry\" out &&\n"> <"\ttest_i18ngrep \"$tree_sha1\" out &&\n"> <"\ttest_i18ngrep ! \"fatal: empty filename in tree entry\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"tag pointing to nonexistent">)} { (SQ <"\n"> <"\tcat >invalid-tag <<-\\EOF &&\n"> <"\tobject ffffffffffffffffffffffffffffffffffffffff\n"> <"\ttype commit\n"> <"\ttag invalid\n"> <"\ttagger T A Gger <tagger@example.com> 1234567890 -0000\n"> <"\n"> <"\tThis is an invalid tag.\n"> <"\tEOF\n"> <"\n"> <"\ttag=$(git hash-object -t tag -w --stdin <invalid-tag) &&\n"> <"\ttest_when_finished \"remove_object $tag\" &&\n"> <"\techo $tag >.git/refs/tags/invalid &&\n"> <"\ttest_when_finished \"git update-ref -d refs/tags/invalid\" &&\n"> <"\ttest_must_fail git fsck --tags >out &&\n"> <"\tcat out &&\n"> <"\tgrep \"broken link\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"tag pointing to something else than its type">)} { (SQ <"\n"> <"\tsha=$(echo blob | git hash-object -w --stdin) &&\n"> <"\ttest_when_finished \"remove_object $sha\" &&\n"> <"\tcat >wrong-tag <<-EOF &&\n"> <"\tobject $sha\n"> <"\ttype commit\n"> <"\ttag wrong\n"> <"\ttagger T A Gger <tagger@example.com> 1234567890 -0000\n"> <"\n"> <"\tThis is an invalid tag.\n"> <"\tEOF\n"> <"\n"> <"\ttag=$(git hash-object -t tag -w --stdin <wrong-tag) &&\n"> <"\ttest_when_finished \"remove_object $tag\" &&\n"> <"\techo $tag >.git/refs/tags/wrong &&\n"> <"\ttest_when_finished \"git update-ref -d refs/tags/wrong\" &&\n"> <"\ttest_must_fail git fsck --tags\n"> ) } ) (C {(test_expect_success)} {(SQ <"tag with incorrect tag name & missing tagger">)} { (SQ <"\n"> <"\tsha=$(git rev-parse HEAD) &&\n"> <"\tcat >wrong-tag <<-EOF &&\n"> <"\tobject $sha\n"> <"\ttype commit\n"> <"\ttag wrong name format\n"> <"\n"> <"\tThis is an invalid tag.\n"> <"\tEOF\n"> <"\n"> <"\ttag=$(git hash-object -t tag -w --stdin <wrong-tag) &&\n"> <"\ttest_when_finished \"remove_object $tag\" &&\n"> <"\techo $tag >.git/refs/tags/wrong &&\n"> <"\ttest_when_finished \"git update-ref -d refs/tags/wrong\" &&\n"> <"\tgit fsck --tags 2>out &&\n"> <"\n"> <"\tcat >expect <<-EOF &&\n"> <"\twarning in tag $tag: badTagName: invalid "> ) (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <tag>) (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <" name: wrong name format\n"> <"\twarning in tag $tag: missingTaggerEntry: invalid format - expected "> ) (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <tagger>) (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <" line\n"> <"\tEOF\n"> <"\ttest_cmp expect out\n">) } ) (C {(test_expect_success)} {(SQ <"tag with bad tagger">)} { (SQ <"\n"> <"\tsha=$(git rev-parse HEAD) &&\n"> <"\tcat >wrong-tag <<-EOF &&\n"> <"\tobject $sha\n"> <"\ttype commit\n"> <"\ttag not-quite-wrong\n"> <"\ttagger Bad Tagger Name\n"> <"\n"> <"\tThis is an invalid tag.\n"> <"\tEOF\n"> <"\n"> <"\ttag=$(git hash-object --literally -t tag -w --stdin <wrong-tag) &&\n"> <"\ttest_when_finished \"remove_object $tag\" &&\n"> <"\techo $tag >.git/refs/tags/wrong &&\n"> <"\ttest_when_finished \"git update-ref -d refs/tags/wrong\" &&\n"> <"\ttest_must_fail git fsck --tags 2>out &&\n"> <"\tgrep \"error in tag .*: invalid author/committer\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"tag with NUL in header">)} { (SQ <"\n"> <"\tsha=$(git rev-parse HEAD) &&\n"> <"\tq_to_nul >tag-NUL-header <<-EOF &&\n"> <"\tobject $sha\n"> <"\ttype commit\n"> <"\ttag contains-Q-in-header\n"> <"\ttagger T A Gger <tagger@example.com> 1234567890 -0000\n"> <"\n"> <"\tThis is an invalid tag.\n"> <"\tEOF\n"> <"\n"> <"\ttag=$(git hash-object --literally -t tag -w --stdin <tag-NUL-header) &&\n"> <"\ttest_when_finished \"remove_object $tag\" &&\n"> <"\techo $tag >.git/refs/tags/wrong &&\n"> <"\ttest_when_finished \"git update-ref -d refs/tags/wrong\" &&\n"> <"\ttest_must_fail git fsck --tags 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep \"error in tag $tag.*unterminated header: NUL at offset\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"cleaned up">)} {(SQ <"\n"> <"\tgit fsck >actual 2>&1 &&\n"> <"\ttest_cmp empty actual\n">)} ) (C {(test_expect_success)} {(SQ <"rev-list --verify-objects">)} { (SQ <"\n"> <"\tgit rev-list --verify-objects --all >/dev/null 2>out &&\n"> <"\ttest_cmp empty out\n"> ) } ) (C {(test_expect_success)} {(SQ <"rev-list --verify-objects with bad sha1">)} { (SQ <"\n"> <"\tsha=$(echo blob | git hash-object -w --stdin) &&\n"> <"\told=$(echo $sha | sed \"s+^..+&/+\") &&\n"> <"\tnew=$(dirname $old)/ffffffffffffffffffffffffffffffffffffff &&\n"> <"\tsha=\"$(dirname $new)$(basename $new)\" &&\n"> <"\tmv .git/objects/$old .git/objects/$new &&\n"> <"\ttest_when_finished \"remove_object $sha\" &&\n"> <"\tgit update-index --add --cacheinfo 100644 $sha foo &&\n"> <"\ttest_when_finished \"git read-tree -u --reset HEAD\" &&\n"> <"\ttree=$(git write-tree) &&\n"> <"\ttest_when_finished \"remove_object $tree\" &&\n"> <"\tcmt=$(echo bogus | git commit-tree $tree) &&\n"> <"\ttest_when_finished \"remove_object $cmt\" &&\n"> <"\tgit update-ref refs/heads/bogus $cmt &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\n"> <"\ttest_might_fail git rev-list --verify-objects refs/heads/bogus >/dev/null 2>out &&\n"> <"\tcat out &&\n"> <"\tgrep -q \"error: sha1 mismatch 63ffffffffffffffffffffffffffffffffffffff\" out\n"> ) } ) (C {(test_expect_success)} {(SQ <"force fsck to ignore double author">)} { (SQ <"\n"> <"\tgit cat-file commit HEAD >basis &&\n"> <"\tsed \"s/^author .*/&,&/\" <basis | tr , \\\\n >multiple-authors &&\n"> <"\tnew=$(git hash-object -t commit -w --stdin <multiple-authors) &&\n"> <"\ttest_when_finished \"remove_object $new\" &&\n"> <"\tgit update-ref refs/heads/bogus \"$new\" &&\n"> <"\ttest_when_finished \"git update-ref -d refs/heads/bogus\" &&\n"> <"\ttest_must_fail git fsck &&\n"> <"\tgit -c fsck.multipleAuthors=ignore fsck\n"> ) } ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:_bz) op:Equal rhs:{(SQ <"\\0">)} spids:[602])] spids: [602] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:_bz5) op: Equal rhs: { (DQ ($ VSub_Name "$_bz") ($ VSub_Name "$_bz") ($ VSub_Name "$_bz") ($ VSub_Name "$_bz") ($ VSub_Name "$_bz") ) } spids: [607] ) ] spids: [607] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:_bz20) op: Equal rhs: { (DQ ($ VSub_Name "$_bz5") ($ VSub_Name "$_bz5") ($ VSub_Name "$_bz5") ($ VSub_Name "$_bz5") ) } spids: [616] ) ] spids: [616] ) (C {(test_expect_success)} {(SQ <"fsck notices blob entry pointing to null sha1">)} { (SQ <"\n"> <"\t(git init null-blob &&\n"> <"\t cd null-blob &&\n"> <"\t sha=$(printf \"100644 file$_bz$_bz20\" |\n"> <"\t git hash-object -w --stdin -t tree) &&\n"> <"\t git fsck 2>out &&\n"> <"\t cat out &&\n"> <"\t grep \"warning.*null sha1\" out\n"> <"\t)\n"> ) } ) (C {(test_expect_success)} {(SQ <"fsck notices submodule entry pointing to null sha1">)} { (SQ <"\n"> <"\t(git init null-commit &&\n"> <"\t cd null-commit &&\n"> <"\t sha=$(printf \"160000 submodule$_bz$_bz20\" |\n"> <"\t git hash-object -w --stdin -t tree) &&\n"> <"\t git fsck 2>out &&\n"> <"\t cat out &&\n"> <"\t grep \"warning.*null sha1\" out\n"> <"\t)\n"> ) } ) (While cond: [(Sentence child:(C {(read)} {(name)} {(path)} {(pretty)}) terminator:<Op_Semi ";">)] body: (DoGroup children: [ (While cond: [(Sentence child:(C {(read)} {(mode)} {(type)}) terminator:<Op_Semi ";">)] body: (DoGroup children: [ (C {(Lit_Other ":")} { (BracedVarSub token: <VSub_Name pretty> suffix_op: (StringUnary op_id: VTest_ColonEquals arg_word: {($ VSub_Name "$path")} ) spids: [691 695] ) } ) (C {(test_expect_success)} {(DQ ("fsck notices ") ($ VSub_Name "$pretty") (" as ") ($ VSub_Name "$type"))} { (SQ <"\n"> <"\t\t(\n"> <"\t\t\tgit init $name-$type &&\n"> <"\t\t\tcd $name-$type &&\n"> <"\t\t\techo content >file &&\n"> <"\t\t\tgit add file &&\n"> <"\t\t\tgit commit -m base &&\n"> <"\t\t\tblob=$(git rev-parse :file) &&\n"> <"\t\t\ttree=$(git rev-parse HEAD^{tree}) &&\n"> <"\t\t\tvalue=$(eval \"echo \\$$type\") &&\n"> <"\t\t\tprintf \"$mode $type %s\\t%s\" \"$value\" \"$path\" >bad &&\n"> <"\t\t\tbad_tree=$(git mktree <bad) &&\n"> <"\t\t\tgit fsck 2>out &&\n"> <"\t\t\tcat out &&\n"> <"\t\t\tgrep \"warning.*tree $bad_tree\" out\n"> <"\t\t)"> ) } ) ] spids: [686 727] ) redirects: [ (HereDoc op_id: Redir_DLessDash fd: -1 body: {("100644 blob\n") ("040000 tree\n")} do_expansion: False here_end: EOF was_filled: True spids: [729] ) ] ) ] spids: [674 733] ) redirects: [ (HereDoc op_id: Redir_DLessDash fd: -1 body: { (DQ ("dot .\n") ("dotdot ..\n") ("dotgit .git\n") ("dotgit-case .GIT\n") ("dotgit-unicode .gI") (${ VSub_Name u200c) ("T .gI{u200c}T\n") ("dotgit-case2 .Git\n") ("git-tilde1 git~1\n") ("dotgitdot .git.\n") ("dot-backslash-case .") (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (.GIT) (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) ("foobar\n") ("dotgit-case-backslash .git") (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) ("foobar\n") ) } do_expansion: True here_end: EOF was_filled: True spids: [735] ) ] ) (C {(test_expect_success)} {(SQ <"fsck allows .\u0147it">)} { (SQ <"\n"> <"\t(\n"> <"\t\tgit init not-dotgit &&\n"> <"\t\tcd not-dotgit &&\n"> <"\t\techo content >file &&\n"> <"\t\tgit add file &&\n"> <"\t\tgit commit -m base &&\n"> <"\t\tblob=$(git rev-parse :file) &&\n"> <"\t\tprintf \"100644 blob $blob\\t.\\\\305\\\\207it\" >tree &&\n"> <"\t\ttree=$(git mktree <tree) &&\n"> <"\t\tgit fsck 2>err &&\n"> <"\t\ttest_line_count = 0 err\n"> <"\t)\n"> ) } ) (C {(test_expect_success)} {(SQ <"NUL in commit">)} { (SQ <"\n"> <"\trm -fr nul-in-commit &&\n"> <"\tgit init nul-in-commit &&\n"> <"\t(\n"> <"\t\tcd nul-in-commit &&\n"> <"\t\tgit commit --allow-empty -m \"initial commitQNUL after message\" &&\n"> <"\t\tgit cat-file commit HEAD >original &&\n"> <"\t\tq_to_nul <original >munged &&\n"> <"\t\tgit hash-object -w -t commit --stdin <munged >name &&\n"> <"\t\tgit branch bad $(cat name) &&\n"> <"\n"> <"\t\ttest_must_fail git -c fsck.nulInCommit=error fsck 2>warn.1 &&\n"> <"\t\tgrep nulInCommit warn.1 &&\n"> <"\t\tgit fsck 2>warn.2 &&\n"> <"\t\tgrep nulInCommit warn.2\n"> <"\t)\n"> ) } ) (FuncDef name: create_repo_missing body: (BraceGroup children: [ (AndOr children: [ (C {(rm)} {(-rf)} {(missing)}) (AndOr children: [ (C {(git)} {(init)} {(missing)}) (Subshell child: (AndOr children: [ (C {(cd)} {(missing)}) (AndOr children: [ (C {(git)} {(commit)} {(-m)} {(one)} {(--allow-empty)}) (AndOr children: [ (C {(mkdir)} {(subdir)}) (AndOr children: [ (SimpleCommand words: [{(echo)} {(content)}] redirects: [ (Redir op_id: Redir_Great fd: -1 arg_word: {(subdir/file)} spids: [880] ) ] ) (AndOr children: [ (C {(git)} {(add)} {(subdir/file)}) (AndOr children: [ (C {(git)} {(commit)} {(-m)} {(two)}) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:unrelated) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(echo)} {(unrelated)}) (C {(git)} {(hash-object)} {(--stdin)} {(-w)} ) ] negated: False ) ] ) left_token: <Left_CommandSub "$("> spids: [907 921] ) } spids: [906] ) ] spids: [906] ) (AndOr children: [ (C {(git)} {(tag)} {(-m)} {(foo)} {(tag)} {($ VSub_Name "$unrelated")} ) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:sha1) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (C {(git)} {(rev-parse)} {(--verify)} {(DQ ($ VSub_Number "$1"))} ) ] ) left_token: <Left_CommandSub "$("> spids: [942 952] ) } spids: [941] ) ] spids: [941] ) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:path) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(echo)} { ($ VSub_Name "$sha1" ) } ) (C {(sed)} { (SQ < "s|..|&/|" > ) } ) ] negated: False ) ] ) left_token: <Left_CommandSub "$("> spids: [958 970] ) } spids: [957] ) ] spids: [957] ) (C {(rm)} {(.git/objects/) ($ VSub_Name "$path") } ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) spids: [846 981] ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] spids: [825] ) spids: [820 824] ) (C {(test_expect_success)} {(SQ <"fsck notices missing blob">)} { (SQ <"\n"> <"\tcreate_repo_missing HEAD:subdir/file &&\n"> <"\ttest_must_fail git -C missing fsck\n"> ) } ) (C {(test_expect_success)} {(SQ <"fsck notices missing subtree">)} { (SQ <"\n"> <"\tcreate_repo_missing HEAD:subdir &&\n"> <"\ttest_must_fail git -C missing fsck\n"> ) } ) (C {(test_expect_success)} {(SQ <"fsck notices missing root tree">)} { (SQ <"\n"> <"\tcreate_repo_missing HEAD^{tree} &&\n"> <"\ttest_must_fail git -C missing fsck\n"> ) } ) (C {(test_expect_success)} {(SQ <"fsck notices missing parent">)} {(SQ <"\n"> <"\tcreate_repo_missing HEAD^ &&\n"> <"\ttest_must_fail git -C missing fsck\n">)} ) (C {(test_expect_success)} {(SQ <"fsck notices missing tagged object">)} { (SQ <"\n"> <"\tcreate_repo_missing tag^{blob} &&\n"> <"\ttest_must_fail git -C missing fsck\n">) } ) (C {(test_expect_success)} {(SQ <"fsck notices ref pointing to missing commit">)} {(SQ <"\n"> <"\tcreate_repo_missing HEAD &&\n"> <"\ttest_must_fail git -C missing fsck\n">)} ) (C {(test_expect_success)} {(SQ <"fsck notices ref pointing to missing tag">)} {(SQ <"\n"> <"\tcreate_repo_missing tag &&\n"> <"\ttest_must_fail git -C missing fsck\n">)} ) (C {(test_expect_success)} {(SQ <"fsck --connectivity-only">)} { (SQ <"\n"> <"\trm -rf connectivity-only &&\n"> <"\tgit init connectivity-only &&\n"> <"\t(\n"> <"\t\tcd connectivity-only &&\n"> <"\t\ttouch empty &&\n"> <"\t\tgit add empty &&\n"> <"\t\ttest_commit empty &&\n"> <"\t\tempty=.git/objects/e6/9de29bb2d1d6434b8b29ae775ad8c2e48c5391 &&\n"> <"\t\trm -f $empty &&\n"> <"\t\techo invalid >$empty &&\n"> <"\t\ttest_must_fail git fsck --strict &&\n"> <"\t\tgit fsck --strict --connectivity-only &&\n"> <"\t\ttree=$(git rev-parse HEAD:) &&\n"> <"\t\tsuffix=${tree#??} &&\n"> <"\t\ttree=.git/objects/${tree%$suffix}/$suffix &&\n"> <"\t\trm -f $tree &&\n"> <"\t\techo invalid >$tree &&\n"> <"\t\ttest_must_fail git fsck --strict --connectivity-only\n"> <"\t)\n"> ) } ) (FuncDef name: remove_loose_object body: (BraceGroup children: [ (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:sha1) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [(C {(git)} {(rev-parse)} {(DQ ($ VSub_Number "$1"))})] ) left_token: <Left_CommandSub "$("> spids: [1117 1125] ) ) } spids: [1115] ) ] spids: [1115] ) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:remainder) op: Equal rhs: { (BracedVarSub token: <VSub_Name sha1> suffix_op: (StringUnary op_id:VOp1_Pound arg_word:{("??")}) spids: [1132 1136] ) } spids: [1131] ) ] spids: [1131] ) (AndOr children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:firsttwo) op: Equal rhs: { (BracedVarSub token: <VSub_Name sha1> suffix_op: (StringUnary op_id: VOp1_Percent arg_word: {($ VSub_Name "$remainder")} ) spids: [1142 1146] ) } spids: [1141] ) ] spids: [1141] ) (C {(rm)} {(.git/objects/) ($ VSub_Name "$firsttwo") (/) ($ VSub_Name "$remainder")} ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] op_id: Op_DAmp ) ] spids: [1112] ) spids: [1107 1111] ) (C {(test_expect_success)} {(SQ <"fsck --name-objects">)} { (SQ <"\n"> <"\trm -rf name-objects &&\n"> <"\tgit init name-objects &&\n"> <"\t(\n"> <"\t\tcd name-objects &&\n"> <"\t\ttest_commit julius caesar.t &&\n"> <"\t\ttest_commit augustus &&\n"> <"\t\ttest_commit caesar &&\n"> <"\t\tremove_loose_object $(git rev-parse julius:caesar.t) &&\n"> <"\t\ttest_must_fail git fsck --name-objects >out &&\n"> <"\t\ttree=$(git rev-parse --verify julius:) &&\n"> <"\t\tgrep \"$tree (\\(refs/heads/master\\|HEAD\\)@{[0-9]*}:\" out\n"> <"\t)\n"> ) } ) (C {(test_done)}) ] )