(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'Test git rev-parse with different parent options'>)}
          spids: [13]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (command.ShFunction
      name: test_cmp_rev_output
      body: 
        (BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (command.Simple
                  words: [{<git>} {<rev-parse>} {<--verify>} {(DQ ($ Id.VSub_Number '$1'))}]
                  redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<expect>})]
                  do_fork: T
                )
                (command.Simple
                  words: [{<eval>} {(DQ ($ Id.VSub_Number '$2'))}]
                  redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<actual>})]
                  do_fork: T
                )
                (C {<test_cmp>} {<expect>} {<actual>})
              ]
            )
          ]
        )
    )
    (C {<test_expect_success>} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\ttest_commit start &&\n'> <'\ttest_commit second &&\n'> 
          <'\tgit checkout --orphan tmp &&\n'> <'\ttest_commit start2 &&\n'> <'\tgit checkout master &&\n'> 
          <'\tgit merge -m next --allow-unrelated-histories start2 &&\n'> <'\ttest_commit final &&\n'> <'\n'> <'\ttest_seq 40 |\n'> <'\twhile read i\n'> <'\tdo\n'> 
          <'\t\tgit checkout --orphan "b$i" &&\n'> <'\t\ttest_tick &&\n'> <'\t\tgit commit --allow-empty -m "$i" &&\n'> 
          <'\t\tcommit=$(git rev-parse --verify HEAD) &&\n'> <'\t\tprintf "$commit " >>.git/info/grafts\n'> <'\tdone\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'start is valid'>)} 
      {(SQ <'\n'> <'\tgit rev-parse start | grep "^[0-9a-f]\\{40\\}$"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'start^0'>)} 
      {(SQ <'\n'> <'\ttest_cmp_rev_output tags/start "git rev-parse start^0"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'start^1 not valid'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse --verify start^1\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'second^1 = second^'>)} 
      {(SQ <'\n'> <'\ttest_cmp_rev_output second^ "git rev-parse second^1"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'final^1^1^1'>)} 
      {(SQ <'\n'> <'\ttest_cmp_rev_output start "git rev-parse final^1^1^1"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'final^1^1^1 = final^^^'>)} 
      {(SQ <'\n'> <'\ttest_cmp_rev_output final^^^ "git rev-parse final^1^1^1"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'final^1^2'>)} 
      {(SQ <'\n'> <'\ttest_cmp_rev_output start2 "git rev-parse final^1^2"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'final^1^2 != final^1^1'>)} 
      {(SQ <'\n'> <'\ttest $(git rev-parse final^1^2) != $(git rev-parse final^1^1)\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'final^1^3 not valid'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse --verify final^1^3\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'--verify start2^1'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse --verify start2^1\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'--verify start2^0'>)} 
      {(SQ <'\n'> <'\tgit rev-parse --verify start2^0\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'final^1^@ = final^1^1 final^1^2'>)} 
      {
        (SQ <'\n'> <'\tgit rev-parse final^1^1 final^1^2 >expect &&\n'> 
          <'\tgit rev-parse final^1^@ >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'final^1^! = final^1 ^final^1^1 ^final^1^2'>)} 
      {
        (SQ <'\n'> <'\tgit rev-parse final^1 ^final^1^1 ^final^1^2 >expect &&\n'> 
          <'\tgit rev-parse final^1^! >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'large graft octopus'>)} 
      {(SQ <'\n'> <'\ttest_cmp_rev_output b31 "git rev-parse --verify b1^30"\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'repack for next test'>)} {(SQ <'\n'> <'\tgit repack -a -d\n'>)})
    (C {<test_expect_success>} {(SQ <'short SHA-1 works'>)} 
      {
        (SQ <'\n'> <'\tstart=$(git rev-parse --verify start) &&\n'> 
          <'\ttest_cmp_rev_output start "git rev-parse ${start%?}"\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'setup for rev^- tests'>)} 
      {
        (SQ <'\n'> <'\ttest_commit one &&\n'> <'\ttest_commit two &&\n'> <'\ttest_commit three &&\n'> 
          <'\n'> <'\t# Merge in a branch for testing rev^-\n'> <'\tgit checkout -b branch &&\n'> 
          <'\tgit checkout HEAD^^ &&\n'> <'\tgit merge -m merge --no-edit --no-ff branch &&\n'> <'\tgit checkout -b merge\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-list --count merge^- = merge^..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-list --count merge^..merge >expect &&\n'> <'\techo 3 >actual &&\n'> 
          <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^- = merge^..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-parse merge^..merge >expect &&\n'> 
          <'\tgit rev-parse merge^- >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^-1 = merge^..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-parse merge^1..merge >expect &&\n'> 
          <'\tgit rev-parse merge^-1 >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^-2 = merge^2..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-parse merge^2..merge >expect &&\n'> 
          <'\tgit rev-parse merge^-2 >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^-0 (invalid parent)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse merge^-0\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^-3 (invalid parent)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse merge^-3\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^-^ (garbage after ^-)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse merge^-^\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-parse merge^-1x (garbage after ^-1)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-parse merge^-1x\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^- = merge^..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-list merge^..merge >expect &&\n'> 
          <'\tgit rev-list merge^- >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^-1 = merge^1..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-list merge^1..merge >expect &&\n'> 
          <'\tgit rev-list merge^-1 >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^-2 = merge^2..merge'>)} 
      {
        (SQ <'\n'> <'\tgit rev-list merge^2..merge >expect &&\n'> 
          <'\tgit rev-list merge^-2 >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^-0 (invalid parent)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-list merge^-0\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^-3 (invalid parent)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-list merge^-3\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^-^ (garbage after ^-)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-list merge^-^\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'rev-list merge^-1x (garbage after ^-1)'>)} 
      {(SQ <'\n'> <'\ttest_must_fail git rev-list merge^-1x\n'>)}
    )
    (C {<test_done>})
  ]
)