(List
  (FunctionDef test_proto []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('desc', {[VarSub 1]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('proto', {[VarSub 2]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('url', {[VarSub 3]})])
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone "][VarSub 1][LIT_CHARS " (enabled)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\trm -rf tmp.git &&\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tGIT_ALLOW_PROTOCOL=$proto &&\n"> <LIT_CHARS "\t\t\texport GIT_ALLOW_PROTOCOL &&\n"> <LIT_CHARS "\t\t\tgit clone --bare \"$url\" tmp.git\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "fetch "][VarSub 1][LIT_CHARS " (enabled)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd tmp.git &&\n"> <LIT_CHARS "\t\t\tGIT_ALLOW_PROTOCOL=$proto &&\n"> <LIT_CHARS "\t\t\texport GIT_ALLOW_PROTOCOL &&\n"> <LIT_CHARS "\t\t\tgit fetch\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "push "][VarSub 1][LIT_CHARS " (enabled)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd tmp.git &&\n"> <LIT_CHARS "\t\t\tGIT_ALLOW_PROTOCOL=$proto &&\n"> <LIT_CHARS "\t\t\texport GIT_ALLOW_PROTOCOL &&\n"> <LIT_CHARS "\t\t\tgit push origin HEAD:pushed\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "push "][VarSub 1][LIT_CHARS " (disabled)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd tmp.git &&\n"> <LIT_CHARS "\t\t\tGIT_ALLOW_PROTOCOL=none &&\n"> <LIT_CHARS "\t\t\texport GIT_ALLOW_PROTOCOL &&\n"> <LIT_CHARS "\t\t\ttest_must_fail git push origin HEAD:pushed\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "fetch "][VarSub 1][LIT_CHARS " (disabled)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd tmp.git &&\n"> <LIT_CHARS "\t\t\tGIT_ALLOW_PROTOCOL=none &&\n"> <LIT_CHARS "\t\t\texport GIT_ALLOW_PROTOCOL &&\n"> <LIT_CHARS "\t\t\ttest_must_fail git fetch\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "clone "][VarSub 1][LIT_CHARS " (disabled)"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\trm -rf tmp.git &&\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tGIT_ALLOW_PROTOCOL=none &&\n"> <LIT_CHARS "\t\t\texport GIT_ALLOW_PROTOCOL &&\n"> <LIT_CHARS "\t\t\ttest_must_fail git clone --bare \"$url\" tmp.git\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
    )
  )
  (FunctionDef setup_ssh_wrapper []
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup ssh wrapper">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\twrite_script ssh-wrapper <<-\\EOF &&\n"> <LIT_CHARS "\t\techo >&2 \"ssh: $*\"\n"> <LIT_CHARS "\t\thost=$1; shift\n"> <LIT_CHARS "\t\tcd \"$TRASH_DIRECTORY/$host\" &&\n"> <LIT_CHARS "\t\teval \"$*\"\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tGIT_SSH=\"$PWD/ssh-wrapper\" &&\n"> <LIT_CHARS "\t\texport GIT_SSH &&\n"> <LIT_CHARS "\t\texport TRASH_DIRECTORY\n"> <LIT_CHARS "\t">]})
  )
  (FunctionDef setup_ext_wrapper []
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup ext wrapper">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\twrite_script fake-remote <<-\\EOF &&\n"> <LIT_CHARS "\t\techo >&2 \"fake-remote: $*\"\n"> <LIT_CHARS "\t\tcd \"$TRASH_DIRECTORY/remote\" &&\n"> <LIT_CHARS "\t\teval \"$*\"\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t\tPATH=$TRASH_DIRECTORY:$PATH &&\n"> <LIT_CHARS "\t\texport TRASH_DIRECTORY\n"> <LIT_CHARS "\t">]})
  )
)