(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description spids:[12])
          op: Equal
          rhs: {(clone)}
          spids: [12]
        )
      ]
      spids: [12]
    )
    (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.EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ </path/to/repo>) 
        (word_part.EscapedLiteralPart token:<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.EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ </path/to/repo>) 
        (word_part.EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <'" >expected &&\n'> <'\ttest_cmp expected not_ssh_output\n'>)
      }
    )
    (C {(test_done)})
  ]
)