(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[LIT_CHARS clone]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('X', {[SQ ]})])
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS test_have_prereq]} {[LIT_OTHER "!"] [LIT_CHARS MINGW]})
    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('X', {[LIT_CHARS .exe]})])
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr .git &&\n"> <LIT_CHARS "\ttest_create_repo src &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\t>file &&\n"> <LIT_CHARS "\t\tgit add file &&\n"> <LIT_CHARS "\t\tgit commit -m initial &&\n"> <LIT_CHARS "\t\techo 1 >file &&\n"> <LIT_CHARS "\t\tgit add file &&\n"> <LIT_CHARS "\t\tgit commit -m updated\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone with excess parameters (1)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr dst &&\n"> <LIT_CHARS "\ttest_must_fail git clone -n src dst junk\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone with excess parameters (2)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr dst &&\n"> <LIT_CHARS "\ttest_must_fail git clone -n \"file://$(pwd)/src\" dst junk\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS C_LOCALE_OUTPUT]} {[SQ <LIT_CHARS "output from clone">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr dst &&\n"> <LIT_CHARS "\tgit clone -n \"file://$(pwd)/src\" dst >output 2>&1 &&\n"> <LIT_CHARS "\ttest $(grep Clon output | wc -l) = 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone does not keep pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr dst &&\n"> <LIT_CHARS "\tgit clone -n \"file://$(pwd)/src\" dst &&\n"> <LIT_CHARS "\t! test -f dst/file &&\n"> <LIT_CHARS "\t! (echo dst/.git/objects/pack/pack-* | grep \"\\.keep\")\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone checks out files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr dst &&\n"> <LIT_CHARS "\tgit clone src dst &&\n"> <LIT_CHARS "\ttest -f dst/file\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone respects GIT_WORK_TREE">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tGIT_WORK_TREE=worktree git clone src bare &&\n"> <LIT_CHARS "\ttest -f bare/config &&\n"> <LIT_CHARS "\ttest -f worktree/file\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from hooks">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_create_repo r0 &&\n"> <LIT_CHARS "\tcd r0 &&\n"> <LIT_CHARS "\ttest_commit initial &&\n"> <LIT_CHARS "\tcd .. &&\n"> <LIT_CHARS "\tgit init r1 &&\n"> <LIT_CHARS "\tcd r1 &&\n"> <LIT_CHARS "\tcat >.git/hooks/pre-commit <<-\\EOF &&\n"> <LIT_CHARS "\t#!/bin/sh\n"> <LIT_CHARS "\tgit clone ../r0 ../r2\n"> <LIT_CHARS "\texit 1\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tchmod u+x .git/hooks/pre-commit &&\n"> <LIT_CHARS "\t: >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\ttest_must_fail git commit -m invoke-hook &&\n"> <LIT_CHARS "\tcd .. &&\n"> <LIT_CHARS "\ttest_cmp r0/.git/HEAD r2/.git/HEAD &&\n"> <LIT_CHARS "\ttest_cmp r0/initial.t r2/initial.t\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone creates intermediate directories">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone src long/path/to/dst &&\n"> <LIT_CHARS "\ttest -f long/path/to/dst/file\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone creates intermediate directories for bare repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --bare src long/path/to/bare/dst &&\n"> <LIT_CHARS "\ttest -f long/path/to/bare/dst/config\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --mirror">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --mirror src mirror &&\n"> <LIT_CHARS "\ttest -f mirror/HEAD &&\n"> <LIT_CHARS "\ttest ! -f mirror/file &&\n"> <LIT_CHARS "\tFETCH=\"$(cd mirror && git config remote.origin.fetch)\" &&\n"> <LIT_CHARS "\ttest \"+refs/*:refs/*\" = \"$FETCH\" &&\n"> <LIT_CHARS "\tMIRROR=\"$(cd mirror && git config --bool remote.origin.mirror)\" &&\n"> <LIT_CHARS "\ttest \"$MIRROR\" = true\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --mirror with detached HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t( cd src && git checkout HEAD^ && git rev-parse HEAD >../expected ) &&\n"> <LIT_CHARS "\tgit clone --mirror src mirror.detached &&\n"> <LIT_CHARS "\t( cd src && git checkout - ) &&\n"> <LIT_CHARS "\tGIT_DIR=mirror.detached git rev-parse HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --bare with detached HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t( cd src && git checkout HEAD^ && git rev-parse HEAD >../expected ) &&\n"> <LIT_CHARS "\tgit clone --bare src bare.detached &&\n"> <LIT_CHARS "\t( cd src && git checkout - ) &&\n"> <LIT_CHARS "\tGIT_DIR=bare.detached git rev-parse HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --bare names the local repository <name>.git">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --bare src &&\n"> <LIT_CHARS "\ttest -d src.git\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --mirror does not repeat tags">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(cd src &&\n"> <LIT_CHARS "\t git tag some-tag HEAD) &&\n"> <LIT_CHARS "\tgit clone --mirror src mirror2 &&\n"> <LIT_CHARS "\t(cd mirror2 &&\n"> <LIT_CHARS "\t git show-ref 2> clone.err > clone.out) &&\n"> <LIT_CHARS "\ttest_must_fail grep Duplicate mirror2/clone.err &&\n"> <LIT_CHARS "\tgrep some-tag mirror2/clone.out\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone to destination with trailing /">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone src target-1/ &&\n"> <LIT_CHARS "\tT=$( cd target-1 && git rev-parse HEAD ) &&\n"> <LIT_CHARS "\tS=$( cd src && git rev-parse HEAD ) &&\n"> <LIT_CHARS "\ttest \"$T\" = \"$S\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone to destination with extra trailing /">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone src target-2/// &&\n"> <LIT_CHARS "\tT=$( cd target-2 && git rev-parse HEAD ) &&\n"> <LIT_CHARS "\tS=$( cd src && git rev-parse HEAD ) &&\n"> <LIT_CHARS "\ttest \"$T\" = \"$S\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone to an existing empty directory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir target-3 &&\n"> <LIT_CHARS "\tgit clone src target-3 &&\n"> <LIT_CHARS "\tT=$( cd target-3 && git rev-parse HEAD ) &&\n"> <LIT_CHARS "\tS=$( cd src && git rev-parse HEAD ) &&\n"> <LIT_CHARS "\ttest \"$T\" = \"$S\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone to an existing non-empty directory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir target-4 &&\n"> <LIT_CHARS "\t>target-4/Fakefile &&\n"> <LIT_CHARS "\ttest_must_fail git clone src target-4\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone to an existing path">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t>target-5 &&\n"> <LIT_CHARS "\ttest_must_fail git clone src target-5\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone a void">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir src-0 &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src-0 && git init\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit clone \"file://$(pwd)/src-0\" target-6 2>err-6 &&\n"> <LIT_CHARS "\t! grep \"fatal:\" err-6 &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src-0 && test_commit A\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit clone \"file://$(pwd)/src-0\" target-7 2>err-7 &&\n"> <LIT_CHARS "\t! grep \"fatal:\" err-7 &&\n"> <LIT_CHARS "\t# There is no reason to insist they are bit-for-bit\n"> <LIT_CHARS "\t# identical, but this test should suffice for now.\n"> <LIT_CHARS "\ttest_cmp target-6/.git/config target-7/.git/config\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone respects global branch.autosetuprebase">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\ttest_config=\"$HOME/.gitconfig\" &&\n"> <LIT_CHARS "\t\tgit config -f \"$test_config\" branch.autosetuprebase remote &&\n"> <LIT_CHARS "\t\trm -fr dst &&\n"> <LIT_CHARS "\t\tgit clone src dst &&\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tactual=\"z$(git config branch.master.rebase)\" &&\n"> <LIT_CHARS "\t\ttest ztrue = $actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "respect url-encoding of file://">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init x+y &&\n"> <LIT_CHARS "\tgit clone \"file://$PWD/x+y\" xy-url-1 &&\n"> <LIT_CHARS "\tgit clone \"file://$PWD/x%2By\" xy-url-2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not query-string-decode + in URLs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf x+y &&\n"> <LIT_CHARS "\tgit init \"x y\" &&\n"> <LIT_CHARS "\ttest_must_fail git clone \"file://$PWD/x+y\" xy-no-plus\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not respect url-encoding of non-url path">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init x+y &&\n"> <LIT_CHARS "\ttest_must_fail git clone x%2By xy-regular &&\n"> <LIT_CHARS "\tgit clone x+y xy-regular\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone separate gitdir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf dst &&\n"> <LIT_CHARS "\tgit clone --separate-git-dir realgitdir src dst &&\n"> <LIT_CHARS "\ttest -d realgitdir/refs\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone separate gitdir: output">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"gitdir: $(pwd)/realgitdir\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected dst/.git\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from .git file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone dst/.git dst2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch from .git gitfile">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst2 &&\n"> <LIT_CHARS "\t\tgit fetch ../dst/.git\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch from gitfile parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst2 &&\n"> <LIT_CHARS "\t\tgit fetch ../dst\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone separate gitdir where target already exists">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf dst &&\n"> <LIT_CHARS "\ttest_must_fail git clone --separate-git-dir realgitdir src dst\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --reference from original">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --shared --bare src src-1 &&\n"> <LIT_CHARS "\tgit clone --bare src src-2 &&\n"> <LIT_CHARS "\tgit clone --reference=src-2 --bare src-1 target-8 &&\n"> <LIT_CHARS "\tgrep /src-2/ target-8/objects/info/alternates\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone with more than one --reference">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --bare src src-3 &&\n"> <LIT_CHARS "\tgit clone --bare src src-4 &&\n"> <LIT_CHARS "\tgit clone --reference=src-3 --reference=src-4 src target-9 &&\n"> <LIT_CHARS "\tgrep /src-3/ target-9/.git/objects/info/alternates &&\n"> <LIT_CHARS "\tgrep /src-4/ target-9/.git/objects/info/alternates\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from original with relative alternate">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir nest &&\n"> <LIT_CHARS "\tgit clone --bare src nest/src-5 &&\n"> <LIT_CHARS "\techo ../../../src/.git/objects >nest/src-5/objects/info/alternates &&\n"> <LIT_CHARS "\tgit clone --bare nest/src-5 target-10 &&\n"> <LIT_CHARS "\tgrep /src/\\\\.git/objects target-10/objects/info/alternates\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone checking out a tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --branch=some-tag src dst.tag &&\n"> <LIT_CHARS "\tGIT_DIR=src/.git git rev-parse some-tag >expected &&\n"> <LIT_CHARS "\ttest_cmp expected dst.tag/.git/HEAD &&\n"> <LIT_CHARS "\tGIT_DIR=dst.tag/.git git config remote.origin.fetch >fetch.actual &&\n"> <LIT_CHARS "\techo \"+refs/heads/*:refs/remotes/origin/*\" >fetch.expected &&\n"> <LIT_CHARS "\ttest_cmp fetch.expected fetch.actual\n">]})
  (FunctionDef setup_ssh_wrapper []
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup ssh wrapper">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tcp \"$GIT_BUILD_DIR/t/helper/test-fake-ssh$X\" \\\n"> <LIT_CHARS "\t\t\t\"$TRASH_DIRECTORY/ssh-wrapper$X\" &&\n"> <LIT_CHARS "\t\tGIT_SSH=\"$TRASH_DIRECTORY/ssh-wrapper$X\" &&\n"> <LIT_CHARS "\t\texport GIT_SSH &&\n"> <LIT_CHARS "\t\texport TRASH_DIRECTORY &&\n"> <LIT_CHARS "\t\t>\"$TRASH_DIRECTORY\"/ssh-output\n"> <LIT_CHARS "\t">]})
  )
  (FunctionDef copy_ssh_wrapper_as []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS cp]} {[DQ [VarSub TRASH_DIRECTORY][LIT_CHARS /ssh-wrapper][VarSub X]]} {[DQ [VarSub 1 transform_ops=[VS_UNARY_PERCENT {[VarSub X]}]][VarSub X]]})
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('GIT_SSH', {[DQ [VarSub 1 transform_ops=[VS_UNARY_PERCENT {[VarSub X]}]][VarSub X]]})])
        (= scope=<EAssignScope.GLOBAL 1> flags=1 words=[{[LIT_CHARS GIT_SSH]}] bindings=[])
      )
    )
  )
  (FunctionDef expect_ssh []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS test_when_finished]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(cd \"$TRASH_DIRECTORY\" && rm -f ssh-expect && >ssh-output)\n"> <LIT_CHARS "\t">]})
      (AndOr OP_AND_IF
        (Case to_match={[DQ [VarSub #]]}, pat_word_list=[[{[LIT_CHARS 1]}], [{[LIT_CHARS 2]}], [{[LIT_CHARS 3]}], [{[LIT_OTHER "*"]}]]
          (ElseTrue)
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "ssh: "][VarSub 1][LIT_CHARS " git-upload-pack '"][VarSub 2][LIT_CHARS "'"]]})
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "ssh: "][VarSub 1][LIT_CHARS " "][VarSub 2][LIT_CHARS " git-upload-pack '"][VarSub 3][LIT_CHARS "'"]]})
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "ssh: "][VarSub 1][LIT_CHARS " "][VarSub 2][LIT_CHARS " git-upload-pack '"][VarSub 3][LIT_CHARS "' "][VarSub 4]]})
        )
        (Subshell
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS cd]} {[DQ [VarSub TRASH_DIRECTORY]]})
            (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS ssh-expect]} {[LIT_CHARS ssh-output]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS setup_ssh_wrapper]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone myhost:src uses ssh">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone myhost:src ssh-clone &&\n"> <LIT_CHARS "\texpect_ssh myhost src\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_OTHER "!"] [LIT_CHARS MINGW] [LIT_COMMA ","] [LIT_OTHER "!"] [LIT_CHARS CYGWIN]} {[SQ <LIT_CHARS "clone local path foo:bar">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R src \"foo:bar\" &&\n"> <LIT_CHARS "\tgit clone \"foo:bar\" foobar &&\n"> <LIT_CHARS "\texpect_ssh none\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "bracketed hostnames are still ssh">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone \"[myhost:123]:src\" ssh-bracket-clone &&\n"> <LIT_CHARS "\texpect_ssh \"-p 123\" myhost src\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "uplink is not treated as putty">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcopy_ssh_wrapper_as \"$TRASH_DIRECTORY/uplink\" &&\n"> <LIT_CHARS "\tgit clone \"[myhost:123]:src\" ssh-bracket-clone-uplink &&\n"> <LIT_CHARS "\texpect_ssh \"-p 123\" myhost src\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "plink is treated specially (as putty)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcopy_ssh_wrapper_as \"$TRASH_DIRECTORY/plink\" &&\n"> <LIT_CHARS "\tgit clone \"[myhost:123]:src\" ssh-bracket-clone-plink-0 &&\n"> <LIT_CHARS "\texpect_ssh \"-P 123\" myhost src\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "plink.exe is treated specially (as putty)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcopy_ssh_wrapper_as \"$TRASH_DIRECTORY/plink.exe\" &&\n"> <LIT_CHARS "\tgit clone \"[myhost:123]:src\" ssh-bracket-clone-plink-1 &&\n"> <LIT_CHARS "\texpect_ssh \"-P 123\" myhost src\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tortoiseplink is like putty, with extra arguments">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcopy_ssh_wrapper_as \"$TRASH_DIRECTORY/tortoiseplink\" &&\n"> <LIT_CHARS "\tgit clone \"[myhost:123]:src\" ssh-bracket-clone-plink-2 &&\n"> <LIT_CHARS "\texpect_ssh \"-batch -P 123\" myhost src\n">]})
  (Com {[LIT_CHARS setup_ssh_wrapper]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('counter', {[LIT_CHARS 0]})])
  (FunctionDef test_clone_url []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('counter', {[ArithSub {A2 AS_OP_PLUS {A Atom NODE_ARITH_WORD {[VarSub counter]}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 1]}}}]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test_might_fail]} {[LIT_CHARS git]} {[LIT_CHARS clone]} {[DQ [VarSub 1]]} {[LIT_CHARS tmp] [VarSub counter]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS shift]})
          (Com {[LIT_CHARS expect_ssh]} {[DQ [VarSub @]]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_OTHER "!"] [LIT_CHARS MINGW]} {[SQ <LIT_CHARS "clone c:temp is ssl">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url c:temp c temp\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS MINGW]} {[SQ <LIT_CHARS "clone c:temp is dos drive">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url c:temp none\n">]})
  (For repo [{[LIT_CHARS rep]}, {[LIT_CHARS rep/home/project]}, {[LIT_CHARS 123]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone host:"][VarSub repo]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_clone_url host:$repo host $repo\n"> <LIT_CHARS "\t">]})
  )
  (For repo [{[LIT_CHARS rep]}, {[LIT_CHARS rep/home/project]}, {[LIT_CHARS 123]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone [::1]:"][VarSub repo]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_clone_url [::1]:$repo ::1 \"$repo\"\n"> <LIT_CHARS "\t">]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone host:/~repo"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url host:/~repo host \"~repo\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone [::1]:/~repo"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url [::1]:/~repo ::1 \"~repo\"\n">]})
  (For url [{[LIT_CHARS foo/bar] [LIT_OTHER ":"] [LIT_CHARS baz]}, {[LIT_OTHER "["] [LIT_CHARS foo] [LIT_OTHER "]"] [LIT_CHARS bar/baz] [LIT_OTHER ":"] [LIT_CHARS qux]}, {[LIT_OTHER "["] [LIT_CHARS foo/bar] [LIT_OTHER "]"] [LIT_OTHER ":"] [LIT_CHARS baz]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone "][VarSub url][LIT_CHARS " is not ssh"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_clone_url $url none\n"> <LIT_CHARS "\t">]})
  )
  (For tcol [{[DQ ]}, {[LIT_OTHER ":"]}])
    (List
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone ssh://host.xz"][VarSub tcol][LIT_CHARS /home/user/repo]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_clone_url \"ssh://host.xz$tcol/home/user/repo\" host.xz /home/user/repo\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone ssh://host.xz"][VarSub tcol][LIT_CHARS "/~repo"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url \"ssh://host.xz$tcol/~repo\" host.xz \"~repo\"\n">]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone ssh://host.xz:22/home/user/repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url \"ssh://host.xz:22/home/user/repo\" \"-p 22 host.xz\" \"/home/user/repo\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone ssh://host.xz:22/~repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_clone_url \"ssh://host.xz:22/~repo\" \"-p 22 host.xz\" \"~repo\"\n">]})
  (For tuah [{[LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1]}, {[LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"] [LIT_OTHER ":"]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"] [LIT_OTHER ":"]}, {[LIT_OTHER "["] [LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_OTHER "["] [LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"] [LIT_OTHER ":"]}])
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ehost', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub tuah]}) (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s/1]:/1]/"]]}) (Com {[LIT_CHARS tr]} {[LIT_CHARS -d]} {[DQ [LIT_CHARS "[]"]]}) )]})])
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone ssh://"][VarSub tuah][LIT_CHARS /home/user/repo]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t  test_clone_url ssh://"][VarSub tuah][LIT_CHARS "/home/user/repo "][VarSub ehost][LIT_CHARS " /home/user/repo\n"][LIT_CHARS "\t"]]})
    )
  )
  (For tuah [{[LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1]}, {[LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_OTHER "["] [LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}])
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('euah', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub tuah]}) (Com {[LIT_CHARS tr]} {[LIT_CHARS -d]} {[DQ [LIT_CHARS "[]"]]}) )]})])
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone ssh://"][VarSub tuah][LIT_CHARS "/~repo"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t  test_clone_url ssh://"][VarSub tuah][LIT_CHARS "/~repo "][VarSub euah][LIT_CHARS " '~repo'\n"][LIT_CHARS "\t"]]})
    )
  )
  (For tuah [{[LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_OTHER "["] [LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}])
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('euah', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub tuah]}) (Com {[LIT_CHARS tr]} {[LIT_CHARS -d]} {[DQ [LIT_CHARS "[]"]]}) )]})])
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone ssh://"][VarSub tuah][LIT_CHARS ":22/home/user/repo"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t  test_clone_url ssh://"][VarSub tuah][LIT_CHARS ":22/home/user/repo '-p 22' "][VarSub euah][LIT_CHARS " /home/user/repo\n"][LIT_CHARS "\t"]]})
    )
  )
  (For tuah [{[LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER "["] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}, {[LIT_OTHER "["] [LIT_CHARS user] [LIT_OTHER "@"] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER "]"]}])
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('euah', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[VarSub tuah]}) (Com {[LIT_CHARS tr]} {[LIT_CHARS -d]} {[DQ [LIT_CHARS "[]"]]}) )]})])
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone ssh://"][VarSub tuah][LIT_CHARS ":22/~repo"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t  test_clone_url ssh://"][VarSub tuah][LIT_CHARS ":22/~repo '-p 22' "][VarSub euah][LIT_CHARS " '~repo'\n"][LIT_CHARS "\t"]]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from a repository with two identical branches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\tgit checkout -b another master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit clone src target-11 &&\n"> <LIT_CHARS "\ttest \"z$( cd target-11 && git symbolic-ref HEAD )\" = zrefs/heads/another\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "shallow clone locally">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --depth=1 --no-local src ssrrcc &&\n"> <LIT_CHARS "\tgit clone ssrrcc ddsstt &&\n"> <LIT_CHARS "\ttest_cmp ssrrcc/.git/shallow ddsstt/.git/shallow &&\n"> <LIT_CHARS "\t( cd ddsstt && git fsck )\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "GIT_TRACE_PACKFILE produces a usable pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf dst.git &&\n"> <LIT_CHARS "\tGIT_TRACE_PACKFILE=$PWD/tmp.pack git clone --no-local --bare src dst.git &&\n"> <LIT_CHARS "\tgit init --bare replay.git &&\n"> <LIT_CHARS "\tgit -C replay.git index-pack -v --stdin <tmp.pack\n">]})
  (Com {[LIT_CHARS test_done]})
)