t/t9503-gitweb-Mechanize.sh

   1 #!/bin/sh
   2 #
   3 # Copyright (c) 2008 Jakub Narebski
   4 # Copyright (c) 2008 Lea Wiemann
   5 #
   6
   7 # This test supports the --long-tests option.
   8
   9 # This test only runs on Perl 5.8 and later versions, since both
  10 # Gitweb and Test::WWW::Mechanize::CGI require Perl 5.8.
  11
  12 test_description='gitweb tests (using WWW::Mechanize)
  13
  14 This test uses Test::WWW::Mechanize::CGI to test gitweb.'
  15
  16 # helper functions
  17
  18 safe_chmod () {
  19         chmod "$1" "$2" &&
  20         if [ "$(git config --get core.filemode)" = false ]
  21         then
  22                 git update-index --chmod="$1" "$2"
  23         fi
  24 }
  25
  26 . ./test-lib.sh
  27
  28 # check if test can be run
  29 "$PERL_PATH" -e 'use 5.008' >/dev/null 2>&1 || {
  30         test_expect_success \
  31                 'skipping gitweb tests, Perl 5.8 or newer required' :
  32         test_done
  33         exit
  34 }
  35
  36 "$PERL_PATH" -MTest::WWW::Mechanize::CGI -e '' >/dev/null 2>&1 || {
  37         test_expect_success \
  38                 'skipping gitweb tests, Test::WWW::Mechanize::CGI not found' :
  39         test_done
  40         exit
  41 }
  42
  43 # set up test repository
  44 test_expect_success 'set up test repository' '
  45
  46         echo "Not an empty file." > file &&
  47         git add file &&
  48         test_tick && git commit -a -m "Initial commit." &&
  49         git branch b &&
  50
  51         echo "New file" > new_file &&
  52         git add new_file &&
  53         test_tick && git commit -a -m "File added." &&
  54
  55         safe_chmod +x new_file &&
  56         test_tick && git commit -a -m "Mode changed." &&
  57
  58         git mv new_file renamed_file &&
  59         test_tick && git commit -a -m "File renamed." &&
  60
  61         rm renamed_file &&
  62         ln -s file renamed_file &&
  63         test_tick && git commit -a -m "File to symlink." &&
  64         git tag with-symlink &&
  65
  66         git rm renamed_file &&
  67         rm -f renamed_file &&
  68         test_tick && git commit -a -m "File removed." &&
  69
  70         cp file file2 &&
  71         git add file2 &&
  72         test_tick && git commit -a -m "File copied." &&
  73
  74         echo "New line" >> file2 &&
  75         safe_chmod +x file2 &&
  76         test_tick && git commit -a -m "Mode change and modification." &&
  77
  78         mkdir dir1 &&
  79         echo "New file with a \"pickaxe test string\"" > dir1/file1 &&
  80         git add dir1/file1 &&
  81         test_tick && git commit -a -m "File added in subdirectory." &&
  82         git tag -m "creating a tag object" tag-object
  83
  84         git checkout b &&
  85         echo "Branch" >> b &&
  86         git add b &&
  87         test_tick && git commit -a -m "On branch" &&
  88         git checkout master &&
  89         test_tick && git merge b
  90 '
  91
  92 # set up empty repository
  93 # create this as a subdirectory of trash directory; not pretty, but simple
  94 test_expect_success 'set up empty repository' '
  95
  96         mkdir empty.git &&
  97         cd empty.git &&
  98         git init --bare &&
  99         cd ..
 100 '
 101
 102 # set up gitweb configuration
 103 safe_pwd="$("$PERL_PATH" -MPOSIX=getcwd -e 'print quotemeta(getcwd)')"
 104 large_cache_root="$TEST_DIRECTORY/t9503/large_cache.tmp"
 105 test_expect_success 'create file cache directory' \
 106         'mkdir -p "$large_cache_root"'
 107 cat >gitweb_config.perl <<EOF
 108 # gitweb configuration for tests
 109
 110 our \$version = "current";
 111 our \$GIT = "$GIT_EXEC_PATH/git";
 112 our \$projectroot = "$safe_pwd";
 113 our \$project_maxdepth = 8;
 114 our \$home_link_str = "projects";
 115 our \$site_name = "[localhost]";
 116 our \$site_header = "";
 117 our \$site_footer = "";
 118 our \$home_text = "indextext.html";
 119 our @stylesheets = ("file:///stylesheet");
 120 our \$logo = "file:///logo";
 121 our \$favicon = "file:///favicon";
 122 our \$projects_list = "";
 123 our \$export_ok = "";
 124 our \$strict_export = "";
 125 our %feature;
 126 \$feature{'blame'}{'default'} = [1];
 127
 128 our \$large_cache_root = "$large_cache_root";
 129 if (eval { require Cache::MemoryCache; 1 }) {
 130         our \$cache = Cache::MemoryCache->new;
 131 }
 132
 133
 134 1;
 135 __END__
 136 EOF
 137
 138 cat >.git/description <<EOF
 139 t9503-gitweb-Mechanize test repository
 140 EOF
 141
 142 GITWEB_CONFIG="$(pwd)/gitweb_config.perl"
 143 export GITWEB_CONFIG
 144
 145 # run tests
 146
 147 test_external \
 148         'test gitweb output' \
 149         "$PERL_PATH" "$TEST_DIRECTORY/t9503/test.pl"
 150
 151 test_expect_success 'remove file cache directory' \
 152         'rm -rf "$large_cache_root"'
 153
 154 test_done