(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]}  )
  (If
    (Com {[LIT_CHARS test]} {[LIT_CHARS -n]} {[DQ [VarSub NO_CURL]]}    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping test, git built without http support">]})])
      (Com {[LIT_CHARS test_done]}      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LIB_HTTPD_PORT', {[VarSub LIB_HTTPD_PORT test_op=VS_TEST_HYPHEN {[LIT_CHARS "'5550'"]}]})])
  (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 "\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 -a .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 user@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 &&\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=user@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 user@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 user@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 "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 "did not use upload-pack service">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgrep ">] [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 stop_httpd]}  )
  (Com {[LIT_CHARS test_done]}  )
)