gitolite/t/info.t

56 lines
1.8 KiB
Perl
Raw Normal View History

2012-03-14 11:00:05 +01:00
#!/usr/bin/perl
use strict;
use warnings;
# this is hardcoded; change it if needed
use lib "src";
use Gitolite::Test;
try 'plan 39';
2012-03-14 11:00:05 +01:00
try "## info";
confreset;confadd '
2012-03-15 01:37:41 +01:00
@t1 = t1
repo @t1
2012-03-14 11:00:05 +01:00
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; /R W \t\@t1/
2012-03-15 01:37:41 +01:00
/R W \tt1/
/R \tt2/
2012-03-14 11:00:05 +01:00
!/t3/
2012-03-15 01:37:41 +01:00
/R W \ttesting/
glt info u2; ok; /R \t\@t1/
2012-03-15 01:37:41 +01:00
/R \tt1/
/R W \tt2/
2012-03-14 11:00:05 +01:00
!/t3/
2012-03-15 01:37:41 +01:00
/R W \ttesting/
glt info u3; ok; /R W \tt3/
2012-03-15 01:37:41 +01:00
!/\@t1/
!/t[12]/
/R W \ttesting/
glt info u4; ok; /R \tt3/
2012-03-15 01:37:41 +01:00
!/\@t1/
!/t[12]/
/R W \ttesting/
glt info u5; ok; !/t[123]/
2012-03-15 01:37:41 +01:00
/R W \ttesting/
glt info u6; ok; !/t[123]/
2012-03-15 01:37:41 +01:00
/R W \ttesting/
2012-03-14 11:00:05 +01:00
" or die;