(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 fetching over git protocol' span_id:6))}
          spids: [4]
        )
      ]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(.)} {(DQ ($ Id.VSub_DollarName '$TEST_DIRECTORY')) (/lib-git-daemon.sh)})
    (C {(start_git_daemon)})
    (command.ShFunction
      name: check_verbose_connect
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (C {(grep)} {(-F)} {(DQ ('Looking up 127.0.0.1 ...'))} {(stderr)})
                (C {(grep)} {(-F)} {(DQ ('Connecting to 127.0.0.1 (port '))} {(stderr)})
                (C {(grep)} {(-F)} {(DQ (done.))} {(stderr)})
              ]
            )
          ]
        )
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'setup repository' span_id:74))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:78) 
          (Token id:Id.Lit_Chars val:'\tgit config push.default matching &&\n' span_id:79) (Token id:Id.Lit_Chars val:'\techo content >file &&\n' span_id:80) 
          (Token id:Id.Lit_Chars val:'\tgit add file &&\n' span_id:81) (Token id:Id.Lit_Chars val:'\tgit commit -m one\n' span_id:82)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'create git-accessible bare repository' span_id:89))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:93) 
          (Token
            id: Id.Lit_Chars
            val: '\tmkdir "$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n'
            span_id: 94
          ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n' span_id:95) 
          (Token id:Id.Lit_Chars val:'\t git --bare init &&\n' span_id:96) (Token id:Id.Lit_Chars val:'\t : >git-daemon-export-ok\n' span_id:97) 
          (Token id:Id.Lit_Chars val:'\t) &&\n' span_id:98) 
          (Token
            id: Id.Lit_Chars
            val: '\tgit remote add public "$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git" &&\n'
            span_id: 99
          ) (Token id:Id.Lit_Chars val:'\tgit push public master:master\n' span_id:100)
        )
      }
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'clone git repository' span_id:107))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:111) 
          (Token
            id: Id.Lit_Chars
            val: '\tgit clone -v "$GIT_DAEMON_URL/repo.git" clone 2>stderr &&\n'
            span_id: 112
          ) (Token id:Id.Lit_Chars val:'\tcheck_verbose_connect &&\n' span_id:113) 
          (Token id:Id.Lit_Chars val:'\ttest_cmp file clone/file\n' span_id:114)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'fetch changes via git protocol' span_id:121))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:125) 
          (Token id:Id.Lit_Chars val:'\techo content >>file &&\n' span_id:126) (Token id:Id.Lit_Chars val:'\tgit commit -a -m two &&\n' span_id:127) 
          (Token id:Id.Lit_Chars val:'\tgit push public &&\n' span_id:128) (Token id:Id.Lit_Chars val:'\t(cd clone && git pull -v) 2>stderr &&\n' span_id:129) 
          (Token id:Id.Lit_Chars val:'\tcheck_verbose_connect &&\n' span_id:130) (Token id:Id.Lit_Chars val:'\ttest_cmp file clone/file\n' span_id:131)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'no-op fetch -v stderr is as expected' span_id:138))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:142) 
          (Token
            id: Id.Lit_Chars
            val: '\t(cd clone && git fetch -v) 2>stderr &&\n'
            span_id: 143
          ) (Token id:Id.Lit_Chars val:'\tcheck_verbose_connect\n' span_id:144)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'no-op fetch without "-v" is quiet' span_id:151))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:155) 
          (Token id:Id.Lit_Chars val:'\t(cd clone && git fetch) 2>stderr &&\n' span_id:156) (Token id:Id.Lit_Chars val:'\t! test -s stderr\n' span_id:157)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'remote detects correct HEAD' span_id:164))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:168) 
          (Token id:Id.Lit_Chars val:'\tgit push public master:other &&\n' span_id:169) (Token id:Id.Lit_Chars val:'\t(cd clone &&\n' span_id:170) 
          (Token id:Id.Lit_Chars val:'\t git remote set-head -d origin &&\n' span_id:171) (Token id:Id.Lit_Chars val:'\t git remote set-head -a origin &&\n' span_id:172) 
          (Token
            id: Id.Lit_Chars
            val: '\t git symbolic-ref refs/remotes/origin/HEAD > output &&\n'
            span_id: 173
          ) (Token id:Id.Lit_Chars val:'\t echo refs/remotes/origin/master > expect &&\n' span_id:174) 
          (Token id:Id.Lit_Chars val:'\t test_cmp expect output\n' span_id:175) (Token id:Id.Lit_Chars val:'\t)\n' span_id:176)
        )
      }
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'prepare pack objects' span_id:183))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:187) 
          (Token
            id: Id.Lit_Chars
            val: 
'\tcp -R "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo.git "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git &&\n'
            span_id: 188
          ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git &&\n' span_id:189) 
          (Token id:Id.Lit_Chars val:'\t git --bare repack -a -d\n' span_id:190) (Token id:Id.Lit_Chars val:'\t)\n' span_id:191)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'fetch notices corrupt pack' span_id:198))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:202) 
          (Token
            id: Id.Lit_Chars
            val: 
'\tcp -R "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad1.git &&\n'
            span_id: 203
          ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad1.git &&\n' span_id:204) 
          (Token
            id: Id.Lit_Chars
            val: '\t p=$(ls objects/pack/pack-*.pack) &&\n'
            span_id: 205
          ) (Token id:Id.Lit_Chars val:'\t chmod u+w $p &&\n' span_id:206) 
          (Token
            id: Id.Lit_Chars
            val: '\t printf %0256d 0 | dd of=$p bs=256 count=1 seek=1 conv=notrunc\n'
            span_id: 207
          ) (Token id:Id.Lit_Chars val:'\t) &&\n' span_id:208) 
          (Token id:Id.Lit_Chars val:'\tmkdir repo_bad1.git &&\n' span_id:209) (Token id:Id.Lit_Chars val:'\t(cd repo_bad1.git &&\n' span_id:210) 
          (Token id:Id.Lit_Chars val:'\t git --bare init &&\n' span_id:211) 
          (Token
            id: Id.Lit_Chars
            val: '\t test_must_fail git --bare fetch "$GIT_DAEMON_URL/repo_bad1.git" &&\n'
            span_id: 212
          ) (Token id:Id.Lit_Chars val:'\t test 0 = $(ls objects/pack/pack-*.pack | wc -l)\n' span_id:213) 
          (Token id:Id.Lit_Chars val:'\t)\n' span_id:214)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'fetch notices corrupt idx' span_id:221))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:225) 
          (Token
            id: Id.Lit_Chars
            val: 
'\tcp -R "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_pack.git "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad2.git &&\n'
            span_id: 226
          ) (Token id:Id.Lit_Chars val:'\t(cd "$GIT_DAEMON_DOCUMENT_ROOT_PATH"/repo_bad2.git &&\n' span_id:227) 
          (Token id:Id.Lit_Chars val:'\t p=$(ls objects/pack/pack-*.idx) &&\n' span_id:228) (Token id:Id.Lit_Chars val:'\t chmod u+w $p &&\n' span_id:229) 
          (Token
            id: Id.Lit_Chars
            val: '\t printf %0256d 0 | dd of=$p bs=256 count=1 seek=1 conv=notrunc\n'
            span_id: 230
          ) (Token id:Id.Lit_Chars val:'\t) &&\n' span_id:231) 
          (Token id:Id.Lit_Chars val:'\tmkdir repo_bad2.git &&\n' span_id:232) (Token id:Id.Lit_Chars val:'\t(cd repo_bad2.git &&\n' span_id:233) 
          (Token id:Id.Lit_Chars val:'\t git --bare init &&\n' span_id:234) 
          (Token
            id: Id.Lit_Chars
            val: '\t test_must_fail git --bare fetch "$GIT_DAEMON_URL/repo_bad2.git" &&\n'
            span_id: 235
          ) (Token id:Id.Lit_Chars val:'\t test 0 = $(ls objects/pack | wc -l)\n' span_id:236) 
          (Token id:Id.Lit_Chars val:'\t)\n' span_id:237)
        )
      }
    )
    (command.ShFunction
      name: test_remote_error
      body: 
        (command.BraceGroup
          children: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:do_export)
                  op: assign_op.Equal
                  rhs: {(YesPlease)}
                  spids: [248]
                )
              ]
            )
            (command.WhileUntil
              keyword: (Token id:Id.KW_While val:while span_id:252)
              cond: [(C {(test)} {($ Id.VSub_Pound '$#')} {(-gt)} {(0)})]
              body: 
                (command.DoGroup
                  children: [
                    (command.Case
                      to_match: {($ Id.VSub_Number '$1')}
                      arms: [
                        (case_arm
                          pat_list: [{(-x)}]
                          action: [
                            (C {(shift)})
                            (C {(chmod)} {(-x)} 
                              {
                                (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') 
                                  (/repo.git)
                                )
                              }
                            )
                          ]
                          spids: [273 274 290 -1]
                        )
                        (case_arm
                          pat_list: [{(-n)}]
                          action: [
                            (C {(shift)})
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:do_export)
                                  op: assign_op.Equal
                                  rhs: (word.Empty)
                                  spids: [300]
                                )
                              ]
                            )
                          ]
                          spids: [293 294 303 -1]
                        )
                        (case_arm
                          pat_list: [{(Id.Lit_Star '*')}]
                          action: [
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Break val:break span_id:310)
                            )
                          ]
                          spids: [306 307 -1 313]
                        )
                      ]
                    )
                  ]
                )
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:msg)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number '$1')}
                  spids: [320]
                )
              ]
            )
            (C {(shift)})
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:cmd)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number '$1')}
                  spids: [327]
                )
              ]
            )
            (C {(shift)})
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:repo)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number '$1')}
                  spids: [334]
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DPipe]
              children: [(C {(shift)}) (C {(error)} {(DQ ('invalid number of arguments'))})]
            )
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (C {(test)} {(-x)} 
                      {
                        (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/) 
                          ($ Id.VSub_DollarName '$repo')
                        )
                      }
                    )
                  ]
                  action: [
                    (command.If
                      arms: [
                        (if_arm
                          cond: [(C {(test)} {(-n)} {(DQ ($ Id.VSub_DollarName '$do_export'))})]
                          action: [
                            (command.Simple
                              words: [{(Id.Lit_Other ':')}]
                              redirects: [
                                (redir.Redir
                                  op: (Token id:Id.Redir_Great val:'>' span_id:382)
                                  fd: -1
                                  arg_word: 
                                    {
                                      (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/) 
                                        ($ Id.VSub_DollarName '$repo') (/git-daemon-export-ok)
                                      )
                                    }
                                )
                              ]
                            )
                          ]
                          spids: [366 377]
                        )
                      ]
                      else_action: [
                        (C {(rm)} {(-f)} 
                          {
                            (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/) 
                              ($ Id.VSub_DollarName '$repo') (/git-daemon-export-ok)
                            )
                          }
                        )
                      ]
                    )
                  ]
                  spids: [350 363]
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (command.Simple
                  words: [
                    {(test_must_fail)}
                    {(git)}
                    {(DQ ($ Id.VSub_DollarName '$cmd'))}
                    {(DQ ($ Id.VSub_DollarName '$GIT_DAEMON_URL') (/) ($ Id.VSub_DollarName '$repo'))}
                    {(DQ ($ Id.VSub_At '$@'))}
                  ]
                  redirects: [
                    (redir.Redir
                      op: (Token id:Id.Redir_Great val:'2>' span_id:431)
                      fd: 2
                      arg_word: {(output)}
                    )
                  ]
                )
                (C {(test_i18ngrep)} 
                  {
                    (DQ ('fatal: remote error: ') ($ Id.VSub_DollarName '$msg') (': /') 
                      ($ Id.VSub_DollarName '$repo')
                    )
                  } {(output)}
                )
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:ret)
                      op: assign_op.Equal
                      rhs: {($ Id.VSub_QMark '$?')}
                      spids: [451]
                    )
                  ]
                )
              ]
            )
            (C {(chmod)} {(Id.Lit_Other '+') (x)} 
              {(DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') (/repo.git))}
            )
            (command.Subshell
              command_list: 
                (command.CommandList
                  children: [
                    (command.ControlFlow
                      token: (Token id:Id.ControlFlow_Exit val:exit span_id:467)
                      arg_word: {($ Id.VSub_DollarName '$ret')}
                    )
                  ]
                )
            )
          ]
        )
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:msg)
          op: assign_op.Equal
          rhs: {(DQ ('access denied or repository not exported'))}
          spids: [475]
        )
      ]
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'clone non-existent' span_id:483))} 
      {(DQ ("test_remote_error    '") ($ Id.VSub_DollarName '$msg') ("' clone nowhere.git    "))}
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'push disabled' span_id:495))} 
      {(DQ ("test_remote_error    '") ($ Id.VSub_DollarName '$msg') ("' push  repo.git master"))}
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'read access denied' span_id:507))} 
      {(DQ ("test_remote_error -x '") ($ Id.VSub_DollarName '$msg') ("' fetch repo.git       "))}
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'not exported' span_id:519))} 
      {(DQ ("test_remote_error -n '") ($ Id.VSub_DollarName '$msg') ("' fetch repo.git       "))}
    )
    (C {(stop_git_daemon)})
    (C {(start_git_daemon)} {(--informative-errors)})
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'clone non-existent' span_id:539))} 
      {(DQ ("test_remote_error    'no such repository'      clone nowhere.git    "))}
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'push disabled' span_id:549))} 
      {(DQ ("test_remote_error    'service not enabled'     push  repo.git master"))}
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'read access denied' span_id:559))} 
      {(DQ ("test_remote_error -x 'no such repository'      fetch repo.git       "))}
    )
    (C {(test_expect_success)} {(SQ (Token id:Id.Lit_Chars val:'not exported' span_id:569))} 
      {(DQ ("test_remote_error -n 'repository not exported' fetch repo.git       "))}
    )
    (C {(stop_git_daemon)})
    (C {(start_git_daemon)} 
      {(--interpolated-path) (Id.Lit_Equals '=') 
        (DQ ($ Id.VSub_DollarName '$GIT_DAEMON_DOCUMENT_ROOT_PATH') ('/%H%D'))
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'access repo via interpolated hostname' span_id:592))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:596) 
          (Token
            id: Id.Lit_Chars
            val: '\trepo="$GIT_DAEMON_DOCUMENT_ROOT_PATH/localhost/interp.git" &&\n'
            span_id: 597
          ) (Token id:Id.Lit_Chars val:'\tgit init --bare "$repo" &&\n' span_id:598) 
          (Token id:Id.Lit_Chars val:'\tgit push "$repo" HEAD &&\n' span_id:599) (Token id:Id.Lit_Chars val:'\t>"$repo"/git-daemon-export-ok &&\n' span_id:600) 
          (Token id:Id.Lit_Chars val:'\trm -rf tmp.git &&\n' span_id:601) (Token id:Id.Lit_Chars val:'\tGIT_OVERRIDE_VIRTUAL_HOST=localhost \\\n' span_id:602) 
          (Token
            id: Id.Lit_Chars
            val: '\t\tgit clone --bare "$GIT_DAEMON_URL/interp.git" tmp.git &&\n'
            span_id: 603
          ) (Token id:Id.Lit_Chars val:'\trm -rf tmp.git &&\n' span_id:604) 
          (Token
            id: Id.Lit_Chars
            val: '\tGIT_OVERRIDE_VIRTUAL_HOST=LOCALHOST \\\n'
            span_id: 605
          ) (Token id:Id.Lit_Chars val:'\t\tgit clone --bare "$GIT_DAEMON_URL/interp.git" tmp.git\n' span_id:606)
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ (Token id:Id.Lit_Chars val:'hostname cannot break out of directory' span_id:613))} 
      {
        (SQ (Token id:Id.Lit_Chars val:'\n' span_id:617) 
          (Token id:Id.Lit_Chars val:'\trm -rf tmp.git &&\n' span_id:618) (Token id:Id.Lit_Chars val:'\trepo="$GIT_DAEMON_DOCUMENT_ROOT_PATH/../escape.git" &&\n' span_id:619) 
          (Token id:Id.Lit_Chars val:'\tgit init --bare "$repo" &&\n' span_id:620) (Token id:Id.Lit_Chars val:'\tgit push "$repo" HEAD &&\n' span_id:621) 
          (Token id:Id.Lit_Chars val:'\t>"$repo"/git-daemon-export-ok &&\n' span_id:622) (Token id:Id.Lit_Chars val:'\ttest_must_fail \\\n' span_id:623) 
          (Token
            id: Id.Lit_Chars
            val: '\t\tenv GIT_OVERRIDE_VIRTUAL_HOST=.. \\\n'
            span_id: 624
          ) (Token id:Id.Lit_Chars val:'\t\tgit clone --bare "$GIT_DAEMON_URL/escape.git" tmp.git\n' span_id:625)
        )
      }
    )
    (C {(stop_git_daemon)})
    (C {(test_done)})
  ]
)