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