(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'test disabling of git-over-tcp in clone/fetch'>)}
        )
      ]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(.)} {(DQ ($ VSub_DollarName '$TEST_DIRECTORY') (/lib-proto-disable.sh))})
    (C {(.)} {(DQ ($ VSub_DollarName '$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_DollarName '$GIT_DAEMON_URL') (/repo.git))})
    (C {(test_done)})
  ]
)