(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'pull can handle submodules'>)}
        )
      ]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(.)} {(DQ ($ VSub_DollarName '$TEST_DIRECTORY')) (/lib-submodule-update.sh)})
    (command.FuncDef
      name: reset_branch_to_HEAD
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp Op_DAmp]
              children: [
                (C {(git)} {(branch)} {(-D)} {(DQ ($ VSub_Number '$1'))})
                (C {(git)} {(checkout)} {(-b)} {(DQ ($ VSub_Number '$1'))} {(HEAD)})
                (C {(git)} {(branch)} 
                  {(--set-upstream-to) (Lit_Other '=') (DQ (origin/) ($ VSub_Number '$1'))} {(DQ ($ VSub_Number '$1'))}
                )
              ]
            )
          ]
        )
    )
    (command.FuncDef
      name: git_pull
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp]
              children: [(C {(reset_branch_to_HEAD)} {(DQ ($ VSub_Number '$1'))}) (C {(git)} {(pull)})]
            )
          ]
        )
    )
    (C {(test_submodule_switch)} {(DQ (git_pull))})
    (command.FuncDef
      name: git_pull_ff
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp]
              children: [
                (C {(reset_branch_to_HEAD)} {(DQ ($ VSub_Number '$1'))})
                (C {(git)} {(pull)} {(--ff)})
              ]
            )
          ]
        )
    )
    (C {(test_submodule_switch)} {(DQ (git_pull_ff))})
    (command.FuncDef
      name: git_pull_ff_only
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp]
              children: [
                (C {(reset_branch_to_HEAD)} {(DQ ($ VSub_Number '$1'))})
                (C {(git)} {(pull)} {(--ff-only)})
              ]
            )
          ]
        )
    )
    (C {(test_submodule_switch)} {(DQ (git_pull_ff_only))})
    (command.FuncDef
      name: git_pull_noff
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp]
              children: [
                (C {(reset_branch_to_HEAD)} {(DQ ($ VSub_Number '$1'))})
                (C {(git)} {(pull)} {(--no-ff)})
              ]
            )
          ]
        )
    )
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:KNOWN_FAILURE_NOFF_MERGE_DOESNT_CREATE_EMPTY_SUBMODULE_DIR)
          op: Equal
          rhs: {(1)}
        )
      ]
    )
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: 
            (lhs_expr.LhsName
              name: KNOWN_FAILURE_NOFF_MERGE_ATTEMPTS_TO_MERGE_REMOVED_SUBMODULE_FILES
            )
          op: Equal
          rhs: {(1)}
        )
      ]
    )
    (C {(test_submodule_switch)} {(DQ (git_pull_noff))})
    (C {(test_done)})
  ]
)