(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test disabling of git-over-http in clone/fetch">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY][LIT_CHARS /lib-proto-disable.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 "create git-accessible repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tbare=\"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\tgit --bare init \"$bare\" &&\n"> <LIT_CHARS "\tgit push \"$bare\" HEAD &&\n"> <LIT_CHARS "\tgit -C \"$bare\" config http.receivepack true\n">]})
  (Com {[LIT_CHARS test_proto]} {[DQ [LIT_CHARS "smart http"]]} {[LIT_CHARS http]} {[DQ [VarSub HTTPD_URL][LIT_CHARS /smart/repo.git]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "curl redirects respect whitelist">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail env GIT_ALLOW_PROTOCOL=http:https \\\n"> <LIT_CHARS "\t\tgit clone \"$HTTPD_URL/ftp-redir/repo.git\" 2>stderr &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\ttest_i18ngrep \"ftp.*disabled\" stderr ||\n"> <LIT_CHARS "\t\ttest_i18ngrep \"your curl version is too old\"\n"> <LIT_CHARS "\t}\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "curl limits redirects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone \"$HTTPD_URL/loop-redir/smart/repo.git\"\n">]})
  (Com {[LIT_CHARS stop_httpd]})
  (Com {[LIT_CHARS test_done]})
)