]>
Commit | Line | Data |
---|---|---|
05526071 MR |
1 | #!/bin/sh |
2 | # | |
3 | # Copyright (c) 2007 Jakub Narebski | |
4 | # | |
5 | ||
6 | gitweb_init () { | |
7 | safe_pwd="$(perl -MPOSIX=getcwd -e 'print quotemeta(getcwd)')" | |
8 | cat >gitweb_config.perl <<EOF | |
9 | #!/usr/bin/perl | |
10 | ||
11 | # gitweb configuration for tests | |
12 | ||
13 | our \$version = 'current'; | |
14 | our \$GIT = 'git'; | |
15 | our \$projectroot = "$safe_pwd"; | |
16 | our \$project_maxdepth = 8; | |
17 | our \$home_link_str = 'projects'; | |
18 | our \$site_name = '[localhost]'; | |
19 | our \$site_header = ''; | |
20 | our \$site_footer = ''; | |
21 | our \$home_text = 'indextext.html'; | |
22 | our @stylesheets = ('file:///$TEST_DIRECTORY/../gitweb/gitweb.css'); | |
23 | our \$logo = 'file:///$TEST_DIRECTORY/../gitweb/git-logo.png'; | |
24 | our \$favicon = 'file:///$TEST_DIRECTORY/../gitweb/git-favicon.png'; | |
25 | our \$projects_list = ''; | |
26 | our \$export_ok = ''; | |
27 | our \$strict_export = ''; | |
b62a1a98 | 28 | our \$maxload = undef; |
05526071 MR |
29 | |
30 | EOF | |
31 | ||
32 | cat >.git/description <<EOF | |
33 | $0 test repository | |
34 | EOF | |
35 | } | |
36 | ||
37 | gitweb_run () { | |
38 | GATEWAY_INTERFACE='CGI/1.1' | |
39 | HTTP_ACCEPT='*/*' | |
40 | REQUEST_METHOD='GET' | |
41 | SCRIPT_NAME="$TEST_DIRECTORY/../gitweb/gitweb.perl" | |
42 | QUERY_STRING=""$1"" | |
43 | PATH_INFO=""$2"" | |
44 | export GATEWAY_INTERFACE HTTP_ACCEPT REQUEST_METHOD \ | |
45 | SCRIPT_NAME QUERY_STRING PATH_INFO | |
46 | ||
47 | GITWEB_CONFIG=$(pwd)/gitweb_config.perl | |
48 | export GITWEB_CONFIG | |
49 | ||
50 | # some of git commands write to STDERR on error, but this is not | |
51 | # written to web server logs, so we are not interested in that: | |
52 | # we are interested only in properly formatted errors/warnings | |
53 | rm -f gitweb.log && | |
54 | perl -- "$SCRIPT_NAME" \ | |
55 | >gitweb.output 2>gitweb.log && | |
f74a83fc BG |
56 | perl -w -e ' |
57 | open O, ">gitweb.headers"; | |
58 | while (<>) { | |
59 | print O; | |
60 | last if (/^\r$/ || /^$/); | |
61 | } | |
62 | open O, ">gitweb.body"; | |
63 | while (<>) { | |
64 | print O; | |
65 | } | |
66 | close O; | |
67 | ' gitweb.output && | |
05526071 MR |
68 | if grep '^[[]' gitweb.log >/dev/null 2>&1; then false; else true; fi |
69 | ||
70 | # gitweb.log is left for debugging | |
46e09f31 JN |
71 | # gitweb.output is used to parse HTTP output |
72 | # gitweb.headers contains only HTTP headers | |
73 | # gitweb.body contains body of message, without headers | |
05526071 MR |
74 | } |
75 | ||
76 | . ./test-lib.sh | |
77 | ||
78 | if ! test_have_prereq PERL; then | |
79 | say 'skipping gitweb tests, perl not available' | |
80 | test_done | |
81 | fi | |
82 | ||
83 | perl -MEncode -e 'decode_utf8("", Encode::FB_CROAK)' >/dev/null 2>&1 || { | |
84 | say 'skipping gitweb tests, perl version is too old' | |
85 | test_done | |
86 | } | |
87 | ||
88 | gitweb_init |