(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: 
            {
              (SQ 
                (Token
                  id: Id.Lit_Chars
                  val: 'test disabling of git-over-tcp in clone/fetch'
                  span_id: 6
                )
              )
            }
          spids: [4]
        )
      ]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(.)} {(DQ ($ Id.VSub_DollarName '$TEST_DIRECTORY') (/lib-proto-disable.sh))})
    (C {(.)} {(DQ ($ Id.VSub_DollarName '$TEST_DIRECTORY') (/lib-git-daemon.sh))})
    (C {(start_git_daemon)})
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'create git-accessible repo' span_id:33))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:37) 
          (Token
            id: Id.Lit_Chars
            val: '\tbare="$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n'
            span_id: 38
          ) (Token id:Id.Lit_Chars val:'\ttest_commit one &&\n' span_id:39) 
          (Token id:Id.Lit_Chars val:'\tgit --bare init "$bare" &&\n' span_id:40) (Token id:Id.Lit_Chars val:'\tgit push "$bare" HEAD &&\n' span_id:41) 
          (Token id:Id.Lit_Chars val:'\t>"$bare/git-daemon-export-ok" &&\n' span_id:42) (Token id:Id.Lit_Chars val:'\tgit -C "$bare" config daemon.receivepack true\n' span_id:43)
        )
      }
    )
    (C {(test_proto)} {(DQ ('git://'))} {(git)} 
      {(DQ ($ Id.VSub_DollarName '$GIT_DAEMON_URL') (/repo.git))}
    )
    (C {(test_done)})
  ]
)