(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'checkout '>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: do_checkout
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:exp_branch)
                      op: Equal
                      rhs: {($ VSub_Number '$1')}
                      spids: [46]
                    )
                  ]
                  spids: [46]
                )
                (AndOr
                  children: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:exp_ref)
                          op: Equal
                          rhs: {(DQ (refs/heads/) ($ VSub_Name '$exp_branch'))}
                          spids: [52]
                        )
                      ]
                      spids: [52]
                    )
                    (AndOr
                      children: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:exp_sha)
                              op: Equal
                              rhs: 
                                {
                                  (BracedVarSub
                                    token: <VSub_Number 2>
                                    suffix_op: 
                                      (StringUnary
                                        op_id: VTest_ColonHyphen
                                        arg_word: 
                                          {
                                            (CommandSubPart
                                              command_list: 
                                                (CommandList
                                                  children: [
                                                    (C {(git)} {(rev-parse)} {(--verify)} {(HEAD)})
                                                  ]
                                                )
                                              left_token: <Left_CommandSub '$('>
                                              spids: [70 78]
                                            )
                                          }
                                      )
                                    spids: [67 79]
                                  )
                                }
                              spids: [66]
                            )
                          ]
                          spids: [66]
                        )
                        (If
                          arms: [
                            (if_arm
                              cond: [
                                (Sentence
                                  child: 
                                    (C {(Lit_Other '[')} {(-z)} {(DQ ($ VSub_Number '$3'))} 
                                      {(Lit_Other ']')}
                                    )
                                  terminator: <Op_Semi ';'>
                                )
                              ]
                              action: [
                                (Assignment
                                  keyword: Assign_None
                                  pairs: [
                                    (assign_pair
                                      lhs: (LhsName name:opts)
                                      op: Equal
                                      rhs: {(DQ (-b))}
                                      spids: [105]
                                    )
                                  ]
                                  spids: [105]
                                )
                              ]
                              spids: [16777215 102]
                            )
                          ]
                          else_action: [
                            (Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (LhsName name:opts)
                                  op: Equal
                                  rhs: {(DQ ($ VSub_Number '$3'))}
                                  spids: [114]
                                )
                              ]
                              spids: [114]
                            )
                          ]
                          spids: [111 120]
                        )
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
            (AndOr
              children: [
                (C {(git)} {(checkout)} {($ VSub_Name '$opts')} {($ VSub_Name '$exp_branch')} 
                  {($ VSub_Name '$exp_sha')}
                )
                (AndOr
                  children: [
                    (C {(test)} {($ VSub_Name '$exp_ref')} {(Lit_Other '=')} 
                      {
                        (CommandSubPart
                          command_list: 
                            (CommandList
                              children: [(C {(git)} {(rev-parse)} {(--symbolic-full-name)} {(HEAD)})]
                            )
                          left_token: <Left_CommandSub '$('>
                          spids: [144 152]
                        )
                      }
                    )
                    (C {(test)} {($ VSub_Name '$exp_sha')} {(Lit_Other '=')} 
                      {
                        (CommandSubPart
                          command_list: 
                            (CommandList
                              children: [(C {(git)} {(rev-parse)} {(--verify)} {(HEAD)})]
                            )
                          left_token: <Left_CommandSub '$('>
                          spids: [163 171]
                        )
                      }
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [43]
        )
      spids: [39 42]
    )
    (FuncDef
      name: test_dirty_unmergeable
      body: 
        (BraceGroup
          children: [
            (Pipeline
              children: [
                (SimpleCommand
                  words: [{(git)} {(diff)} {(--exit-code)}]
                  redirects: [
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {(/dev/null)}
                      spids: [191]
                    )
                  ]
                )
              ]
              negated: True
            )
          ]
          spids: [180]
        )
      spids: [176 179]
    )
    (FuncDef
      name: setup_dirty_unmergeable
      body: 
        (BraceGroup
          children: [
            (SimpleCommand
              words: [{(echo)} {(change2)}]
              redirects: [(Redir op_id:Redir_DGreat fd:16777215 arg_word:{(file1)} spids:[206])]
            )
          ]
          spids: [201]
        )
      spids: [197 200]
    )
    (FuncDef
      name: test_dirty_mergeable
      body: 
        (BraceGroup
          children: [
            (Pipeline
              children: [
                (SimpleCommand
                  words: [{(git)} {(diff)} {(--cached)} {(--exit-code)}]
                  redirects: [
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {(/dev/null)}
                      spids: [231]
                    )
                  ]
                )
              ]
              negated: True
            )
          ]
          spids: [218]
        )
      spids: [214 217]
    )
    (FuncDef
      name: setup_dirty_mergeable
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (SimpleCommand
                  words: [{(echo)} {(file2)}]
                  redirects: [(Redir op_id:Redir_Great fd:16777215 arg_word:{(file2)} spids:[246])]
                )
                (C {(git)} {(add)} {(file2)})
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [241]
        )
      spids: [237 240]
    )
    (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 '>
        ) (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <branch1>) 
        (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)})
  ]
)