(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "gitweb as standalone script (http status tests).\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 returns the expected HTTP status\n"> <LIT_CHARS "code and message.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./gitweb-lib.sh]}  )
  (AndOr OP_AND_IF
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -MHTTP] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS Date]} {[LIT_CHARS -e]} {[LIT_CHARS 0]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
      (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
      >
    )
    (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS DATE_PARSER]}    )
  )
  (AndOr OP_AND_IF
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -MTime] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS ParseDate]} {[LIT_CHARS -e]} {[LIT_CHARS 0]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
      (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
      >
    )
    (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS DATE_PARSER]}    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\ttest_commit 'SnapshotTests' 'i can has snapshot'\n"]]}  )
  (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{'snapshot'}{'override'} = 0;\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: tgz only default format enabled">]} {[SQ <LIT_CHARS "gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=tgz\" &&\n"> <LIT_CHARS "    grep \"Status: 200 OK\" gitweb.output &&\n"> <LIT_CHARS "    gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=tbz2\" &&\n"> <LIT_CHARS "    grep \"403 - Unsupported snapshot format\" gitweb.output &&\n"> <LIT_CHARS "    gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=txz\" &&\n"> <LIT_CHARS "    grep \"403 - Snapshot format not allowed\" gitweb.output &&\n"> <LIT_CHARS "    gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=zip\" &&\n"> <LIT_CHARS "    grep \"403 - Unsupported snapshot format\" gitweb.output">]}  )
  (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{'snapshot'}{'default'} = ['tgz','tbz2','txz','zip'];\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: all enabled in default, use default disabled value">]} {[SQ <LIT_CHARS "gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=tgz\" &&\n"> <LIT_CHARS "    grep \"Status: 200 OK\" gitweb.output &&\n"> <LIT_CHARS "    gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=tbz2\" &&\n"> <LIT_CHARS "    grep \"Status: 200 OK\" gitweb.output &&\n"> <LIT_CHARS "    gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=txz\" &&\n"> <LIT_CHARS "    grep \"403 - Snapshot format not allowed\" gitweb.output &&\n"> <LIT_CHARS "    gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=zip\" &&\n"> <LIT_CHARS "    grep \"Status: 200 OK\" gitweb.output">]}  )
  (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 "$known_snapshot_formats{'zip'}{'disabled'} = 1;\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: zip explicitly disabled">]} {[SQ <LIT_CHARS "gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=zip\" &&\n"> <LIT_CHARS "    grep \"403 - Snapshot format not allowed\" gitweb.output">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.output">]}  )
  (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 "$known_snapshot_formats{'tgz'}{'disabled'} = 0;\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: tgz explicitly enabled">]} {[SQ <LIT_CHARS "gitweb_run \"p=.git;a=snapshot;h=HEAD;sf=tgz\" &&\n"> <LIT_CHARS "    grep \"Status: 200 OK\" gitweb.output">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: good tree-ish id">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=master;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.output\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: bad tree-ish id">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=frizzumFrazzum;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"404 - Object does not exist\" gitweb.output\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.output">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: bad tree-ish id (tagged object)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo object > tag-object &&\n"> <LIT_CHARS "\tgit add tag-object &&\n"> <LIT_CHARS "\ttest_tick && git commit -m \"Object to be tagged\" &&\n"> <LIT_CHARS "\tgit tag tagged-object `git hash-object tag-object` &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=tagged-object;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"400 - Object is not a tree-ish\" gitweb.output\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.output">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: good object id">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tID=`git rev-parse --verify HEAD` &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=$ID;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.output\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "snapshots: bad object id">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=abcdef01234;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"404 - Object does not exist\" gitweb.output\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.output">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: feed last-modified">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=atom;h=master\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.headers &&\n"> <LIT_CHARS "\tgrep \"Last-modified: Thu, 7 Apr 2005 22:14:13 +0000\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: feed if-modified-since (modified)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\texport HTTP_IF_MODIFIED_SINCE=\"Wed, 6 Apr 2005 22:14:13 +0000\" &&\n"> <LIT_CHARS "\ttest_when_finished \"unset HTTP_IF_MODIFIED_SINCE\" &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=atom;h=master\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: feed if-modified-since (unmodified)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\texport HTTP_IF_MODIFIED_SINCE=\"Thu, 7 Apr 2005 22:14:13 +0000\" &&\n"> <LIT_CHARS "\ttest_when_finished \"unset HTTP_IF_MODIFIED_SINCE\" &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=atom;h=master\" &&\n"> <LIT_CHARS "\tgrep \"Status: 304 Not Modified\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: snapshot last-modified">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=master;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.headers &&\n"> <LIT_CHARS "\tgrep \"Last-modified: Thu, 7 Apr 2005 22:14:13 +0000\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: snapshot if-modified-since (modified)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\texport HTTP_IF_MODIFIED_SINCE=\"Wed, 6 Apr 2005 22:14:13 +0000\" &&\n"> <LIT_CHARS "\ttest_when_finished \"unset HTTP_IF_MODIFIED_SINCE\" &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=master;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: snapshot if-modified-since (unmodified)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\texport HTTP_IF_MODIFIED_SINCE=\"Thu, 7 Apr 2005 22:14:13 +0000\" &&\n"> <LIT_CHARS "\ttest_when_finished \"unset HTTP_IF_MODIFIED_SINCE\" &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=master;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"Status: 304 Not Modified\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DATE_PARSER]} {[SQ <LIT_CHARS "modification: tree snapshot">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tID=`git rev-parse --verify HEAD^{tree}` &&\n"> <LIT_CHARS "\texport HTTP_IF_MODIFIED_SINCE=\"Wed, 6 Apr 2005 22:14:13 +0000\" &&\n"> <LIT_CHARS "\ttest_when_finished \"unset HTTP_IF_MODIFIED_SINCE\" &&\n"> <LIT_CHARS "\tgitweb_run \"p=.git;a=snapshot;h=$ID;sf=tgz\" &&\n"> <LIT_CHARS "\tgrep \"Status: 200 OK\" gitweb.headers &&\n"> <LIT_CHARS "\t! grep -i \"last-modified\" gitweb.headers\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (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 "our $maxload = -1;\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "load checking: load too high (default action)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"p=.git\" &&\n"> <LIT_CHARS "\tgrep \"Status: 503 Service Unavailable\" gitweb.headers &&\n"> <LIT_CHARS "\tgrep \"503 - The load average on the server is too high\" gitweb.body\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (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 "our $maxload = undef;\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "invalid arguments: invalid regexp (in project search)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgitweb_run \"a=project_list;s=*\\.git;sr=1\" &&\n"> <LIT_CHARS "\tgrep \"Status: 400\" gitweb.headers &&\n"> <LIT_CHARS "\tgrep \"400 - Invalid.*regexp\" gitweb.body\n">]}  )
  (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.headers">]}  )
  (Com {[LIT_CHARS test_done]}  )
)