(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'checkout '>)}
        )
      ]
    )
    (C {(.)} {(./test-lib.sh)})
    (command.FuncDef
      name: do_checkout
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp Op_DAmp Op_DAmp]
              children: [
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:exp_branch)
                      op: Equal
                      rhs: {($ VSub_Number '$1')}
                    )
                  ]
                )
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:exp_ref)
                      op: Equal
                      rhs: {(DQ (refs/heads/) ($ VSub_DollarName '$exp_branch'))}
                    )
                  ]
                )
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:exp_sha)
                      op: Equal
                      rhs: 
                        {
                          (word_part.BracedVarSub
                            token: <VSub_Number 2>
                            suffix_op: 
                              (suffix_op.StringUnary
                                op_id: VTest_ColonHyphen
                                arg_word: 
                                  {
                                    (word_part.CommandSubPart
                                      command_list: 
                                        (command.CommandList
                                          children: [(C {(git)} {(rev-parse)} {(--verify)} {(HEAD)})]
                                        )
                                      left_token: <Left_CommandSub '$('>
                                    )
                                  }
                              )
                          )
                        }
                    )
                  ]
                )
                (command.If
                  arms: [
                    (if_arm
                      cond: [
                        (command.Sentence
                          child: 
                            (C {(Lit_Other '[')} {(-z)} {(DQ ($ VSub_Number '$3'))} {(Lit_Other ']')})
                          terminator: <Op_Semi ';'>
                        )
                      ]
                      action: [
                        (command.Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (lhs_expr.LhsName name:opts)
                              op: Equal
                              rhs: {(DQ (-b))}
                            )
                          ]
                        )
                      ]
                    )
                  ]
                  else_action: [
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:opts)
                          op: Equal
                          rhs: {(DQ ($ VSub_Number '$3'))}
                        )
                      ]
                    )
                  ]
                )
              ]
            )
            (command.AndOr
              ops: [Op_DAmp Op_DAmp]
              children: [
                (C {(git)} {(checkout)} {($ VSub_DollarName '$opts')} {($ VSub_DollarName '$exp_branch')} 
                  {($ VSub_DollarName '$exp_sha')}
                )
                (C {(test)} {($ VSub_DollarName '$exp_ref')} {(Lit_Other '=')} 
                  {
                    (word_part.CommandSubPart
                      command_list: 
                        (command.CommandList
                          children: [(C {(git)} {(rev-parse)} {(--symbolic-full-name)} {(HEAD)})]
                        )
                      left_token: <Left_CommandSub '$('>
                    )
                  }
                )
                (C {(test)} {($ VSub_DollarName '$exp_sha')} {(Lit_Other '=')} 
                  {
                    (word_part.CommandSubPart
                      command_list: 
                        (command.CommandList
                          children: [(C {(git)} {(rev-parse)} {(--verify)} {(HEAD)})]
                        )
                      left_token: <Left_CommandSub '$('>
                    )
                  }
                )
              ]
            )
          ]
        )
    )
    (command.FuncDef
      name: test_dirty_unmergeable
      body: 
        (command.BraceGroup
          children: [
            (command.Pipeline
              children: [
                (command.SimpleCommand
                  words: [{(git)} {(diff)} {(--exit-code)}]
                  redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(/dev/null)})]
                )
              ]
              negated: T
            )
          ]
        )
    )
    (command.FuncDef
      name: setup_dirty_unmergeable
      body: 
        (command.BraceGroup
          children: [
            (command.SimpleCommand
              words: [{(echo)} {(change2)}]
              redirects: [(redir.Redir op:<Redir_DGreat '>>'> fd:16777215 arg_word:{(file1)})]
            )
          ]
        )
    )
    (command.FuncDef
      name: test_dirty_mergeable
      body: 
        (command.BraceGroup
          children: [
            (command.Pipeline
              children: [
                (command.SimpleCommand
                  words: [{(git)} {(diff)} {(--cached)} {(--exit-code)}]
                  redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(/dev/null)})]
                )
              ]
              negated: T
            )
          ]
        )
    )
    (command.FuncDef
      name: setup_dirty_mergeable
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp]
              children: [
                (command.SimpleCommand
                  words: [{(echo)} {(file2)}]
                  redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(file2)})]
                )
                (C {(git)} {(add)} {(file2)})
              ]
            )
          ]
        )
    )
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\ttest_commit initial file1 &&\n'> <'\tHEAD1=$(git rev-parse --verify HEAD) &&\n'> 
          <'\n'> <'\ttest_commit change1 file1 &&\n'> <'\tHEAD2=$(git rev-parse --verify HEAD) &&\n'> <'\n'> 
          <'\tgit branch -m branch1\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -b to a new branch, set to HEAD'>)} 
      {(SQ <'\n'> <'\tdo_checkout branch2\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'checkout -b to a new branch, set to an explicit ref'>)} 
      {
        (SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\tgit branch -D branch2 &&\n'> <'\n'> 
          <'\tdo_checkout branch2 $HEAD1\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -b to a new branch with unmergeable changes fails'>)} 
      {
        (SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\n'> <'\t# clean up from previous test\n'> 
          <'\tgit branch -D branch2 &&\n'> <'\n'> <'\tsetup_dirty_unmergeable &&\n'> <'\ttest_must_fail do_checkout branch2 $HEAD1 &&\n'> 
          <'\ttest_dirty_unmergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -f -b to a new branch with unmergeable changes discards changes'>)} 
      {
        (SQ <'\n'> <'\t# still dirty and on branch1\n'> <'\tdo_checkout branch2 $HEAD1 "-f -b" &&\n'> 
          <'\ttest_must_fail test_dirty_unmergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -b to a new branch preserves mergeable changes'>)} 
      {
        (SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\n'> <'\t# clean up from previous test\n'> 
          <'\tgit branch -D branch2 &&\n'> <'\n'> <'\tsetup_dirty_mergeable &&\n'> <'\tdo_checkout branch2 $HEAD1 &&\n'> 
          <'\ttest_dirty_mergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -f -b to a new branch with mergeable changes discards changes'>)} 
      {
        (SQ <'\n'> <'\t# clean up from previous test\n'> <'\tgit reset --hard &&\n'> <'\n'> 
          <'\tgit checkout branch1 &&\n'> <'\n'> <'\t# clean up from previous test\n'> <'\tgit branch -D branch2 &&\n'> <'\n'> 
          <'\tsetup_dirty_mergeable &&\n'> <'\tdo_checkout branch2 $HEAD1 "-f -b" &&\n'> <'\ttest_must_fail test_dirty_mergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -b to an existing branch fails'>)} 
      {
        (SQ <'\n'> <'\tgit reset --hard HEAD &&\n'> <'\n'> 
          <'\ttest_must_fail do_checkout branch2 $HEAD2\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -b to @{-1} fails with the right branch name'>)} 
      {
        (SQ <'\n'> <'\tgit reset --hard HEAD &&\n'> <'\tgit checkout branch1 &&\n'> 
          <'\tgit checkout branch2 &&\n'> <'\techo  >expect "fatal: A branch named '>
        ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <branch1>) 
        (word_part.EscapedLiteralPart token:<Lit_EscapedChar "\\'">) 
        (SQ <' already exists." &&\n'> <'\ttest_must_fail git checkout -b @{-1} 2>actual &&\n'> 
          <'\ttest_i18ncmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -B to an existing branch resets branch to HEAD'>)} 
      {(SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\n'> <'\tdo_checkout branch2 "" -B\n'>)}
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -B to an existing branch from detached HEAD resets branch to HEAD'>)} 
      {
        (SQ <'\n'> <'\tgit checkout $(git rev-parse --verify HEAD) &&\n'> <'\n'> 
          <'\tdo_checkout branch2 "" -B\n'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -B to an existing branch with an explicit ref resets branch to that ref'>)} {(SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\n'> <'\tdo_checkout branch2 $HEAD1 -B\n'>)}
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -B to an existing branch with unmergeable changes fails'>)} 
      {
        (SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\n'> <'\tsetup_dirty_unmergeable &&\n'> 
          <'\ttest_must_fail do_checkout branch2 $HEAD1 -B &&\n'> <'\ttest_dirty_unmergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -f -B to an existing branch with unmergeable changes discards changes'>)} 
      {
        (SQ <'\n'> <'\t# still dirty and on branch1\n'> <'\tdo_checkout branch2 $HEAD1 "-f -B" &&\n'> 
          <'\ttest_must_fail test_dirty_unmergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -B to an existing branch preserves mergeable changes'>)} 
      {
        (SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\n'> <'\tsetup_dirty_mergeable &&\n'> 
          <'\tdo_checkout branch2 $HEAD1 -B &&\n'> <'\ttest_dirty_mergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'checkout -f -B to an existing branch with mergeable changes discards changes'>)} 
      {
        (SQ <'\n'> <'\t# clean up from previous test\n'> <'\tgit reset --hard &&\n'> <'\n'> 
          <'\tgit checkout branch1 &&\n'> <'\n'> <'\tsetup_dirty_mergeable &&\n'> <'\tdo_checkout branch2 $HEAD1 "-f -B" &&\n'> 
          <'\ttest_must_fail test_dirty_mergeable\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -b <describe>'>)} 
      {
        (SQ <'\n'> <'\tgit tag -f -m "First commit" initial initial &&\n'> 
          <'\tgit checkout -f change1 &&\n'> <'\tname=$(git describe) &&\n'> <'\tgit checkout -b $name &&\n'> 
          <'\tgit diff --exit-code change1 &&\n'> <'\techo "refs/heads/$name" >expect &&\n'> <'\tgit symbolic-ref HEAD >actual &&\n'> 
          <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'checkout -B to the current branch works'>)} 
      {
        (SQ <'\n'> <'\tgit checkout branch1 &&\n'> <'\tgit checkout -B branch1-scratch &&\n'> <'\n'> 
          <'\tsetup_dirty_mergeable &&\n'> <'\tgit checkout -B branch1-scratch initial &&\n'> <'\ttest_dirty_mergeable\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)