(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "gitweb as standalone script (parsing script output).\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test runs gitweb (git web interface) as a CGI script from the\n"> <LIT_CHARS "commandline, and checks that it produces the correct output, either\n"> <LIT_CHARS "in the HTTP header or the actual script output.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./gitweb-lib.sh]}  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS gitweb_config.perl]} <REDIR_DGREAT ">>"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "\n"] [LIT_CHARS "$known_snapshot_formats{'tar'} = {\n"] [LIT_CHARS "\t'display' => 'tar',\n"] [LIT_CHARS "\t'type' => 'application/x-tar',\n"] [LIT_CHARS "\t'suffix' => '.tar',\n"] [LIT_CHARS "\t'format' => 'tar',\n"] [LIT_CHARS "};\n"] [LIT_CHARS "\n"] [LIT_CHARS "$feature{'snapshot'}{'default'} = ['tar'];\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (FunctionDef check_snapshot []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('basename', {[VarSub 1]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('prefix', {[VarSub 2 test_op=VS_TEST_COLON_HYPHEN {[DQ [VarSub 1]]}]})])
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "basename="][VarSub basename]]}      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS "filename=.*"][VarSub basename][LIT_CHARS .tar]]} {[LIT_CHARS gitweb.headers]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
          (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
          >
        )
        (AndOr OP_AND_IF
          (Com {[DQ [VarSub TAR]]} {[LIT_CHARS tf]} {[LIT_CHARS gitweb.body]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS file_list]} <REDIR_GREAT ">"> 1),
            >
          )
          (Pipeline!
            (Com {[LIT_CHARS grep]} {[LIT_CHARS -v]} {[DQ [LIT_CHARS "^"][VarSub prefix][LIT_CHARS /]]} {[LIT_CHARS file_list]}            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit first foo &&\n"> <LIT_CHARS "\tgit branch xx/test &&\n"> <LIT_CHARS "\tFULL_ID=$(git rev-parse --verify HEAD) &&\n"> <LIT_CHARS "\tSHORT_ID=$(git rev-parse --verify --short=7 HEAD)\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"FULL_ID  = $FULL_ID\"\n"> <LIT_CHARS "\techo \"SHORT_ID = $SHORT_ID\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: full sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=$FULL_ID;sf=tar\" &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-$SHORT_ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: shortened sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=$SHORT_ID;sf=tar\" &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-$SHORT_ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: almost full sha1">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tID=$(git rev-parse --short=30 HEAD) &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=$ID;sf=tar\" &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-$SHORT_ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=HEAD;sf=tar\" &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-HEAD-$SHORT_ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: short branch name (master)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=master;sf=tar\" &&\n"> <LIT_CHARS "\tID=$(git rev-parse --verify --short=7 master) &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-master-$ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: short tag name (first)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=first;sf=tar\" &&\n"> <LIT_CHARS "\tID=$(git rev-parse --verify --short=7 first) &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-first-$ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: full branch name (refs/heads/master)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=refs/heads/master;sf=tar\" &&\n"> <LIT_CHARS "\tID=$(git rev-parse --verify --short=7 master) &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-master-$ID\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: full tag name (refs/tags/first)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=refs/tags/first;sf=tar\" &&\n"> <LIT_CHARS "\tcheck_snapshot \".git-first\"\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers && cat file_list">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshot: hierarchical branch name (xx/test)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=xx/test;sf=tar\" &&\n"> <LIT_CHARS "\t! grep \"filename=.*/\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forks: setup">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init --bare foo.git &&\n"> <LIT_CHARS "\techo file > file &&\n"> <LIT_CHARS "\tgit --git-dir=foo.git --work-tree=. add file &&\n"> <LIT_CHARS "\tgit --git-dir=foo.git --work-tree=. commit -m \"Initial commit\" &&\n"> <LIT_CHARS "\techo \"foo\" > foo.git/description &&\n"> <LIT_CHARS "\tgit clone --bare foo.git foo.bar.git &&\n"> <LIT_CHARS "\techo \"foo.bar\" > foo.bar.git/description &&\n"> <LIT_CHARS "\tgit clone --bare foo.git foo_baz.git &&\n"> <LIT_CHARS "\techo \"foo_baz\" > foo_baz.git/description &&\n"> <LIT_CHARS "\trm -fr   foo &&\n"> <LIT_CHARS "\tmkdir -p foo &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd foo &&\n"> <LIT_CHARS "\t\tgit clone --shared --bare ../foo.git foo-forked.git &&\n"> <LIT_CHARS "\t\techo \"fork of foo\" > foo-forked.git/description\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forks: not skipped unless \"forks\" feature enabled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"a=project_list\" &&\n"> <LIT_CHARS "\tgrep -q \">\\\\.git<\"               gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo\\\\.git<\"            gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo_baz\\\\.git<\"        gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo\\\\.bar\\\\.git<\"      gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo_baz\\\\.git<\"        gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo/foo-forked\\\\.git<\" gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">fork of .*<\"           gitweb.body\n">]}  )
  (AndOr OP_AND_IF
    (Com {[LIT_CHARS cat]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS gitweb_config.perl]} <REDIR_DGREAT ">>"> 1),
      (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "$feature{'forks'}{'default'} = [1];\n"]} <REDIR_DLESS "<<"> 0),
      >
    )
    (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forks: forks skipped if \"forks\" feature enabled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"a=project_list\" &&\n"> <LIT_CHARS "\tgrep -q \">\\\\.git<\"               gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo\\\\.git<\"            gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo_baz\\\\.git<\"        gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo\\\\.bar\\\\.git<\"      gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">foo_baz\\\\.git<\"        gitweb.body &&\n"> <LIT_CHARS "\tgrep -v \">foo/foo-forked\\\\.git<\" gitweb.body &&\n"> <LIT_CHARS "\tgrep -v \">fork of .*<\"           gitweb.body\n">]}    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forks: \"forks\" action for forked repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=foo.git;a=forks\" &&\n"> <LIT_CHARS "\tgrep -q \">foo/foo-forked\\\\.git<\" gitweb.body &&\n"> <LIT_CHARS "\tgrep -q \">fork of foo<\"          gitweb.body\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forks: can access forked repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=foo/foo-forked.git;a=summary\" &&\n"> <LIT_CHARS "\tgrep -q \"200 OK\"        gitweb.headers &&\n"> <LIT_CHARS "\tgrep -q \">fork of foo<\" gitweb.body\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forks: project_index lists all projects (incl. forks)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\t.git\n"> <LIT_CHARS "\tfoo.bar.git\n"> <LIT_CHARS "\tfoo.git\n"> <LIT_CHARS "\tfoo/foo-forked.git\n"> <LIT_CHARS "\tfoo_baz.git\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgitweb_run \"a=project_index\" &&\n"> <LIT_CHARS "\tsed -e \"s/ .*//\" <gitweb.body | sort >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)