(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "object name disambiguation\n"> <LIT_CHARS "\n"> <LIT_CHARS "Create blobs, trees, commits and a tag that all share the same\n"> <LIT_CHARS "prefix, and make sure \"git rev-parse\" can take advantage of\n"> <LIT_CHARS "type information to disambiguate short object names that are\n"> <LIT_CHARS "not necessarily unique.\n"> <LIT_CHARS "\n"> <LIT_CHARS "The final history used in the test has five commits, with the bottom\n"> <LIT_CHARS "one tagged as v1.0.0.  They all have one regular file each.\n"> <LIT_CHARS "\n"> <LIT_CHARS "  +-------------------------------------------+\n"> <LIT_CHARS "  |                                           |\n"> <LIT_CHARS "  |           .-------b3wettvi---- ad2uee     |\n"> <LIT_CHARS "  |          /                   /            |\n"> <LIT_CHARS "  |  a2onsxbvj---czy8f73t--ioiley5o           |\n"> <LIT_CHARS "  |                                           |\n"> <LIT_CHARS "  +-------------------------------------------+\n"> <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "blob and tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tfor i in 0 1 2 3 4 5 6 7 8 9\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\techo $i\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\t\techo\n"> <LIT_CHARS "\t\techo b1rwzyc3\n"> <LIT_CHARS "\t) >a0blgqsjc &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# create one blob 0000000000b36\n"> <LIT_CHARS "\tgit add a0blgqsjc &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# create one tree 0000000000cdc\n"> <LIT_CHARS "\tgit write-tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "warn ambiguity when no candidate matches type hint">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse --verify 000000000^{commit} 2>actual &&\n"> <LIT_CHARS "\ttest_i18ngrep \"short SHA1 000000000 is ambiguous\" actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "disambiguate tree-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# feed tree-ish in an unambiguous way\n"> <LIT_CHARS "\tgit rev-parse --verify 0000000000cdc:a0blgqsjc &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# ambiguous at the object name level, but there is only one\n"> <LIT_CHARS "\t# such tree-ish (the other is a blob)\n"> <LIT_CHARS "\tgit rev-parse --verify 000000000:a0blgqsjc\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "disambiguate blob">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsed -e \"s/|$//\" >patch <<-EOF &&\n"> <LIT_CHARS "\tdiff --git a/frotz b/frotz\n"> <LIT_CHARS "\tindex 000000000..ffffff 100644\n"> <LIT_CHARS "\t--- a/frotz\n"> <LIT_CHARS "\t+++ b/frotz\n"> <LIT_CHARS "\t@@ -10,3 +10,4 @@\n"> <LIT_CHARS "\t 9\n"> <LIT_CHARS "\t |\n"> <LIT_CHARS "\t b1rwzyc3\n"> <LIT_CHARS "\t+irwry\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_INDEX_FILE=frotz &&\n"> <LIT_CHARS "\t\texport GIT_INDEX_FILE &&\n"> <LIT_CHARS "\t\tgit apply --build-fake-ancestor frotz patch &&\n"> <LIT_CHARS "\t\tgit cat-file blob :frotz >actual\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp a0blgqsjc actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "disambiguate tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(echo \"d7xm\" | git commit-tree 000000000) &&\n"> <LIT_CHARS "\t# this commit is fffff2e and not ambiguous with the 00000* objects\n"> <LIT_CHARS "\ttest $(git rev-parse $commit^{tree}) = $(git rev-parse 0000000000cdc)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "first commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# create one commit 0000000000e4f\n"> <LIT_CHARS "\tgit commit -m a2onsxbvj\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "disambiguate commit-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# feed commit-ish in an unambiguous way\n"> <LIT_CHARS "\tgit rev-parse --verify 0000000000e4f^{commit} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# ambiguous at the object name level, but there is only one\n"> <LIT_CHARS "\t# such commit (the others are tree and blob)\n"> <LIT_CHARS "\tgit rev-parse --verify 000000000^{commit} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# likewise\n"> <LIT_CHARS "\tgit rev-parse --verify 000000000^0\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "disambiguate commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit=$(echo \"hoaxj\" | git commit-tree 0000000000cdc -p 000000000) &&\n"> <LIT_CHARS "\t# this commit is ffffffd8 and not ambiguous with the 00000* objects\n"> <LIT_CHARS "\ttest $(git rev-parse $commit^) = $(git rev-parse 0000000000e4f)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "log name1..name2 takes only commit-ishes on both ends">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# These are underspecified from the prefix-length point of view\n"> <LIT_CHARS "\t# to disambiguate the commit with other objects, but there is only\n"> <LIT_CHARS "\t# one commit that has 00000* prefix at this point.\n"> <LIT_CHARS "\tgit log 000000000..000000000 &&\n"> <LIT_CHARS "\tgit log ..000000000 &&\n"> <LIT_CHARS "\tgit log 000000000.. &&\n"> <LIT_CHARS "\tgit log 000000000...000000000 &&\n"> <LIT_CHARS "\tgit log ...000000000 &&\n"> <LIT_CHARS "\tgit log 000000000...\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-parse name1..name2 takes only commit-ishes on both ends">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Likewise.\n"> <LIT_CHARS "\tgit rev-parse 000000000..000000000 &&\n"> <LIT_CHARS "\tgit rev-parse ..000000000 &&\n"> <LIT_CHARS "\tgit rev-parse 000000000..\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git log takes only commit-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Likewise.\n"> <LIT_CHARS "\tgit log 000000000\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git reset takes only commit-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Likewise.\n"> <LIT_CHARS "\tgit reset 000000000\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "first tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# create one tag 0000000000f8f\n"> <LIT_CHARS "\tgit tag -a -m j7cp83um v1.0.0\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "two semi-ambiguous commit-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# At this point, we have a tag 0000000000f8f that points\n"> <LIT_CHARS "\t# at a commit 0000000000e4f, and a tree and a blob that\n"> <LIT_CHARS "\t# share 0000000000 prefix with these tag and commit.\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# Once the parser becomes ultra-smart, it could notice that\n"> <LIT_CHARS "\t# 0000000000 before ^{commit} name many different objects, but\n"> <LIT_CHARS "\t# that only two (HEAD and v1.0.0 tag) can be peeled to commit,\n"> <LIT_CHARS "\t# and that peeling them down to commit yield the same commit\n"> <LIT_CHARS "\t# without ambiguity.\n"> <LIT_CHARS "\tgit rev-parse --verify 0000000000^{commit} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# likewise\n"> <LIT_CHARS "\tgit log 0000000000..0000000000 &&\n"> <LIT_CHARS "\tgit log ..0000000000 &&\n"> <LIT_CHARS "\tgit log 0000000000.. &&\n"> <LIT_CHARS "\tgit log 0000000000...0000000000 &&\n"> <LIT_CHARS "\tgit log ...0000000000 &&\n"> <LIT_CHARS "\tgit log 0000000000...\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "three semi-ambiguous tree-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Likewise for tree-ish.  HEAD, v1.0.0 and HEAD^{tree} share\n"> <LIT_CHARS "\t# the prefix but peeling them to tree yields the same thing\n"> <LIT_CHARS "\tgit rev-parse --verify 0000000000^{tree}\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "parse describe name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# feed an unambiguous describe name\n"> <LIT_CHARS "\tgit rev-parse --verify v1.0.0-0-g0000000000e4f &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# ambiguous at the object name level, but there is only one\n"> <LIT_CHARS "\t# such commit (others are blob, tree and tag)\n"> <LIT_CHARS "\tgit rev-parse --verify v1.0.0-0-g000000000\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "more history">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# commit 0000000000043\n"> <LIT_CHARS "\tgit mv a0blgqsjc d12cr3h8t &&\n"> <LIT_CHARS "\techo h62xsjeu >>d12cr3h8t &&\n"> <LIT_CHARS "\tgit add d12cr3h8t &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m czy8f73t &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# commit 00000000008ec\n"> <LIT_CHARS "\tgit mv d12cr3h8t j000jmpzn &&\n"> <LIT_CHARS "\techo j08bekfvt >>j000jmpzn &&\n"> <LIT_CHARS "\tgit add j000jmpzn &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m ioiley5o &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# commit 0000000005b0\n"> <LIT_CHARS "\tgit checkout v1.0.0^0 &&\n"> <LIT_CHARS "\tgit mv a0blgqsjc f5518nwu &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in h62xsjeu j08bekfvt kg7xflhm\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo $i\n"> <LIT_CHARS "\tdone >>f5518nwu &&\n"> <LIT_CHARS "\tgit add f5518nwu &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m b3wettvi &&\n"> <LIT_CHARS "\tside=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# commit 000000000066\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# If you use recursive, merge will fail and you will need to\n"> <LIT_CHARS "\t# clean up a0blgqsjc as well.  If you use resolve, merge will\n"> <LIT_CHARS "\t# succeed.\n"> <LIT_CHARS "\ttest_might_fail git merge --no-commit -s recursive $side &&\n"> <LIT_CHARS "\tgit rm -f f5518nwu j000jmpzn &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail git rm -f a0blgqsjc &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tgit cat-file blob $side:f5518nwu\n"> <LIT_CHARS "\t\techo j3l0i9s6\n"> <LIT_CHARS "\t) >ab2gs879 &&\n"> <LIT_CHARS "\tgit add ab2gs879 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m ad2uee\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "parse describe name taking advantage of generation">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# ambiguous at the object name level, but there is only one\n"> <LIT_CHARS "\t# such commit at generation 0\n"> <LIT_CHARS "\tgit rev-parse --verify v1.0.0-0-g000000000 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# likewise for generation 2 and 4\n"> <LIT_CHARS "\tgit rev-parse --verify v1.0.0-2-g000000000 &&\n"> <LIT_CHARS "\tgit rev-parse --verify v1.0.0-4-g000000000\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "parse describe name not ignoring ambiguity">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# ambiguous at the object name level, and there are two such\n"> <LIT_CHARS "\t# commits at generation 1\n"> <LIT_CHARS "\ttest_must_fail git rev-parse --verify v1.0.0-1-g000000000\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ambiguous commit-ish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Now there are many commits that begin with the\n"> <LIT_CHARS "\t# common prefix, none of these should pick one at\n"> <LIT_CHARS "\t# random.  They all should result in ambiguity errors.\n"> <LIT_CHARS "\ttest_must_fail git rev-parse --verify 00000000^{commit} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# likewise\n"> <LIT_CHARS "\ttest_must_fail git log 000000000..000000000 &&\n"> <LIT_CHARS "\ttest_must_fail git log ..000000000 &&\n"> <LIT_CHARS "\ttest_must_fail git log 000000000.. &&\n"> <LIT_CHARS "\ttest_must_fail git log 000000000...000000000 &&\n"> <LIT_CHARS "\ttest_must_fail git log ...000000000 &&\n"> <LIT_CHARS "\ttest_must_fail git log 000000000...\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ambiguous tags peel to treeish">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse 0000000000f^{tree}\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-parse --disambiguate">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# The test creates 16 objects that share the prefix and two\n"> <LIT_CHARS "\t# commits created by commit-tree in earlier tests share a\n"> <LIT_CHARS "\t# different prefix.\n"> <LIT_CHARS "\tgit rev-parse --disambiguate=000000000 >actual &&\n"> <LIT_CHARS "\ttest $(wc -l <actual) = 16 &&\n"> <LIT_CHARS "\ttest \"$(sed -e \"s/^\\(.........\\).*/\\1/\" actual | sort -u)\" = 000000000\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-parse --disambiguate drops duplicates">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-parse --disambiguate=000000000 >expect &&\n"> <LIT_CHARS "\tgit pack-objects .git/objects/pack/pack <expect &&\n"> <LIT_CHARS "\tgit rev-parse --disambiguate=000000000 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ambiguous 40-hex ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tTREE=$(git mktree </dev/null) &&\n"> <LIT_CHARS "\tREF=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tVAL=$(git commit-tree $TREE </dev/null) &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/$REF $VAL &&\n"> <LIT_CHARS "\ttest $(git rev-parse $REF 2>err) = $REF &&\n"> <LIT_CHARS "\tgrep \"refname.*${REF}.*ambiguous\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ambiguous short sha1 ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tTREE=$(git mktree </dev/null) &&\n"> <LIT_CHARS "\tREF=$(git rev-parse --short HEAD) &&\n"> <LIT_CHARS "\tVAL=$(git commit-tree $TREE </dev/null) &&\n"> <LIT_CHARS "\tgit update-ref refs/heads/$REF $VAL &&\n"> <LIT_CHARS "\ttest $(git rev-parse $REF 2>err) = $VAL &&\n"> <LIT_CHARS "\tgrep \"refname.*${REF}.*ambiguous\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "ambiguity errors are not repeated (raw)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse 00000 2>stderr &&\n"> <LIT_CHARS "\tgrep \"is ambiguous\" stderr >errors &&\n"> <LIT_CHARS "\ttest_line_count = 1 errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "ambiguity errors are not repeated (treeish)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse 00000:foo 2>stderr &&\n"> <LIT_CHARS "\tgrep \"is ambiguous\" stderr >errors &&\n"> <LIT_CHARS "\ttest_line_count = 1 errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "ambiguity errors are not repeated (peel)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse 00000^{commit} 2>stderr &&\n"> <LIT_CHARS "\tgrep \"is ambiguous\" stderr >errors &&\n"> <LIT_CHARS "\ttest_line_count = 1 errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "ambiguity hints">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse 000000000 2>stderr &&\n"> <LIT_CHARS "\tgrep ^hint: stderr >hints &&\n"> <LIT_CHARS "\t# 16 candidates, plus one intro line\n"> <LIT_CHARS "\ttest_line_count = 17 hints\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "ambiguity hints respect type">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-parse 000000000^{commit} 2>stderr &&\n"> <LIT_CHARS "\tgrep ^hint: stderr >hints &&\n"> <LIT_CHARS "\t# 5 commits, 1 tag (which is a commitish), plus intro line\n"> <LIT_CHARS "\ttest_line_count = 7 hints\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "failed type-selector still shows hint">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# these two blobs share the same prefix \"ee3d\", but neither\n"> <LIT_CHARS "\t# will pass for a commit\n"> <LIT_CHARS "\techo 851 | git hash-object --stdin -w &&\n"> <LIT_CHARS "\techo 872 | git hash-object --stdin -w &&\n"> <LIT_CHARS "\ttest_must_fail git rev-parse ee3d^{commit} 2>stderr &&\n"> <LIT_CHARS "\tgrep ^hint: stderr >hints &&\n"> <LIT_CHARS "\ttest_line_count = 3 hints\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "core.disambiguate config can prefer types">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# ambiguous between tree and tag\n"> <LIT_CHARS "\tsha1=0000000000f &&\n"> <LIT_CHARS "\ttest_must_fail git rev-parse $sha1 &&\n"> <LIT_CHARS "\tgit rev-parse $sha1^{commit} &&\n"> <LIT_CHARS "\tgit -c core.disambiguate=committish rev-parse $sha1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "core.disambiguate does not override context">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# treeish ambiguous between tag and tree\n"> <LIT_CHARS "\ttest_must_fail \\\n"> <LIT_CHARS "\t\tgit -c core.disambiguate=committish rev-parse $sha1^{tree}\n">]})
  (Com {[LIT_CHARS test_done]})
)