gitolite/t/daemon-gitweb-via-perms.t
2012-03-24 10:30:45 +05:30

79 lines
1.7 KiB
Perl
Executable file

#!/usr/bin/perl
use strict;
use warnings;
# this is hardcoded; change it if needed
use lib "src";
use Gitolite::Test;
# basic tests
# ----------------------------------------------------------------------
try "plan 24";
try "DEF POK = !/DENIED/; !/failed to push/";
confreset;confadd '
@leads = u1 u2
@devs = u1 u2 u3 u4
@gbar = bar/CREATOR/..*
repo @gbar
C = @leads
RW+ = @leads
RW = WRITERS @devs
R = READERS
';
try "ADMIN_PUSH set1; !/FATAL/" or die text();
my $rb = `gitolite query-rc -n GL_REPO_BASE`;
chdir($rb);
my $h = $ENV{HOME};
try "
glt ls-remote u1 file:///bar/u1/try1
/Initialized empty Git repository in .*/bar/u1/try1.git/
find . -name git-daemon-export-ok
/testing.git/git-daemon-export-ok/
cat $h/projects.list
/testing.git/
glt ls-remote u1 file:///bar/u1/try2
/Initialized empty Git repository in .*/bar/u1/try2.git/
find $h/repositories -name git-daemon-export-ok
/testing.git/git-daemon-export-ok/
cat $h/projects.list
/testing.git/
glt perms u1 bar/u1/try1 + READERS daemon
!/./
glt perms u1 -l bar/u1/try1
/READERS daemon/
find $h/repositories -name git-daemon-export-ok
/repositories/testing.git/git-daemon-export-ok/
/repositories/bar/u1/try1.git/git-daemon-export-ok/
cat $h/projects.list
/testing.git/
glt perms u1 bar/u1/try2 + READERS gitweb
glt perms u1 -l bar/u1/try2
/READERS gitweb/
find $h/repositories -name git-daemon-export-ok
/testing.git/git-daemon-export-ok/
/bar/u1/try1.git/git-daemon-export-ok/
cat $h/projects.list
/bar/u1/try2.git/
/testing.git/
";