(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test disabling of git-over-tcp in clone/fetch">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY][LIT_CHARS /lib-proto-disable.sh]]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY][LIT_CHARS /lib-git-daemon.sh]]})
  (Com {[LIT_CHARS start_git_daemon]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create git-accessible repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tbare=\"$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\tgit --bare init \"$bare\" &&\n"> <LIT_CHARS "\tgit push \"$bare\" HEAD &&\n"> <LIT_CHARS "\t>\"$bare/git-daemon-export-ok\" &&\n"> <LIT_CHARS "\tgit -C \"$bare\" config daemon.receivepack true\n">]})
  (Com {[LIT_CHARS test_proto]} {[DQ [LIT_CHARS "git://"]]} {[LIT_CHARS git]} {[DQ [VarSub GIT_DAEMON_URL][LIT_CHARS /repo.git]]})
  (Com {[LIT_CHARS test_done]})
)