(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test fetching over git protocol">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LIB_GIT_DAEMON_PORT', {[VarSub LIB_GIT_DAEMON_PORT test_op=VS_TEST_HYPHEN {[LIT_CHARS 5570]}]})])
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-git-daemon.sh]}  )
  (Com {[LIT_CHARS start_git_daemon]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m one\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create git-accessible bare repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir \"$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\t(cd \"$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\t git --bare init &&\n"> <LIT_CHARS "\t : >git-daemon-export-ok\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit remote add public \"$GIT_DAEMON_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\tgit push public master:master\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone git repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone \"$GIT_DAEMON_URL/repo.git\" clone &&\n"> <LIT_CHARS "\ttest_cmp file clone/file\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch changes via git protocol">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit commit -a -m two &&\n"> <LIT_CHARS "\tgit push public &&\n"> <LIT_CHARS "\t(cd clone && git pull) &&\n"> <LIT_CHARS "\ttest_cmp file clone/file\n">]}  )
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "remote detects correct HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit push public master:other &&\n"> <LIT_CHARS "\t(cd clone &&\n"> <LIT_CHARS "\t git remote set-head -d origin &&\n"> <LIT_CHARS "\t git remote set-head -a origin &&\n"> <LIT_CHARS "\t git symbolic-ref refs/remotes/origin/HEAD > output &&\n"> <LIT_CHARS "\t echo refs/remotes/origin/master > expect &&\n"> <LIT_CHARS "\t test_cmp expect output\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare pack objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo.git \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_pack.git &&\n"> <LIT_CHARS "\t(cd \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_pack.git &&\n"> <LIT_CHARS "\t git --bare repack -a -d\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch notices corrupt pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_pack.git \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_bad1.git &&\n"> <LIT_CHARS "\t(cd \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_bad1.git &&\n"> <LIT_CHARS "\t p=`ls objects/pack/pack-*.pack` &&\n"> <LIT_CHARS "\t chmod u+w $p &&\n"> <LIT_CHARS "\t printf %0256d 0 | dd of=$p bs=256 count=1 seek=1 conv=notrunc\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tmkdir repo_bad1.git &&\n"> <LIT_CHARS "\t(cd repo_bad1.git &&\n"> <LIT_CHARS "\t git --bare init &&\n"> <LIT_CHARS "\t test_must_fail git --bare fetch \"$GIT_DAEMON_URL/repo_bad1.git\" &&\n"> <LIT_CHARS "\t test 0 = `ls objects/pack/pack-*.pack | wc -l`\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch notices corrupt idx">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_pack.git \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_bad2.git &&\n"> <LIT_CHARS "\t(cd \"$GIT_DAEMON_DOCUMENT_ROOT_PATH\"/repo_bad2.git &&\n"> <LIT_CHARS "\t p=`ls objects/pack/pack-*.idx` &&\n"> <LIT_CHARS "\t chmod u+w $p &&\n"> <LIT_CHARS "\t printf %0256d 0 | dd of=$p bs=256 count=1 seek=1 conv=notrunc\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tmkdir repo_bad2.git &&\n"> <LIT_CHARS "\t(cd repo_bad2.git &&\n"> <LIT_CHARS "\t git --bare init &&\n"> <LIT_CHARS "\t test_must_fail git --bare fetch \"$GIT_DAEMON_URL/repo_bad2.git\" &&\n"> <LIT_CHARS "\t test 0 = `ls objects/pack | wc -l`\n"> <LIT_CHARS "\t)\n">]}  )
  (FunctionDef test_remote_error []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('do_export', {[LIT_CHARS YesPlease]})])
      (While
        (Com {[LIT_CHARS test]} {[VarSub #]} {[LIT_CHARS -gt]} {[LIT_CHARS 0]}        )
        (Case to_match={[VarSub 1]}, pat_word_list=[[{[LIT_CHARS -x]}], [{[LIT_CHARS -n]}], [{[LIT_OTHER "*"]}]]
          (List
            (Com {[LIT_CHARS shift]}            )
            (Com {[LIT_CHARS chmod]} {[LIT_CHARS -x]} {[DQ [VarSub GIT_DAEMON_DOCUMENT_ROOT_PATH][LIT_CHARS /repo.git]]}            )
          )
          (List
            (Com {[LIT_CHARS shift]}            )
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('do_export', {[SQ ]})])
          )
          (Com {[LIT_CHARS break]}          )
        )
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('msg', {[VarSub 1]})])
      (Com {[LIT_CHARS shift]}      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('cmd', {[VarSub 1]})])
      (Com {[LIT_CHARS shift]}      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('repo', {[VarSub 1]})])
      (AndOr OP_OR_IF
        (Com {[LIT_CHARS shift]}        )
        (Com {[LIT_CHARS error]} {[DQ [LIT_CHARS "invalid number of arguments"]]}        )
      )
      (If
        (Com {[LIT_CHARS test]} {[LIT_CHARS -x]} {[DQ [VarSub GIT_DAEMON_DOCUMENT_ROOT_PATH][LIT_CHARS /][VarSub repo]]}        )
        (If
          (Com {[LIT_CHARS test]} {[LIT_CHARS -n]} {[DQ [VarSub do_export]]}          )
          (Com {[LIT_OTHER ":"]}
            <
            (FilenameRedirectNode filename={[DQ [VarSub GIT_DAEMON_DOCUMENT_ROOT_PATH][LIT_CHARS /][VarSub repo][LIT_CHARS /git-daemon-export-ok]]} <REDIR_GREAT ">"> 1),
            >
          )
          (ElseTrue)
          (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[DQ [VarSub GIT_DAEMON_DOCUMENT_ROOT_PATH][LIT_CHARS /][VarSub repo][LIT_CHARS /git-daemon-export-ok]]}          )
        )
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test_must_fail]} {[LIT_CHARS git]} {[DQ [VarSub cmd]]} {[DQ [VarSub GIT_DAEMON_URL][LIT_CHARS /][VarSub repo]]} {[DQ [VarSub @]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS output]} <REDIR_GREAT "2>"> 2),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "fatal: remote error: "][VarSub msg][LIT_CHARS ": /"][VarSub repo]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
            >
          )
          (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS output]}          )
        )
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ret', {[VarSub ?]})])
      (Com {[LIT_CHARS chmod]} {[LIT_OTHER "+"] [LIT_CHARS x]} {[DQ [VarSub GIT_DAEMON_DOCUMENT_ROOT_PATH][LIT_CHARS /repo.git]]}      )
      (Subshell
        (Com {[LIT_CHARS exit]} {[VarSub ret]}        )
      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('msg', {[DQ [LIT_CHARS "access denied or repository not exported"]]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone non-existent">]} {[DQ [LIT_CHARS "test_remote_error    '"][VarSub msg][LIT_CHARS "' clone nowhere.git    "]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push disabled">]} {[DQ [LIT_CHARS "test_remote_error    '"][VarSub msg][LIT_CHARS "' push  repo.git master"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read access denied">]} {[DQ [LIT_CHARS "test_remote_error -x '"][VarSub msg][LIT_CHARS "' fetch repo.git       "]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "not exported">]} {[DQ [LIT_CHARS "test_remote_error -n '"][VarSub msg][LIT_CHARS "' fetch repo.git       "]]}  )
  (Com {[LIT_CHARS stop_git_daemon]}  )
  (Com {[LIT_CHARS start_git_daemon]} {[LIT_CHARS --informative-errors]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone non-existent">]} {[DQ [LIT_CHARS "test_remote_error    'no such repository'      clone nowhere.git    "]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push disabled">]} {[DQ [LIT_CHARS "test_remote_error    'service not enabled'     push  repo.git master"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read access denied">]} {[DQ [LIT_CHARS "test_remote_error -x 'no such repository'      fetch repo.git       "]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "not exported">]} {[DQ [LIT_CHARS "test_remote_error -n 'repository not exported' fetch repo.git       "]]}  )
  (Com {[LIT_CHARS stop_git_daemon]}  )
  (Com {[LIT_CHARS test_done]}  )
)