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