(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 "\tgrep \"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 "\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 "\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 "\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 "\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 "\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 "\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# Once the parser becomes ultra-smart, it could notice that\n"> <LIT_CHARS "\t# 110282 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 110282^{commit} &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# likewise\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_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 000000000^{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 110282^{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 "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_done]}  )
)