(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test tree diff when trees have duplicate entries">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef make_tree_entry []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "%s %s\\0">]} {[DQ [VarSub 1]]} {[DQ [VarSub 2]]})
      (Com {[LIT_CHARS perl]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "print chr(hex($_)) for ($ARGV[0] =~ /../g)">]} {[DQ [VarSub 3]]})
    )
  )
  (FunctionDef make_tree []
    (Pipeline
      (While
        (Com {[LIT_CHARS test]} {[VarSub #]} {[LIT_CHARS -gt]} {[LIT_CHARS 2]})
        (List
          (Com {[LIT_CHARS make_tree_entry]} {[DQ [VarSub 1]]} {[DQ [VarSub 2]]} {[DQ [VarSub 3]]})
          (Com {[LIT_CHARS shift]})
          (Com {[LIT_CHARS shift]})
          (Com {[LIT_CHARS shift]})
        )
      )
      (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS -w]} {[LIT_CHARS -t]} {[LIT_CHARS tree]} {[LIT_CHARS --stdin]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create trees with duplicate entries">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tblob_one=$(echo one | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tblob_two=$(echo two | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tinner_one_a=$(make_tree \\\n"> <LIT_CHARS "\t\t100644 inner $blob_one\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tinner_one_b=$(make_tree \\\n"> <LIT_CHARS "\t\t100644 inner $blob_two \\\n"> <LIT_CHARS "\t\t100644 inner $blob_two \\\n"> <LIT_CHARS "\t\t100644 inner $blob_two\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\touter_one=$(make_tree \\\n"> <LIT_CHARS "\t\t040000 outer $inner_one_a \\\n"> <LIT_CHARS "\t\t040000 outer $inner_one_b\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tinner_two=$(make_tree \\\n"> <LIT_CHARS "\t\t100644 inner $blob_one \\\n"> <LIT_CHARS "\t\t100644 inner $blob_two \\\n"> <LIT_CHARS "\t\t100644 inner $blob_two \\\n"> <LIT_CHARS "\t\t100644 inner $blob_two\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\touter_two=$(make_tree \\\n"> <LIT_CHARS "\t\t040000 outer $inner_two\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit tag one $outer_one &&\n"> <LIT_CHARS "\tgit tag two $outer_two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-tree between trees">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tprintf \":000000 100644 $_z40 $blob_two A\\touter/inner\\n\" &&\n"> <LIT_CHARS "\t\tprintf \":000000 100644 $_z40 $blob_two A\\touter/inner\\n\" &&\n"> <LIT_CHARS "\t\tprintf \":000000 100644 $_z40 $blob_two A\\touter/inner\\n\" &&\n"> <LIT_CHARS "\t\tprintf \":100644 000000 $blob_two $_z40 D\\touter/inner\\n\" &&\n"> <LIT_CHARS "\t\tprintf \":100644 000000 $blob_two $_z40 D\\touter/inner\\n\" &&\n"> <LIT_CHARS "\t\tprintf \":100644 000000 $blob_two $_z40 D\\touter/inner\\n\"\n"> <LIT_CHARS "\t} >expect &&\n"> <LIT_CHARS "\tgit diff-tree -r --no-abbrev one two >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "diff-tree with renames">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# same expectation as above, since we disable rename detection\n"> <LIT_CHARS "\tgit diff-tree -M -r --no-abbrev one two >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)