(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test dumb fetching over http via static file">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-httpd.sh]})
  (Com {[LIT_CHARS start_httpd]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config push.default matching &&\n"> <LIT_CHARS "\techo content1 >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m one &&\n"> <LIT_CHARS "\techo content2 >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create http-accessible bare repository with loose objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R .git \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\t(cd \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\t git config core.bare true &&\n"> <LIT_CHARS "\t mkdir -p hooks &&\n"> <LIT_CHARS "\t echo \"exec git update-server-info\" >hooks/post-update &&\n"> <LIT_CHARS "\t chmod +x hooks/post-update &&\n"> <LIT_CHARS "\t hooks/post-update\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit remote add public \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\tgit push public master:master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone http repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone $HTTPD_URL/dumb/repo.git clone-tmpl &&\n"> <LIT_CHARS "\tcp -R clone-tmpl clone &&\n"> <LIT_CHARS "\ttest_cmp file clone/file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create password-protected repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p \"$HTTPD_DOCUMENT_ROOT_PATH/auth/dumb/\" &&\n"> <LIT_CHARS "\tcp -Rf \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" \\\n"> <LIT_CHARS "\t       \"$HTTPD_DOCUMENT_ROOT_PATH/auth/dumb/repo.git\"\n">]})
  (Com {[LIT_CHARS setup_askpass_helper]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cloning password-protected repository can fail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong &&\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/auth/dumb/repo.git\" clone-auth-fail &&\n"> <LIT_CHARS "\texpect_askpass both wrong\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http auth can use user/pass in URL">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong &&\n"> <LIT_CHARS "\tgit clone \"$HTTPD_URL_USER_PASS/auth/dumb/repo.git\" clone-auth-none &&\n"> <LIT_CHARS "\texpect_askpass none\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http auth can use just user in URL">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\tgit clone \"$HTTPD_URL_USER/auth/dumb/repo.git\" clone-auth-pass &&\n"> <LIT_CHARS "\texpect_askpass pass user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http auth can request both user and pass">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass user@host pass@host &&\n"> <LIT_CHARS "\tgit clone \"$HTTPD_URL/auth/dumb/repo.git\" clone-auth-both &&\n"> <LIT_CHARS "\texpect_askpass both user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http auth respects credential helper config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config_global credential.helper \"!f() {\n"> <LIT_CHARS "\t\tcat >/dev/null\n"> <LIT_CHARS "\t\techo username=user@host\n"> <LIT_CHARS "\t\techo password=pass@host\n"> <LIT_CHARS "\t}; f\" &&\n"> <LIT_CHARS "\tset_askpass wrong &&\n"> <LIT_CHARS "\tgit clone \"$HTTPD_URL/auth/dumb/repo.git\" clone-auth-helper &&\n"> <LIT_CHARS "\texpect_askpass none\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http auth can get username from config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config_global \"credential.$HTTPD_URL.username\" user@host &&\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\tgit clone \"$HTTPD_URL/auth/dumb/repo.git\" clone-auth-user &&\n"> <LIT_CHARS "\texpect_askpass pass user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "configured username does not override URL">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config_global \"credential.$HTTPD_URL.username\" wrong &&\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\tgit clone \"$HTTPD_URL_USER/auth/dumb/repo.git\" clone-auth-user2 &&\n"> <LIT_CHARS "\texpect_askpass pass user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "set up repo with http submodules">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init super &&\n"> <LIT_CHARS "\tset_askpass user@host pass@host &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd super &&\n"> <LIT_CHARS "\t\tgit submodule add \"$HTTPD_URL/auth/dumb/repo.git\" sub &&\n"> <LIT_CHARS "\t\tgit commit -m \"add submodule\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cmdline credential config passes to submodule via clone">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\ttest_must_fail git clone --recursive super super-clone &&\n"> <LIT_CHARS "\trm -rf super-clone &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\tgit -c \"credential.$HTTPD_URL.username=user@host\" \\\n"> <LIT_CHARS "\t\tclone --recursive super super-clone &&\n"> <LIT_CHARS "\texpect_askpass pass user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cmdline credential config passes submodule via fetch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\ttest_must_fail git -C super-clone fetch --recurse-submodules &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\tgit -C super-clone \\\n"> <LIT_CHARS "\t    -c \"credential.$HTTPD_URL.username=user@host\" \\\n"> <LIT_CHARS "\t    fetch --recurse-submodules &&\n"> <LIT_CHARS "\texpect_askpass pass user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cmdline credential config passes submodule update">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# advance the submodule HEAD so that a fetch is required\n"> <LIT_CHARS "\tgit commit --allow-empty -m foo &&\n"> <LIT_CHARS "\tgit push \"$HTTPD_DOCUMENT_ROOT_PATH/auth/dumb/repo.git\" HEAD &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit -C super-clone update-index --cacheinfo 160000,$sha1,sub &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\ttest_must_fail git -C super-clone submodule update &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tset_askpass wrong pass@host &&\n"> <LIT_CHARS "\tgit -C super-clone \\\n"> <LIT_CHARS "\t    -c \"credential.$HTTPD_URL.username=user@host\" \\\n"> <LIT_CHARS "\t    submodule update &&\n"> <LIT_CHARS "\texpect_askpass pass user@host\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch changes via http">]} {[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_success]} {[SQ <LIT_CHARS "fetch changes via manual http-fetch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R clone-tmpl clone2 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tHEAD=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\t(cd clone2 &&\n"> <LIT_CHARS "\t git http-fetch -a -w heads/master-new $HEAD $(git config remote.origin.url) &&\n"> <LIT_CHARS "\t git checkout master-new &&\n"> <LIT_CHARS "\t test $HEAD = $(git rev-parse --verify HEAD)) &&\n"> <LIT_CHARS "\ttest_cmp file clone2/file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http 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 origin -d &&\n"> <LIT_CHARS "\t git remote set-head origin -a &&\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 "fetch packed objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo.git \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_pack.git &&\n"> <LIT_CHARS "\t(cd \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_pack.git &&\n"> <LIT_CHARS "\t git --bare repack -a -d\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit clone $HTTPD_URL/dumb/repo_pack.git\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch notices corrupt pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp -R \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_pack.git \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_bad1.git &&\n"> <LIT_CHARS "\t(cd \"$HTTPD_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 $HTTPD_URL/dumb/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 \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_pack.git \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_bad2.git &&\n"> <LIT_CHARS "\t(cd \"$HTTPD_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 $HTTPD_URL/dumb/repo_bad2.git &&\n"> <LIT_CHARS "\t test 0 = $(ls objects/pack | wc -l)\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch can handle previously-fetched .idx files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout --orphan branch1 &&\n"> <LIT_CHARS "\techo base >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m base &&\n"> <LIT_CHARS "\tgit --bare init \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_packed_branches.git &&\n"> <LIT_CHARS "\tgit push \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_packed_branches.git branch1 &&\n"> <LIT_CHARS "\tgit --git-dir=\"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_packed_branches.git repack -d &&\n"> <LIT_CHARS "\tgit checkout -b branch2 branch1 &&\n"> <LIT_CHARS "\techo b2 >>file &&\n"> <LIT_CHARS "\tgit commit -a -m b2 &&\n"> <LIT_CHARS "\tgit push \"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_packed_branches.git branch2 &&\n"> <LIT_CHARS "\tgit --git-dir=\"$HTTPD_DOCUMENT_ROOT_PATH\"/repo_packed_branches.git repack -d &&\n"> <LIT_CHARS "\tgit --bare init clone_packed_branches.git &&\n"> <LIT_CHARS "\tgit --git-dir=clone_packed_branches.git fetch \"$HTTPD_URL\"/dumb/repo_packed_branches.git branch1:branch1 &&\n"> <LIT_CHARS "\tgit --git-dir=clone_packed_branches.git fetch \"$HTTPD_URL\"/dumb/repo_packed_branches.git branch2:branch2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "did not use upload-pack service">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail grep ">] [LIT_CHARS /git-upload-pack] [SQ <LIT_CHARS " <\"$HTTPD_ROOT_PATH\"/access.log >act &&\n"> <LIT_CHARS "\t: >exp &&\n"> <LIT_CHARS "\ttest_cmp exp act\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client shows text/plain errors">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/error/text\" 2>stderr &&\n"> <LIT_CHARS "\tgrep \"this is the error message\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client does not show html errors">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/error/html\" 2>stderr &&\n"> <LIT_CHARS "\t! grep \"this is the error message\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client shows text/plain with a charset">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/error/charset\" 2>stderr &&\n"> <LIT_CHARS "\tgrep \"this is the error message\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "http error messages are reencoded">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/error/utf16\" 2>stderr &&\n"> <LIT_CHARS "\tgrep \"this is the error message\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reencoding is robust to whitespace oddities">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/error/odd-spacing\" 2>stderr &&\n"> <LIT_CHARS "\tgrep \"this is the error message\" stderr\n">]})
  (FunctionDef check_language []
    (AndOr OP_AND_IF
      (Case to_match={[DQ [VarSub 2]]}, pat_word_list=[[{[SQ ]}], [{[LIT_OTHER "?"] [LIT_OTHER "*"]}]]
        (Com 
          <
          (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "=> Send header: Accept-Language: "][VarSub 1]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
          >
        )
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS ls-remote]} {[DQ [VarSub HTTPD_URL][LIT_CHARS /dumb/repo.git]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS output]} <REDIR_GREAT ">"> 1),
          (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
          >

                more_env=[('GIT_TRACE_CURL', {[LIT_CHARS true]}), ('LANGUAGE', {[VarSub 2]})]
        )
        (AndOr OP_AND_IF
          (Pipeline
            (Com {[LIT_CHARS tr]} {[LIT_CHARS -d]} {[SQ <LIT_CHARS "\\015">]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS output]} <REDIR_LESS "<"> 0),
              >
            )
            (Com {[LIT_CHARS sort]} {[LIT_CHARS -u]})
            (Com {[LIT_CHARS sed]} {[LIT_CHARS -ne]} {[SQ <LIT_CHARS "/^=> Send header: Accept-Language:/ p">]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
              >
            )
          )
          (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS actual]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client sends Accept-Language based on LANGUAGE">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_language \"ko-KR, *;q=0.9\" ko_KR.UTF-8">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client sends Accept-Language correctly with unordinary LANGUAGE">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_language \"ko-KR, *;q=0.9\" \"ko_KR:\" &&\n"> <LIT_CHARS "\tcheck_language \"ko-KR, en-US;q=0.9, *;q=0.8\" \"ko_KR::en_US\" &&\n"> <LIT_CHARS "\tcheck_language \"ko-KR, *;q=0.9\" \":::ko_KR\" &&\n"> <LIT_CHARS "\tcheck_language \"ko-KR, en-US;q=0.9, *;q=0.8\" \"ko_KR!!:en_US\" &&\n"> <LIT_CHARS "\tcheck_language \"ko-KR, ja-JP;q=0.9, *;q=0.8\" \"ko_KR en_US:ja_JP\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client sends Accept-Language with many preferred languages">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_language \"ko-KR, en-US;q=0.9, fr-CA;q=0.8, de;q=0.7, sr;q=0.6, \\\n"> <LIT_CHARS "ja;q=0.5, zh;q=0.4, sv;q=0.3, pt;q=0.2, *;q=0.1\" \\\n"> <LIT_CHARS "\t\tko_KR.EUC-KR:en_US.UTF-8:fr_CA:de.UTF-8@euro:sr@latin:ja:zh:sv:pt &&\n"> <LIT_CHARS "\tcheck_language \"ko-KR, en-US;q=0.99, fr-CA;q=0.98, de;q=0.97, sr;q=0.96, \\\n"> <LIT_CHARS "ja;q=0.95, zh;q=0.94, sv;q=0.93, pt;q=0.92, nb;q=0.91, *;q=0.90\" \\\n"> <LIT_CHARS "\t\tko_KR.EUC-KR:en_US.UTF-8:fr_CA:de.UTF-8@euro:sr@latin:ja:zh:sv:pt:nb\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git client does not send an empty Accept-Language">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tGIT_TRACE_CURL=true LANGUAGE= git ls-remote \"$HTTPD_URL/dumb/repo.git\" 2>stderr &&\n"> <LIT_CHARS "\t! grep \"^=> Send header: Accept-Language:\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "remote-http complains cleanly about malformed urls">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# do not actually issue \"list\" or other commands, as we do not\n"> <LIT_CHARS "\t# want to rely on what curl would actually do with such a broken\n"> <LIT_CHARS "\t# URL. This is just about making sure we do not segfault during\n"> <LIT_CHARS "\t# initialization.\n"> <LIT_CHARS "\ttest_must_fail git remote-http http::/example.com/repo.git\n">]})
  (Com {[LIT_CHARS stop_httpd]})
  (Com {[LIT_CHARS test_done]})
)