(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {<clone>}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (C {<test_expect_success>} {<setup>} 
      {
        (SQ <'\n'> <'\techo "#!/bin/sh" > not_ssh &&\n'> 
          <'\techo "echo \\"\\$*\\" > not_ssh_output" >> not_ssh &&\n'> <'\techo "exit 1" >> not_ssh &&\n'> <'\tchmod +x not_ssh\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'clone calls git upload-pack unqualified with no -u option'>)} 
      {
        (SQ <'\n'> 
          <'\ttest_must_fail env GIT_SSH=./not_ssh git clone localhost:/path/to/repo junk &&\n'> <'\techo "localhost git-upload-pack '>
        ) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\\''>) (SQ <'/path/to/repo'>) 
        (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\\''>) (SQ <'" >expected &&\n'> <'\ttest_cmp expected not_ssh_output\n'>)
      }
    )
    (C {<test_expect_success>} {(SQ <'clone calls specified git upload-pack with -u option'>)} 
      {
        (SQ <'\n'> <'\ttest_must_fail env GIT_SSH=./not_ssh \\\n'> 
          <'\t\tgit clone -u ./something/bin/git-upload-pack localhost:/path/to/repo junk &&\n'> <'\techo "localhost ./something/bin/git-upload-pack '>
        ) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\\''>) (SQ <'/path/to/repo'>) 
        (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\\''>) (SQ <'" >expected &&\n'> <'\ttest_cmp expected not_ssh_output\n'>)
      }
    )
    (C {<test_done>})
  ]
)