(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)})
  ]
)