t/deny-rules.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 # deny rules
  10 # ----------------------------------------------------------------------
  11
  12 try "plan 11";
  13
  14 confreset;confadd '
  15     # start with...
  16
  17     repo gitolite-admin
  18         -   =   gitweb daemon
  19     option deny-rules = 1
  20
  21     # main ruleset goes here
  22
  23     @ga = a
  24     @gb = b
  25     @gc = c
  26
  27     # and end with
  28
  29     repo @ga
  30         RW  =   u1
  31         -   =   @all
  32     option deny-rules = 1
  33
  34     repo @gb
  35         RW  =   u2
  36         -   =   daemon
  37     option deny-rules = 1
  38
  39     repo @gc
  40         RW  =   u3
  41
  42     repo @all
  43         R   =   @all
  44
  45 ';
  46
  47 try "ADMIN_PUSH set1; !/FATAL/" or die text();
  48
  49 my $rb = `gitolite query-rc -n GL_REPO_BASE`;
  50 try "
  51     cat $ENV{HOME}/projects.list;                           ok
  52 ";
  53 cmp 'b.git
  54 c.git
  55 testing.git
  56 ';
  57
  58 try "
  59     cd ..
  60     cd ..
  61     echo $rb
  62     find $rb -name git-daemon-export-ok | sort
  63     perl s,$rb/,,g
  64 ";
  65 cmp 'c.git/git-daemon-export-ok
  66 testing.git/git-daemon-export-ok
  67 '