(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "ancestor culling and limiting by parent number">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef check_revlist []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('rev_list_args', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS shift]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[DQ [VarSub @]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
            >
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS git]} {[LIT_CHARS rev-list]} {[VarSub rev_list_args]} {[LIT_CHARS --all]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
              >
            )
            (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS actual]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttouch file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick=$(($test_tick - 2400)) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit two &&\n"> <LIT_CHARS "\ttest_commit three &&\n"> <LIT_CHARS "\ttest_commit four &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit log --pretty=oneline --abbrev-commit\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "one is ancestor of others and should not be shown">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list one --not four >result &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\ttest_cmp expect result\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup roots, merges and octopuses">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout --orphan newroot &&\n"> <LIT_CHARS "\ttest_commit five &&\n"> <LIT_CHARS "\tgit checkout -b sidebranch two &&\n"> <LIT_CHARS "\ttest_commit six &&\n"> <LIT_CHARS "\tgit checkout -b anotherbranch three &&\n"> <LIT_CHARS "\ttest_commit seven &&\n"> <LIT_CHARS "\tgit checkout -b yetanotherbranch four &&\n"> <LIT_CHARS "\ttest_commit eight &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit merge --allow-unrelated-histories -m normalmerge newroot &&\n"> <LIT_CHARS "\tgit tag normalmerge &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit merge -m tripus sidebranch anotherbranch &&\n"> <LIT_CHARS "\tgit tag tripus &&\n"> <LIT_CHARS "\tgit checkout -b tetrabranch normalmerge &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit merge -m tetrapus sidebranch anotherbranch yetanotherbranch &&\n"> <LIT_CHARS "\tgit tag tetrapus &&\n"> <LIT_CHARS "\tgit checkout master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list roots">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--max-parents=0\" one five\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list no merges">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--max-parents=1\" one eight seven six five four three two &&\n"> <LIT_CHARS "\tcheck_revlist \"--no-merges\" one eight seven six five four three two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list no octopuses">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--max-parents=2\" one normalmerge eight seven six five four three two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list no roots">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=1\" tetrapus tripus normalmerge eight seven six four three two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list merges">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=2\" tetrapus tripus normalmerge &&\n"> <LIT_CHARS "\tcheck_revlist \"--merges\" tetrapus tripus normalmerge\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list octopus">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=3\" tetrapus tripus\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list ordinary commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=1 --max-parents=1\" eight seven six four three two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --merges --no-merges yields empty set">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=2 --no-merges\" &&\n"> <LIT_CHARS "\tcheck_revlist \"--merges --no-merges\" &&\n"> <LIT_CHARS "\tcheck_revlist \"--no-merges --merges\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list override and infinities">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=2 --max-parents=1 --max-parents=3\" tripus normalmerge &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=1 --min-parents=2 --max-parents=7\" tetrapus tripus normalmerge &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=2 --max-parents=8\" tetrapus tripus normalmerge &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=2 --max-parents=-1\" tetrapus tripus normalmerge &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=2 --no-max-parents\" tetrapus tripus normalmerge &&\n"> <LIT_CHARS "\tcheck_revlist \"--max-parents=0 --min-parents=1 --no-min-parents\" one five\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS dodecapus>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\troots= &&\n"> <LIT_CHARS "\tfor i in 1 2 3 4 5 6 7 8 9 10 11\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tgit checkout -b root$i five &&\n"> <LIT_CHARS "\t\ttest_commit $i &&\n"> <LIT_CHARS "\t\troots=\"$roots root$i\" ||\n"> <LIT_CHARS "\t\treturn\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit merge -m dodecapus $roots &&\n"> <LIT_CHARS "\tgit tag dodecapus &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=4\" dodecapus tetrapus &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=8\" dodecapus &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=12\" dodecapus &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=13\" &&\n"> <LIT_CHARS "\tcheck_revlist \"--min-parents=4 --max-parents=11\" tetrapus\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ancestors with the same commit time">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick_keep=$test_tick &&\n"> <LIT_CHARS "\tfor i in 1 2 3 4 5 6 7 8; do\n"> <LIT_CHARS "\t\ttest_tick=$test_tick_keep\n"> <LIT_CHARS "\t\ttest_commit t$i\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit rev-list t1^! --not t$i >result &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\ttest_cmp expect result\n">]})
  (Com {[LIT_CHARS test_done]})
)