(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "merge simplification">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef note []
    (Com {[LIT_CHARS git]} {[LIT_CHARS tag]} {[DQ [VarSub 1]]})
  )
  (FunctionDef unnote []
    (Pipeline
      (Com {[LIT_CHARS git]} {[LIT_CHARS name-rev]} {[LIT_CHARS --tags]} {[LIT_CHARS --stdin]})
      (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s|"][VarSub _x40][LIT_CHARS " (tags/"][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "[^)]*"][\ LIT_ESCAPED_CHAR "\\)"][LIT_CHARS ") |"][\ LIT_ESCAPED_CHAR "\\1"][LIT_CHARS " |g"]]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Hi there\" >file &&\n"> <LIT_CHARS "\techo \"initial\" >lost &&\n"> <LIT_CHARS "\tgit add file lost &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Initial file and lost\" &&\n"> <LIT_CHARS "\tnote A &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit branch other-branch &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Hello\" >file &&\n"> <LIT_CHARS "\techo \"second\" >lost &&\n"> <LIT_CHARS "\tgit add file lost &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Modified file and lost\" &&\n"> <LIT_CHARS "\tnote B &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout other-branch &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Hello\" >file &&\n"> <LIT_CHARS "\t>lost &&\n"> <LIT_CHARS "\tgit add file lost &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Modified the file identically\" &&\n"> <LIT_CHARS "\tnote C &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"This is a stupid example\" >another-file &&\n"> <LIT_CHARS "\tgit add another-file &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Add another file\" &&\n"> <LIT_CHARS "\tnote D &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_must_fail git merge -m \"merge\" master &&\n"> <LIT_CHARS "\t>lost && git commit -a -m \"merge\" &&\n"> <LIT_CHARS "\tnote E &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Yet another\" >elif &&\n"> <LIT_CHARS "\tgit add elif &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Irrelevant change\" &&\n"> <LIT_CHARS "\tnote F &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\techo \"Yet another\" >elif &&\n"> <LIT_CHARS "\tgit add elif &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Another irrelevant change\" &&\n"> <LIT_CHARS "\tnote G &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick && git merge -m \"merge\" other-branch &&\n"> <LIT_CHARS "\tnote H &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Final change\" >file &&\n"> <LIT_CHARS "\ttest_tick && git commit -a -m \"Final change\" &&\n"> <LIT_CHARS "\tnote I &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit symbolic-ref HEAD refs/heads/unrelated &&\n"> <LIT_CHARS "\tgit rm -f \"*\" &&\n"> <LIT_CHARS "\techo \"Unrelated branch\" >side &&\n"> <LIT_CHARS "\tgit add side &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Side root\" &&\n"> <LIT_CHARS "\tnote J &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\ttest_tick && git merge --allow-unrelated-histories -m \"Coolest\" unrelated &&\n"> <LIT_CHARS "\tnote K &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Immaterial\" >elif &&\n"> <LIT_CHARS "\tgit add elif &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Last\" &&\n"> <LIT_CHARS "\tnote L\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FMT', {[SQ <LIT_CHARS "tformat:%P \t%H | %s">]})])
  (FunctionDef check_outcome []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('outcome', {[VarSub 1]})])
      (Com {[LIT_CHARS shift]})
      (AndOr OP_AND_IF
        (For c [{[VarSub 1]}])
          (Com {[LIT_CHARS echo]} {[DQ [VarSub c]]})
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS shift]})
          (AndOr OP_AND_IF
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('param', {[DQ [VarSub *]]})])
            (Com {[LIT_CHARS test_expect_] [VarSub outcome]} {[DQ [LIT_CHARS "log "][VarSub param]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit log --pretty=\"$FMT\" --parents $param |\n"> <LIT_CHARS "\t\tunnote >actual &&\n"> <LIT_CHARS "\t\tsed -e \"s/^.*\t\\([^ ]*\\) .*/\\1/\" >check <actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect check\n"> <LIT_CHARS "\t">]})
          )
        )
      )
    )
  )
  (FunctionDef check_result []
    (Com {[LIT_CHARS check_outcome]} {[LIT_CHARS success]} {[DQ [VarSub @]]})
  )
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "L K J I H G F E D C B A">]} {[LIT_CHARS --full-history]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "K I H E C B A">]} {[LIT_CHARS --full-history]} {[LIT_CHARS --]} {[LIT_CHARS file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "K I H E C B A">]} {[LIT_CHARS --full-history]} {[LIT_CHARS --topo-order]} {[LIT_CHARS --]} {[LIT_CHARS file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "K I H E C B A">]} {[LIT_CHARS --full-history]} {[LIT_CHARS --date-order]} {[LIT_CHARS --]} {[LIT_CHARS file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "I E C B A">]} {[LIT_CHARS --simplify-merges]} {[LIT_CHARS --]} {[LIT_CHARS file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "I B A">]} {[LIT_CHARS --]} {[LIT_CHARS file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "I B A">]} {[LIT_CHARS --topo-order]} {[LIT_CHARS --]} {[LIT_CHARS file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS H>]} {[LIT_CHARS --first-parent]} {[LIT_CHARS --]} {[LIT_CHARS another-file]})
  (Com {[LIT_CHARS check_result]} {[SQ <LIT_CHARS "E C B A">]} {[LIT_CHARS --full-history]} {[LIT_CHARS E]} {[LIT_CHARS --]} {[LIT_CHARS lost]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "full history simplification without parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"%s\\n\" E C B A >expect &&\n"> <LIT_CHARS "\tgit log --pretty=\"$FMT\" --full-history E -- lost |\n"> <LIT_CHARS "\tunnote >actual &&\n"> <LIT_CHARS "\tsed -e \"s/^.*\t\\([^ ]*\\) .*/\\1/\" >check <actual &&\n"> <LIT_CHARS "\ttest_cmp expect check\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--full-diff is not affected by --parents">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit log -p --pretty=\"%H\" --full-diff -- file >expected &&\n"> <LIT_CHARS "\tgit log -p --pretty=\"%H\" --full-diff --parents -- file >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_done]})
)