t/t9502-gitweb-standalone-parse-output.sh

   1 #!/bin/sh
   2 #
   3 # Copyright (c) 2009 Mark Rada
   4 #
   5
   6 test_description='gitweb as standalone script (parsing script output).
   7
   8 This test runs gitweb (git web interface) as a CGI script from the
   9 commandline, and checks that it produces the correct output, either
  10 in the HTTP header or the actual script output.'
  11
  12
  13 . ./gitweb-lib.sh
  14
  15 # ----------------------------------------------------------------------
  16 # snapshot file name and prefix
  17
  18 cat >>gitweb_config.perl <<\EOF
  19
  20 $known_snapshot_formats{'tar'} = {
  21         'display' => 'tar',
  22         'type' => 'application/x-tar',
  23         'suffix' => '.tar',
  24         'format' => 'tar',
  25 };
  26
  27 $feature{'snapshot'}{'default'} = ['tar'];
  28 EOF
  29
  30 # Call check_snapshot with the arguments "<basename> [<prefix>]"
  31 #
  32 # This will check that gitweb HTTP header contains proposed filename
  33 # as <basename> with '.tar' suffix added, and that generated tarfile
  34 # (gitweb message body) has <prefix> as prefix for al files in tarfile
  35 #
  36 # <prefix> default to <basename>
  37 check_snapshot () {
  38         basename=$1
  39         prefix=${2:-"$1"}
  40         echo "basename=$basename"
  41         grep "filename=.*$basename.tar" gitweb.headers >/dev/null 2>&1 &&
  42         "$TAR" tf gitweb.body >file_list &&
  43         ! grep -v "^$prefix/" file_list
  44 }
  45
  46 test_expect_success setup '
  47         test_commit first foo &&
  48         git branch xx/test &&
  49         FULL_ID=$(git rev-parse --verify HEAD) &&
  50         SHORT_ID=$(git rev-parse --verify --short=7 HEAD)
  51 '
  52 test_debug '
  53         echo "FULL_ID  = $FULL_ID"
  54         echo "SHORT_ID = $SHORT_ID"
  55 '
  56
  57 test_expect_success 'snapshot: full sha1' '
  58         gitweb_run "p=.git;a=snapshot;h=$FULL_ID;sf=tar" &&
  59         check_snapshot ".git-$SHORT_ID"
  60 '
  61 test_debug 'cat gitweb.headers && cat file_list'
  62
  63 test_expect_success 'snapshot: shortened sha1' '
  64         gitweb_run "p=.git;a=snapshot;h=$SHORT_ID;sf=tar" &&
  65         check_snapshot ".git-$SHORT_ID"
  66 '
  67 test_debug 'cat gitweb.headers && cat file_list'
  68
  69 test_expect_success 'snapshot: almost full sha1' '
  70         ID=$(git rev-parse --short=30 HEAD) &&
  71         gitweb_run "p=.git;a=snapshot;h=$ID;sf=tar" &&
  72         check_snapshot ".git-$SHORT_ID"
  73 '
  74 test_debug 'cat gitweb.headers && cat file_list'
  75
  76 test_expect_success 'snapshot: HEAD' '
  77         gitweb_run "p=.git;a=snapshot;h=HEAD;sf=tar" &&
  78         check_snapshot ".git-HEAD-$SHORT_ID"
  79 '
  80 test_debug 'cat gitweb.headers && cat file_list'
  81
  82 test_expect_success 'snapshot: short branch name (master)' '
  83         gitweb_run "p=.git;a=snapshot;h=master;sf=tar" &&
  84         ID=$(git rev-parse --verify --short=7 master) &&
  85         check_snapshot ".git-master-$ID"
  86 '
  87 test_debug 'cat gitweb.headers && cat file_list'
  88
  89 test_expect_success 'snapshot: short tag name (first)' '
  90         gitweb_run "p=.git;a=snapshot;h=first;sf=tar" &&
  91         ID=$(git rev-parse --verify --short=7 first) &&
  92         check_snapshot ".git-first-$ID"
  93 '
  94 test_debug 'cat gitweb.headers && cat file_list'
  95
  96 test_expect_success 'snapshot: full branch name (refs/heads/master)' '
  97         gitweb_run "p=.git;a=snapshot;h=refs/heads/master;sf=tar" &&
  98         ID=$(git rev-parse --verify --short=7 master) &&
  99         check_snapshot ".git-master-$ID"
 100 '
 101 test_debug 'cat gitweb.headers && cat file_list'
 102
 103 test_expect_success 'snapshot: full tag name (refs/tags/first)' '
 104         gitweb_run "p=.git;a=snapshot;h=refs/tags/first;sf=tar" &&
 105         check_snapshot ".git-first"
 106 '
 107 test_debug 'cat gitweb.headers && cat file_list'
 108
 109 test_expect_success 'snapshot: hierarchical branch name (xx/test)' '
 110         gitweb_run "p=.git;a=snapshot;h=xx/test;sf=tar" &&
 111         ! grep "filename=.*/" gitweb.headers
 112 '
 113 test_debug 'cat gitweb.headers'
 114
 115 # ----------------------------------------------------------------------
 116 # forks of projects
 117
 118 test_expect_success 'forks: setup' '
 119         git init --bare foo.git &&
 120         echo file > file &&
 121         git --git-dir=foo.git --work-tree=. add file &&
 122         git --git-dir=foo.git --work-tree=. commit -m "Initial commit" &&
 123         echo "foo" > foo.git/description &&
 124         git clone --bare foo.git foo.bar.git &&
 125         echo "foo.bar" > foo.bar.git/description &&
 126         git clone --bare foo.git foo_baz.git &&
 127         echo "foo_baz" > foo_baz.git/description &&
 128         rm -fr   foo &&
 129         mkdir -p foo &&
 130         (
 131                 cd foo &&
 132                 git clone --shared --bare ../foo.git foo-forked.git &&
 133                 echo "fork of foo" > foo-forked.git/description
 134         )
 135 '
 136
 137 test_expect_success 'forks: not skipped unless "forks" feature enabled' '
 138         gitweb_run "a=project_list" &&
 139         grep -q ">\\.git<"               gitweb.body &&
 140         grep -q ">foo\\.git<"            gitweb.body &&
 141         grep -q ">foo_baz\\.git<"        gitweb.body &&
 142         grep -q ">foo\\.bar\\.git<"      gitweb.body &&
 143         grep -q ">foo_baz\\.git<"        gitweb.body &&
 144         grep -q ">foo/foo-forked\\.git<" gitweb.body &&
 145         grep -q ">fork of .*<"           gitweb.body
 146 '
 147
 148 cat >>gitweb_config.perl <<\EOF &&
 149 $feature{'forks'}{'default'} = [1];
 150 EOF
 151
 152 test_expect_success 'forks: forks skipped if "forks" feature enabled' '
 153         gitweb_run "a=project_list" &&
 154         grep -q ">\\.git<"               gitweb.body &&
 155         grep -q ">foo\\.git<"            gitweb.body &&
 156         grep -q ">foo_baz\\.git<"        gitweb.body &&
 157         grep -q ">foo\\.bar\\.git<"      gitweb.body &&
 158         grep -q ">foo_baz\\.git<"        gitweb.body &&
 159         grep -v ">foo/foo-forked\\.git<" gitweb.body &&
 160         grep -v ">fork of .*<"           gitweb.body
 161 '
 162
 163 test_expect_success 'forks: "forks" action for forked repository' '
 164         gitweb_run "p=foo.git;a=forks" &&
 165         grep -q ">foo/foo-forked\\.git<" gitweb.body &&
 166         grep -q ">fork of foo<"          gitweb.body
 167 '
 168
 169 test_expect_success 'forks: can access forked repository' '
 170         gitweb_run "p=foo/foo-forked.git;a=summary" &&
 171         grep -q "200 OK"        gitweb.headers &&
 172         grep -q ">fork of foo<" gitweb.body
 173 '
 174
 175 test_expect_success 'forks: project_index lists all projects (incl. forks)' '
 176         cat >expected <<-\EOF
 177         .git
 178         foo.bar.git
 179         foo.git
 180         foo/foo-forked.git
 181         foo_baz.git
 182         EOF
 183         gitweb_run "a=project_index" &&
 184         sed -e "s/ .*//" <gitweb.body | sort >actual &&
 185         test_cmp expected actual
 186 '
 187
 188
 189 test_done