gitolite/t/git-config.t

193 lines
3.8 KiB
Perl
Raw Permalink Normal View History

2012-03-19 11:45:21 +01:00
#!/usr/bin/perl
use strict;
use warnings;
# this is hardcoded; change it if needed
use lib "src/lib";
2012-03-19 11:45:21 +01:00
use Gitolite::Test;
# git config settings
# ----------------------------------------------------------------------
try "plan 57";
2012-03-19 11:45:21 +01:00
try "pwd";
my $od = text();
chomp($od);
my $t; # temp
# try an invalid config key
confreset;confadd '
repo @all
config foo.bar = dft
';
try "ADMIN_PUSH set1; /FATAL/" or die text();
try "
/git config \\'foo.bar\\' not allowed/
/check GIT_CONFIG_KEYS in the rc file/
";
2012-03-19 11:45:21 +01:00
# make foo.bar a valid gc key
$ENV{G3T_RC} = "$ENV{HOME}/g3trc";
put "$ENV{G3T_RC}", "\$rc{GIT_CONFIG_KEYS} = 'foo\.bar';\n";
confreset;confadd '
repo @all
config foo.bar = dft
repo gitolite-admin
RW+ = admin
config foo.bar =
repo testing
RW+ = @all
repo foo
RW = u1
config foo.bar = f1
repo frob
RW = u3
repo bar
RW = u2
config foo.bar = one
';
try "ADMIN_PUSH set1; !/FATAL/" or die text();
my $rb = `gitolite query-rc -n GL_REPO_BASE`;
try "
cd $rb; ok
egrep foo\\|bar *.git/config
2012-03-19 11:45:21 +01:00
";
$t = join("\n", sort (lines()));
cmp $t, 'bar.git/config: bar = one
bar.git/config: bare = true
2012-03-19 11:45:21 +01:00
bar.git/config:[foo]
foo.git/config: bar = f1
foo.git/config: bare = true
2012-03-19 11:45:21 +01:00
foo.git/config:[foo]
frob.git/config: bar = dft
frob.git/config: bare = true
frob.git/config:[foo]
gitolite-admin.git/config: bare = true
testing.git/config: bar = dft
testing.git/config: bare = true
testing.git/config:[foo]';
2012-03-19 11:45:21 +01:00
try "cd $od; ok";
confadd '
repo frob
RW = u3
config foo.bar = none
repo bar
RW = u2
config foo.bar = one
';
try "ADMIN_PUSH set1; !/FATAL/" or die text();
try "
cd $rb; ok
egrep foo\\|bar *.git/config
2012-03-19 11:45:21 +01:00
";
$t = join("\n", sort (lines()));
2012-03-19 11:45:21 +01:00
cmp $t, 'bar.git/config: bar = one
bar.git/config: bare = true
2012-03-19 11:45:21 +01:00
bar.git/config:[foo]
foo.git/config: bar = f1
foo.git/config: bare = true
2012-03-19 11:45:21 +01:00
foo.git/config:[foo]
frob.git/config: bar = none
frob.git/config: bare = true
2012-03-19 11:45:21 +01:00
frob.git/config:[foo]
gitolite-admin.git/config: bare = true
testing.git/config: bar = dft
testing.git/config: bare = true
testing.git/config:[foo]';
try "cd $od; ok";
confadd '
repo bar
RW = u2
config foo.bar =
';
try "ADMIN_PUSH set1; !/FATAL/" or die text();
try "
cd $rb; ok
egrep foo\\|bar *.git/config
";
$t = join("\n", sort (lines()));
cmp $t, 'bar.git/config: bare = true
bar.git/config:[foo]
foo.git/config: bar = f1
foo.git/config: bare = true
foo.git/config:[foo]
frob.git/config: bar = none
frob.git/config: bare = true
frob.git/config:[foo]
gitolite-admin.git/config: bare = true
testing.git/config: bar = dft
testing.git/config: bare = true
testing.git/config:[foo]';
try "cd $od; ok";
confreset;confadd '
repo @gr1
RW = u1
config foo.bar = f1
repo bar/CREATOR/[one].*
C = u2
RW = u2
config foo.bar = one
@gr1 = foo frob
';
try "ADMIN_PUSH set1; !/FATAL/" or die text();
try "
glt ls-remote u2 file:///bar/u2/one; ok; /Initialized empty/
glt ls-remote u2 file:///bar/u2/two; !ok; /DENIED by fallthru/
";
try "
cd $rb; ok
find . -name config | xargs egrep foo\\|bar
";
$t = join("\n", sort (lines()));
cmp $t, './bar/u2/one.git/config: bar = one
./bar/u2/one.git/config: bare = true
./bar/u2/one.git/config:[foo]
./foo.git/config: bar = f1
./foo.git/config: bare = true
./foo.git/config:[foo]
./frob.git/config: bar = f1
./frob.git/config: bare = true
./frob.git/config:[foo]
./gitolite-admin.git/config: bare = true
./testing.git/config: bar = dft
./testing.git/config: bare = true
./testing.git/config:[foo]';