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