125 lines
3.5 KiB
Perl
Executable File
125 lines
3.5 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;
|
|
use Cwd;
|
|
my $workdir = getcwd();
|
|
|
|
# 'gitolite writable' command
|
|
# ----------------------------------------------------------------------
|
|
|
|
my $sf = ".gitolite.down";
|
|
|
|
try "plan 66";
|
|
try "DEF POK = !/DENIED/; !/failed to push/";
|
|
|
|
# delete the down file
|
|
unlink "$ENV{HOME}/$sf";
|
|
|
|
# add foo, bar/..* repos to the config and push
|
|
confreset;confadd '
|
|
repo foo
|
|
RW = u1
|
|
R = u2
|
|
|
|
repo bar/..*
|
|
C = u2 u4 u6
|
|
RW = CREATOR u3
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/" or die text();
|
|
|
|
try "
|
|
# clone and push to foo
|
|
CLONE u1 foo; ok
|
|
cd foo; ok
|
|
tc f1; ok
|
|
PUSH u1 master; ok; /new branch/
|
|
|
|
# auto-clone and push to bar/u2
|
|
cd ..
|
|
CLONE u2 bar/u2; ok; /appear to have cloned an empty/
|
|
/Initialized empty/
|
|
cd u2;
|
|
tc f2
|
|
PUSH u2 master; ok;
|
|
|
|
# disable site with some message
|
|
gitolite writable \@all off testing site-wide disable; ok
|
|
|
|
# try push foo and see fail + message
|
|
cd ../foo; ok
|
|
tc f3; ok
|
|
PUSH u1; !ok; /testing site-wide disable/
|
|
# try push bar/u2 and ...
|
|
cd ../u2; ok
|
|
tc f4; ok
|
|
PUSH u2; !ok; /testing site-wide disable/
|
|
|
|
# try auto-create push bar/u4 and this works!!
|
|
cd ..
|
|
CLONE u4 bar/u4; ok; /appear to have cloned an empty/
|
|
/Initialized empty/
|
|
!/testing site-wide disable/
|
|
cd u4; ok
|
|
|
|
# enable site
|
|
gitolite writable \@all on; ok
|
|
|
|
# try same 3 again
|
|
|
|
# try push foo and see fail + message
|
|
cd ../foo; ok
|
|
tc g3; ok
|
|
PUSH u1; ok; /master -> master/
|
|
# try push bar/u2 and ...
|
|
cd ../u2; ok
|
|
tc g4; ok
|
|
PUSH u2; ok; /master -> master/
|
|
|
|
# try auto-create push bar/u4 and this works!!
|
|
cd ..
|
|
CLONE u6 bar/u6; ok; /appear to have cloned an empty/
|
|
/Initialized empty/
|
|
!/testing site-wide disable/
|
|
cd u6; ok
|
|
|
|
# disable just foo
|
|
gitolite writable foo off foo down
|
|
|
|
# try push foo and see the message
|
|
cd ../foo; ok
|
|
tc g3; ok
|
|
PUSH u1; !ok; /foo down/
|
|
!/testing site-wide disable/
|
|
# push bar/u2 ok
|
|
cd ../u2
|
|
tc g4
|
|
PUSH u2; ok; /master -> master/
|
|
|
|
# enable foo, disable bar/u2
|
|
gitolite writable foo on
|
|
gitolite writable bar/u2 off the bar is closed
|
|
|
|
# try both
|
|
cd ../foo; ok
|
|
tc h3; ok
|
|
PUSH u1; ok; /master -> master/
|
|
# push bar/u2 ok
|
|
cd ../u2
|
|
tc h4
|
|
PUSH u2; !ok; /the bar is closed/
|
|
|
|
ssh u3 writable bar/u2 on; !ok; /you are not authorized/
|
|
ssh u3 writable \@all on; !ok; /you are not authorized/
|
|
|
|
ssh u2 writable bar/u2 on; ok
|
|
ssh u2 writable \@all on; !ok; /you are not authorized/
|
|
|
|
ssh admin writable \@all on;
|
|
ok
|
|
";
|