t/t9501-gitweb-standalone-http-status.sh

   1 #!/bin/sh
   2 #
   3 # Copyright (c) 2009 Mark Rada
   4 #
   5
   6 test_description='gitweb as standalone script (http status tests).
   7
   8 This test runs gitweb (git web interface) as a CGI script from the
   9 commandline, and checks that it returns the expected HTTP status
  10 code and message.'
  11
  12
  13 GIT_TEST_DEFAULT_INITIAL_BRANCH_NAME=main
  14 export GIT_TEST_DEFAULT_INITIAL_BRANCH_NAME
  15
  16 . ./lib-gitweb.sh
  17
  18 #
  19 # Gitweb only provides the functionality tested by the 'modification times'
  20 # tests if it can access a date parser from one of these modules:
  21 #
  22 perl -MHTTP::Date -e 0 >/dev/null 2>&1 && test_set_prereq DATE_PARSER
  23 perl -MTime::ParseDate -e 0 >/dev/null 2>&1 && test_set_prereq DATE_PARSER
  24
  25 # ----------------------------------------------------------------------
  26 # snapshot settings
  27
  28 test_expect_success 'setup' "
  29         test_commit 'SnapshotTests' 'i can has snapshot'
  30 "
  31
  32
  33 cat >>gitweb_config.perl <<\EOF
  34 $feature{'snapshot'}{'override'} = 0;
  35 EOF
  36
  37 test_expect_success \
  38     'snapshots: tgz only default format enabled' \
  39     'gitweb_run "p=.git;a=snapshot;h=HEAD;sf=tgz" &&
  40     grep "Status: 200 OK" gitweb.output &&
  41     gitweb_run "p=.git;a=snapshot;h=HEAD;sf=tbz2" &&
  42     grep "403 - Unsupported snapshot format" gitweb.output &&
  43     gitweb_run "p=.git;a=snapshot;h=HEAD;sf=txz" &&
  44     grep "403 - Snapshot format not allowed" gitweb.output &&
  45     gitweb_run "p=.git;a=snapshot;h=HEAD;sf=zip" &&
  46     grep "403 - Unsupported snapshot format" gitweb.output'
  47
  48
  49 cat >>gitweb_config.perl <<\EOF
  50 $feature{'snapshot'}{'default'} = ['tgz','tbz2','txz','zip'];
  51 EOF
  52
  53 test_expect_success \
  54     'snapshots: all enabled in default, use default disabled value' \
  55     'gitweb_run "p=.git;a=snapshot;h=HEAD;sf=tgz" &&
  56     grep "Status: 200 OK" gitweb.output &&
  57     gitweb_run "p=.git;a=snapshot;h=HEAD;sf=tbz2" &&
  58     grep "Status: 200 OK" gitweb.output &&
  59     gitweb_run "p=.git;a=snapshot;h=HEAD;sf=txz" &&
  60     grep "403 - Snapshot format not allowed" gitweb.output &&
  61     gitweb_run "p=.git;a=snapshot;h=HEAD;sf=zip" &&
  62     grep "Status: 200 OK" gitweb.output'
  63
  64
  65 cat >>gitweb_config.perl <<\EOF
  66 $known_snapshot_formats{'zip'}{'disabled'} = 1;
  67 EOF
  68
  69 test_expect_success \
  70     'snapshots: zip explicitly disabled' \
  71     'gitweb_run "p=.git;a=snapshot;h=HEAD;sf=zip" &&
  72     grep "403 - Snapshot format not allowed" gitweb.output'
  73 test_debug 'cat gitweb.output'
  74
  75
  76 cat >>gitweb_config.perl <<\EOF
  77 $known_snapshot_formats{'tgz'}{'disabled'} = 0;
  78 EOF
  79
  80 test_expect_success \
  81     'snapshots: tgz explicitly enabled' \
  82     'gitweb_run "p=.git;a=snapshot;h=HEAD;sf=tgz" &&
  83     grep "Status: 200 OK" gitweb.output'
  84 test_debug 'cat gitweb.headers'
  85
  86
  87 # ----------------------------------------------------------------------
  88 # snapshot hash ids
  89
  90 test_expect_success 'snapshots: good tree-ish id' '
  91         gitweb_run "p=.git;a=snapshot;h=main;sf=tgz" &&
  92         grep "Status: 200 OK" gitweb.output
  93 '
  94 test_debug 'cat gitweb.headers'
  95
  96 test_expect_success 'snapshots: bad tree-ish id' '
  97         gitweb_run "p=.git;a=snapshot;h=frizzumFrazzum;sf=tgz" &&
  98         grep "404 - Object does not exist" gitweb.output
  99 '
 100 test_debug 'cat gitweb.output'
 101
 102 test_expect_success 'snapshots: bad tree-ish id (tagged object)' '
 103         echo object > tag-object &&
 104         git add tag-object &&
 105         test_tick && git commit -m "Object to be tagged" &&
 106         git tag tagged-object $(git hash-object tag-object) &&
 107         gitweb_run "p=.git;a=snapshot;h=tagged-object;sf=tgz" &&
 108         grep "400 - Object is not a tree-ish" gitweb.output
 109 '
 110 test_debug 'cat gitweb.output'
 111
 112 test_expect_success 'snapshots: good object id' '
 113         ID=$(git rev-parse --verify HEAD) &&
 114         gitweb_run "p=.git;a=snapshot;h=$ID;sf=tgz" &&
 115         grep "Status: 200 OK" gitweb.output
 116 '
 117 test_debug 'cat gitweb.headers'
 118
 119 test_expect_success 'snapshots: bad object id' '
 120         gitweb_run "p=.git;a=snapshot;h=abcdef01234;sf=tgz" &&
 121         grep "404 - Object does not exist" gitweb.output
 122 '
 123 test_debug 'cat gitweb.output'
 124
 125 # ----------------------------------------------------------------------
 126 # modification times (Last-Modified and If-Modified-Since)
 127
 128 test_expect_success DATE_PARSER 'modification: feed last-modified' '
 129         gitweb_run "p=.git;a=atom;h=main" &&
 130         grep "Status: 200 OK" gitweb.headers &&
 131         grep "Last-modified: Thu, 7 Apr 2005 22:14:13 +0000" gitweb.headers
 132 '
 133 test_debug 'cat gitweb.headers'
 134
 135 test_expect_success DATE_PARSER 'modification: feed if-modified-since (modified)' '
 136         HTTP_IF_MODIFIED_SINCE="Wed, 6 Apr 2005 22:14:13 +0000" &&
 137         export HTTP_IF_MODIFIED_SINCE &&
 138         test_when_finished "unset HTTP_IF_MODIFIED_SINCE" &&
 139         gitweb_run "p=.git;a=atom;h=main" &&
 140         grep "Status: 200 OK" gitweb.headers
 141 '
 142 test_debug 'cat gitweb.headers'
 143
 144 test_expect_success DATE_PARSER 'modification: feed if-modified-since (unmodified)' '
 145         HTTP_IF_MODIFIED_SINCE="Thu, 7 Apr 2005 22:14:13 +0000" &&
 146         export HTTP_IF_MODIFIED_SINCE &&
 147         test_when_finished "unset HTTP_IF_MODIFIED_SINCE" &&
 148         gitweb_run "p=.git;a=atom;h=main" &&
 149         grep "Status: 304 Not Modified" gitweb.headers
 150 '
 151 test_debug 'cat gitweb.headers'
 152
 153 test_expect_success DATE_PARSER 'modification: snapshot last-modified' '
 154         gitweb_run "p=.git;a=snapshot;h=main;sf=tgz" &&
 155         grep "Status: 200 OK" gitweb.headers &&
 156         grep "Last-modified: Thu, 7 Apr 2005 22:14:13 +0000" gitweb.headers
 157 '
 158 test_debug 'cat gitweb.headers'
 159
 160 test_expect_success DATE_PARSER 'modification: snapshot if-modified-since (modified)' '
 161         HTTP_IF_MODIFIED_SINCE="Wed, 6 Apr 2005 22:14:13 +0000" &&
 162         export HTTP_IF_MODIFIED_SINCE &&
 163         test_when_finished "unset HTTP_IF_MODIFIED_SINCE" &&
 164         gitweb_run "p=.git;a=snapshot;h=main;sf=tgz" &&
 165         grep "Status: 200 OK" gitweb.headers
 166 '
 167 test_debug 'cat gitweb.headers'
 168
 169 test_expect_success DATE_PARSER 'modification: snapshot if-modified-since (unmodified)' '
 170         HTTP_IF_MODIFIED_SINCE="Thu, 7 Apr 2005 22:14:13 +0000" &&
 171         export HTTP_IF_MODIFIED_SINCE &&
 172         test_when_finished "unset HTTP_IF_MODIFIED_SINCE" &&
 173         gitweb_run "p=.git;a=snapshot;h=main;sf=tgz" &&
 174         grep "Status: 304 Not Modified" gitweb.headers
 175 '
 176 test_debug 'cat gitweb.headers'
 177
 178 test_expect_success DATE_PARSER 'modification: tree snapshot' '
 179         ID=$(git rev-parse --verify HEAD^{tree}) &&
 180         HTTP_IF_MODIFIED_SINCE="Wed, 6 Apr 2005 22:14:13 +0000" &&
 181         export HTTP_IF_MODIFIED_SINCE &&
 182         test_when_finished "unset HTTP_IF_MODIFIED_SINCE" &&
 183         gitweb_run "p=.git;a=snapshot;h=$ID;sf=tgz" &&
 184         grep "Status: 200 OK" gitweb.headers &&
 185         ! grep -i "last-modified" gitweb.headers
 186 '
 187 test_debug 'cat gitweb.headers'
 188
 189 # ----------------------------------------------------------------------
 190 # load checking
 191
 192 # always hit the load limit
 193 cat >>gitweb_config.perl <<\EOF
 194 our $maxload = -1;
 195 EOF
 196
 197 test_expect_success 'load checking: load too high (default action)' '
 198         gitweb_run "p=.git" &&
 199         grep "Status: 503 Service Unavailable" gitweb.headers &&
 200         grep "503 - The load average on the server is too high" gitweb.body
 201 '
 202 test_debug 'cat gitweb.headers'
 203
 204 # turn off load checking
 205 cat >>gitweb_config.perl <<\EOF
 206 our $maxload = undef;
 207 EOF
 208
 209
 210 # ----------------------------------------------------------------------
 211 # invalid arguments
 212
 213 test_expect_success 'invalid arguments: invalid regexp (in project search)' '
 214         gitweb_run "a=project_list;s=*\.git;sr=1" &&
 215         grep "Status: 400" gitweb.headers &&
 216         grep "400 - Invalid.*regexp" gitweb.body
 217 '
 218 test_debug 'cat gitweb.headers'
 219
 220 test_done