(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test smart fetching over http via http-backend">]})])
  (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 "'5551'"]}]})])
  (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 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 http-accessible bare repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\t(cd \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\t git --bare init\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 setup_askpass_helper]}  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS exp]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "> GET /smart/repo.git/info/refs?service=git-upload-pack HTTP/1.1\n"][LIT_CHARS "> Accept: */*\n"][LIT_CHARS "> Pragma: no-cache\n"][LIT_CHARS "< HTTP/1.1 200 OK\n"][LIT_CHARS "< Pragma: no-cache\n"][LIT_CHARS "< Cache-Control: no-cache, max-age=0, must-revalidate\n"][LIT_CHARS "< Content-Type: application/x-git-upload-pack-advertisement\n"][LIT_CHARS "> POST /smart/repo.git/git-upload-pack HTTP/1.1\n"][LIT_CHARS "> Accept-Encoding: deflate, gzip\n"][LIT_CHARS "> Content-Type: application/x-git-upload-pack-request\n"][LIT_CHARS "> Accept: application/x-git-upload-pack-result\n"][LIT_CHARS "> Content-Length: xxx\n"][LIT_CHARS "< HTTP/1.1 200 OK\n"][LIT_CHARS "< Pragma: no-cache\n"][LIT_CHARS "< Cache-Control: no-cache, max-age=0, must-revalidate\n"][LIT_CHARS "< Content-Type: application/x-git-upload-pack-result\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone http repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tGIT_CURL_VERBOSE=1 git clone --quiet $HTTPD_URL/smart/repo.git clone 2>err &&\n"> <LIT_CHARS "\ttest_cmp file clone/file &&\n"> <LIT_CHARS "\ttr ">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS "\\015">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS " Q <err |\n"> <LIT_CHARS "\tsed -e \"\n"> <LIT_CHARS "\t\ts/Q\\$//\n"> <LIT_CHARS "\t\t/^[*] /d\n"> <LIT_CHARS "\t\t/^$/d\n"> <LIT_CHARS "\t\t/^< $/d\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t/^[^><]/{\n"> <LIT_CHARS "\t\t\ts/^/> /\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t/^> User-Agent: /d\n"> <LIT_CHARS "\t\t/^> Host: /d\n"> <LIT_CHARS "\t\t/^> POST /,$ {\n"> <LIT_CHARS "\t\t\t/^> Accept: [*]\\\\/[*]/d\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\ts/^> Content-Length: .*/> Content-Length: xxx/\n"> <LIT_CHARS "\t\t/^> 00..want /d\n"> <LIT_CHARS "\t\t/^> 00.*done/d\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t/^< Server: /d\n"> <LIT_CHARS "\t\t/^< Expires: /d\n"> <LIT_CHARS "\t\t/^< Date: /d\n"> <LIT_CHARS "\t\t/^< Content-Length: /d\n"> <LIT_CHARS "\t\t/^< Transfer-Encoding: /d\n"> <LIT_CHARS "\t\" >act &&\n"> <LIT_CHARS "\ttest_cmp exp act\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 cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS exp]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "GET  /smart/repo.git/info/refs?service=git-upload-pack HTTP/1.1 200\n"][LIT_CHARS "POST /smart/repo.git/git-upload-pack HTTP/1.1 200\n"][LIT_CHARS "GET  /smart/repo.git/info/refs?service=git-upload-pack HTTP/1.1 200\n"][LIT_CHARS "POST /smart/repo.git/git-upload-pack HTTP/1.1 200\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "used upload-pack service">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsed -e \"\n"> <LIT_CHARS "\t\ts/^.* \\\"//\n"> <LIT_CHARS "\t\ts/\\\"//\n"> <LIT_CHARS "\t\ts/ [1-9][0-9]*\\$//\n"> <LIT_CHARS "\t\ts/^GET /GET  /\n"> <LIT_CHARS "\t\" >act <\"$HTTPD_ROOT_PATH\"/access.log &&\n"> <LIT_CHARS "\ttest_cmp exp act\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow redirects (301)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone $HTTPD_URL/smart-redir-perm/repo.git --quiet repo-p\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "follow redirects (302)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone $HTTPD_URL/smart-redir-temp/repo.git --quiet repo-t\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from password-protected repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo two >expect &&\n"> <LIT_CHARS "\tset_askpass user@host &&\n"> <LIT_CHARS "\tgit clone --bare \"$HTTPD_URL/auth/smart/repo.git\" smart-auth &&\n"> <LIT_CHARS "\texpect_askpass both user@host &&\n"> <LIT_CHARS "\tgit --git-dir=smart-auth log -1 --format=%s >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from auth-only-for-push repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo two >expect &&\n"> <LIT_CHARS "\tset_askpass wrong &&\n"> <LIT_CHARS "\tgit clone --bare \"$HTTPD_URL/auth-push/smart/repo.git\" smart-noauth &&\n"> <LIT_CHARS "\texpect_askpass none &&\n"> <LIT_CHARS "\tgit --git-dir=smart-noauth log -1 --format=%s >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (AndOr OP_AND_IF
    (Com {[LIT_CHARS test]} {[LIT_CHARS -n]} {[DQ [VarSub GIT_TEST_LONG]]}    )
    (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS EXPENSIVE]}    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS EXPENSIVE]} {[SQ <LIT_CHARS "create 50,000 tags in the repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\tcd \"$HTTPD_DOCUMENT_ROOT_PATH/repo.git\" &&\n"> <LIT_CHARS "\tfor i in `test_seq 50000`\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo \"commit refs/heads/too-many-refs\"\n"> <LIT_CHARS "\t\techo \"mark :$i\"\n"> <LIT_CHARS "\t\techo \"committer git <git@example.com> $i +0000\"\n"> <LIT_CHARS "\t\techo \"data 0\"\n"> <LIT_CHARS "\t\techo \"M 644 inline bla.txt\"\n"> <LIT_CHARS "\t\techo \"data 4\"\n"> <LIT_CHARS "\t\techo \"bla\"\n"> <LIT_CHARS "\t\t# make every commit dangling by always\n"> <LIT_CHARS "\t\t# rewinding the branch after each commit\n"> <LIT_CHARS "\t\techo \"reset refs/heads/too-many-refs\"\n"> <LIT_CHARS "\t\techo \"from :1\"\n"> <LIT_CHARS "\tdone | git fast-import --export-marks=marks &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# now assign tags to all the dangling commits we created above\n"> <LIT_CHARS "\ttag=$(\"$PERL_PATH\" -e \"print \\\"bla\\\" x 30\") &&\n"> <LIT_CHARS "\tsed -e \"s/^:\\(.\\+\\) \\(.\\+\\)$/\\2 refs\\/tags\\/$tag-\\1/\" <marks >>packed-refs\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS EXPENSIVE]} {[SQ <LIT_CHARS "clone the 50,000 tag repo to check OS command line overflow">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone $HTTPD_URL/smart/repo.git too-many-refs 2>err &&\n"> <LIT_CHARS "\ttest_line_count = 0 err\n">]}  )
  (Com {[LIT_CHARS stop_httpd]}  )
  (Com {[LIT_CHARS test_done]}  )
)