d3610191d3
I was very, very, tempted to say "sorry; not supported". Sadly, prudence won over juvenile glee... PS: DOS == dominant operating system
98 lines
2 KiB
Perl
Executable file
98 lines
2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
# this is hardcoded; change it if needed
|
|
use lib "src/lib";
|
|
use Gitolite::Test;
|
|
|
|
# uhh, seems to be another rule sequence test
|
|
# ----------------------------------------------------------------------
|
|
|
|
try "plan 40";
|
|
|
|
confreset;confadd '
|
|
@staff = u1 u2 u3
|
|
@gfoo = foo/CREATOR/..*
|
|
repo @gfoo
|
|
C = u1
|
|
RW+ = CREATOR
|
|
RW = WRITERS
|
|
- = @staff
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/" or die text();
|
|
|
|
try "
|
|
cd ..
|
|
glt clone u1 file:///foo/u1/bar; ok
|
|
/Initialized empty Git repository in .*/foo/u1/bar.git//
|
|
|
|
cd bar
|
|
tc p-906
|
|
glt push u1 origin master
|
|
/To file:///foo/u1/bar/
|
|
/\\[new branch\\] master -> master/
|
|
echo WRITERS u2 | glt perms u1 foo/u1/bar
|
|
glt perms u1 -l foo/u1/bar
|
|
/WRITERS u2/
|
|
# expand
|
|
glt info u2
|
|
/R W *\tfoo/u1/bar/
|
|
/R W *\ttesting/
|
|
|
|
# push
|
|
cd ..
|
|
glt clone u2 file:///foo/u1/bar u2bar
|
|
/Cloning into 'u2bar'.../
|
|
cd u2bar
|
|
tc p-222
|
|
glt push u2
|
|
/master -> master/
|
|
!/DENIED/
|
|
!/failed to push/
|
|
";
|
|
|
|
confreset;confadd '
|
|
@staff = u1 u2 u3
|
|
@gfoo = foo/CREATOR/.+
|
|
repo @gfoo
|
|
C = u1
|
|
RW+ = CREATOR
|
|
- = @staff
|
|
RW = WRITERS
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/" or die text();
|
|
|
|
try "
|
|
cd ..
|
|
rm -rf bar u2bar
|
|
glt clone u1 file:///foo/u1/bar; ok
|
|
/Initialized empty Git repository in .*/foo/u1/bar.git//
|
|
|
|
cd bar
|
|
tc p-906
|
|
glt push u1 origin master
|
|
/To file:///foo/u1/bar/
|
|
/\\[new branch\\] master -> master/
|
|
echo WRITERS u2 | glt perms u1 foo/u1/bar
|
|
glt perms u1 -l foo/u1/bar
|
|
/WRITERS u2/
|
|
# expand
|
|
glt info u2
|
|
/R W *\tfoo/u1/bar/
|
|
/R W *\ttesting/
|
|
|
|
# push
|
|
cd ..
|
|
glt clone u2 file:///foo/u1/bar u2bar
|
|
/Cloning into 'u2bar'.../
|
|
cd u2bar
|
|
tc p-222
|
|
glt push u2
|
|
!ok
|
|
reject
|
|
/W refs/heads/master foo/u1/bar u2 DENIED by refs/\\.\\*/
|
|
";
|