(CommandList children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_description) op: Equal rhs: {(SQ <'test disabling of git-over-tcp in clone/fetch'>)} spids: [4] ) ] spids: [4] ) (C {(.)} {(./test-lib.sh)}) (C {(.)} {(DQ ($ VSub_Name '$TEST_DIRECTORY') (/lib-proto-disable.sh))}) (C {(.)} {(DQ ($ VSub_Name '$TEST_DIRECTORY') (/lib-git-daemon.sh))}) (C {(start_git_daemon)}) (C {(test_expect_success)} {(SQ <'create git-accessible repo'>)} { (SQ <'\n'> <'\tbare="$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n'> <'\ttest_commit one &&\n'> <'\tgit --bare init "$bare" &&\n'> <'\tgit push "$bare" HEAD &&\n'> <'\t>"$bare/git-daemon-export-ok" &&\n'> <'\tgit -C "$bare" config daemon.receivepack true\n'> ) } ) (C {(test_proto)} {(DQ ('git://'))} {(git)} {(DQ ($ VSub_Name '$GIT_DAEMON_URL') (/repo.git))}) (C {(test_done)}) ] )