53 lines
1.7 KiB
Perl
53 lines
1.7 KiB
Perl
|
#!/usr/bin/perl
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
# this is hardcoded; change it if needed
|
||
|
use lib "src";
|
||
|
use Gitolite::Test;
|
||
|
|
||
|
try 'plan 35';
|
||
|
|
||
|
try "## info";
|
||
|
|
||
|
confreset;confadd '
|
||
|
repo t1
|
||
|
RW = u1
|
||
|
R = u2
|
||
|
repo t2
|
||
|
RW = u2
|
||
|
R = u1
|
||
|
repo t3
|
||
|
RW = u3
|
||
|
R = u4
|
||
|
';
|
||
|
|
||
|
try "ADMIN_PUSH info; !/FATAL/" or die text();
|
||
|
try "
|
||
|
/Initialized.*empty.*t1.git/
|
||
|
/Initialized.*empty.*t2.git/
|
||
|
/Initialized.*empty.*t3.git/
|
||
|
";
|
||
|
try "
|
||
|
glt info u1; ok; gsh
|
||
|
/R W *\tt1/
|
||
|
/R *\tt2/
|
||
|
!/t3/
|
||
|
/ R W *\ttesting/
|
||
|
glt info u2; ok; gsh
|
||
|
/R *\tt1/
|
||
|
/R W *\tt2/
|
||
|
!/t3/
|
||
|
/ R W *\ttesting/
|
||
|
glt info u3; ok; gsh
|
||
|
/R W *\tt3/
|
||
|
!/t1/
|
||
|
!/t2/
|
||
|
/ R W *\ttesting/
|
||
|
glt info u4; ok; gsh
|
||
|
/R *\tt3/
|
||
|
!/t1/
|
||
|
!/t2/
|
||
|
/ R W *\ttesting/
|
||
|
" or die;
|