t/daemon-gitweb-via-perms.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 # this is hardcoded; change it if needed
   6 use lib "src/lib";
   7 use Gitolite::Test;
   8
   9 # basic tests
  10 # ----------------------------------------------------------------------
  11
  12 try "plan 24";
  13 try "DEF POK = !/DENIED/; !/failed to push/";
  14
  15 confreset;confadd '
  16
  17 @leads = u1 u2
  18 @devs = u1 u2 u3 u4
  19
  20 @gbar = bar/CREATOR/..*
  21 repo    @gbar
  22     C               =   @leads
  23     RW+             =   @leads
  24     RW              =   WRITERS @devs
  25     R               =   READERS
  26 ';
  27
  28 try "ADMIN_PUSH set1; !/FATAL/" or die text();
  29
  30 my $rb = `gitolite query-rc -n GL_REPO_BASE`;
  31 chdir($rb);
  32 my $h = $ENV{HOME};
  33
  34 try "
  35     glt ls-remote u1 file:///bar/u1/try1
  36     /Initialized empty Git repository in .*/bar/u1/try1.git/
  37
  38     find . -name git-daemon-export-ok
  39     /testing.git/git-daemon-export-ok/
  40
  41     cat $h/projects.list
  42     /testing.git/
  43
  44     glt ls-remote u1 file:///bar/u1/try2
  45     /Initialized empty Git repository in .*/bar/u1/try2.git/
  46
  47     find $h/repositories -name git-daemon-export-ok
  48     /testing.git/git-daemon-export-ok/
  49
  50     cat $h/projects.list
  51     /testing.git/
  52
  53     glt perms u1 bar/u1/try1 + READERS daemon
  54     !/./
  55
  56     glt perms u1 bar/u1/try1 -l
  57     /READERS daemon/
  58
  59     find $h/repositories -name git-daemon-export-ok
  60     /repositories/testing.git/git-daemon-export-ok/
  61     /repositories/bar/u1/try1.git/git-daemon-export-ok/
  62
  63     cat $h/projects.list
  64     /testing.git/
  65
  66     glt perms u1 bar/u1/try2 + READERS gitweb
  67
  68     glt perms u1 bar/u1/try2 -l
  69     /READERS gitweb/
  70
  71     find $h/repositories -name git-daemon-export-ok
  72     /testing.git/git-daemon-export-ok/
  73     /bar/u1/try1.git/git-daemon-export-ok/
  74
  75     cat $h/projects.list
  76     /bar/u1/try2.git/
  77     /testing.git/
  78 ";