(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "miscellaneous rev-list tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content1 >wanted_file &&\n"> <LIT_CHARS "\techo content2 >unwanted_file &&\n"> <LIT_CHARS "\tgit add wanted_file unwanted_file &&\n"> <LIT_CHARS "\tgit commit -m one\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --objects heeds pathspecs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --objects HEAD -- wanted_file >output &&\n"> <LIT_CHARS "\tgrep wanted_file output &&\n"> <LIT_CHARS "\t! grep unwanted_file output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --objects with pathspecs and deeper paths">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir foo &&\n"> <LIT_CHARS "\t>foo/file &&\n"> <LIT_CHARS "\tgit add foo/file &&\n"> <LIT_CHARS "\tgit commit -m two &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --objects HEAD -- foo >output &&\n"> <LIT_CHARS "\tgrep foo/file output &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --objects HEAD -- foo/file >output &&\n"> <LIT_CHARS "\tgrep foo/file output &&\n"> <LIT_CHARS "\t! grep unwanted_file output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --objects with pathspecs and copied files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout --orphan junio-testcase &&\n"> <LIT_CHARS "\tgit rm -rf . &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir two &&\n"> <LIT_CHARS "\techo frotz >one &&\n"> <LIT_CHARS "\tcp one two/three &&\n"> <LIT_CHARS "\tgit add one two/three &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m that &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tONE=$(git rev-parse HEAD:one) &&\n"> <LIT_CHARS "\tgit rev-list --objects HEAD two >output &&\n"> <LIT_CHARS "\tgrep \"$ONE two/three\" output &&\n"> <LIT_CHARS "\t! grep one output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list A..B and rev-list ^A B are the same">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit commit --allow-empty -m another &&\n"> <LIT_CHARS "\tgit tag -a -m \"annotated\" v1.0 &&\n"> <LIT_CHARS "\tgit rev-list --objects ^v1.0^ v1.0 >expect &&\n"> <LIT_CHARS "\tgit rev-list --objects v1.0^..v1.0 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "propagate uninteresting flag down correctly">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --objects ^HEAD^{tree} HEAD^{tree} >actual &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "symleft flag bit is propagated down from tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit log --format=\"%m %s\" --left-right v1.0...master >actual &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t> two\n"> <LIT_CHARS "\t> one\n"> <LIT_CHARS "\t< another\n"> <LIT_CHARS "\t< that\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list can show index objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Of the blobs and trees in the index, note:\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#   - we do not show two/three, because it is the\n"> <LIT_CHARS "\t#     same blob as \"one\", and we show objects only once\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#   - we do show the tree \"two\", because it has a valid cache tree\n"> <LIT_CHARS "\t#     from the last commit\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#   - we do not show the root tree; since we updated the index, it\n"> <LIT_CHARS "\t#     does not have a valid cache tree\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\t8e4020bb5a8d8c873b25de15933e75cc0fc275df one\n"> <LIT_CHARS "\td9d3a7417b9605cfd88ee6306b28dadc29e6ab08 only-in-index\n"> <LIT_CHARS "\t9200b628cf9dc883a85a7abc8d6e6730baee589c two\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\techo only-in-index >only-in-index &&\n"> <LIT_CHARS "\tgit add only-in-index &&\n"> <LIT_CHARS "\tgit rev-list --objects --indexed-objects >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--bisect and --first-parent can not be combined">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git rev-list --bisect --first-parent HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--header shows a NUL after each commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# We know that there is no Q in the true payload; names and\n"> <LIT_CHARS "\t# addresses of the authors and the committers do not have\n"> <LIT_CHARS "\t# any, and object names or header names do not, either.\n"> <LIT_CHARS "\tgit rev-list --header --max-count=2 HEAD |\n"> <LIT_CHARS "\tnul_to_q |\n"> <LIT_CHARS "\tgrep \"^Q\" >actual &&\n"> <LIT_CHARS "\tcat >expect <<-EOF &&\n"> <LIT_CHARS "\tQ$(git rev-parse HEAD~1)\n"> <LIT_CHARS "\tQ\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)