d3610191d3
I was very, very, tempted to say "sorry; not supported". Sadly, prudence won over juvenile glee... PS: DOS == dominant operating system
78 lines
2.3 KiB
Perl
Executable file
78 lines
2.3 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;
|
|
|
|
# %HOSTNAME tests
|
|
# ----------------------------------------------------------------------
|
|
|
|
try "plan 60";
|
|
|
|
try "pwd";
|
|
my $od = text();
|
|
chomp($od);
|
|
|
|
# without setting HOSTNAME in rc
|
|
confreset;confadd '
|
|
|
|
repo foo
|
|
RW dev/%HOSTNAME = u1
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; /FATAL/";
|
|
try "/bad ref 'refs/heads/dev/%HOSTNAME'/";
|
|
|
|
# make a hostname entry
|
|
$ENV{G3T_RC} = "$ENV{HOME}/g3trc";
|
|
put "$ENV{G3T_RC}", "\$rc{HOSTNAME} = 'frodo';\n";
|
|
|
|
confreset;confadd '
|
|
|
|
repo bar
|
|
RW %HOSTNAME_baz = u1
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; /FATAL/";
|
|
try "/bad ref 'refs/heads/%HOSTNAME_baz'/";
|
|
|
|
confreset;confadd '
|
|
|
|
repo bar
|
|
RW %HOSTNAME/ = u1
|
|
RW %HOSTNAME-baz = u1
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/";
|
|
try "
|
|
gitolite access bar u2 R any; /R any bar u2 DENIED by fallthru/
|
|
gitolite access bar u2 W any; /W any bar u2 DENIED by fallthru/
|
|
gitolite access bar u1 W any; !/DENIED/; /refs/heads/frodo/; !/baz/
|
|
gitolite access bar u1 R any; !/DENIED/; /refs/heads/frodo/; !/baz/
|
|
gitolite access bar u1 R refs/heads/frodo; /R refs/heads/frodo bar u1 DENIED by fallthru/
|
|
gitolite access bar u1 W refs/heads/frodo; /W refs/heads/frodo bar u1 DENIED by fallthru/
|
|
gitolite access bar u1 R refs/heads/frodo/1; !/DENIED/; /refs/heads/frodo/; !/baz/
|
|
gitolite access bar u1 W refs/heads/frodo/1; !/DENIED/; /refs/heads/frodo/; !/baz/
|
|
gitolite access bar u1 R refs/heads/sam; /R refs/heads/sam bar u1 DENIED by fallthru/
|
|
gitolite access bar u1 W refs/heads/sam; /W refs/heads/sam bar u1 DENIED by fallthru/
|
|
gitolite access bar u1 R refs/heads/master; /R refs/heads/master bar u1 DENIED by fallthru/
|
|
gitolite access bar u1 W refs/heads/master; /W refs/heads/master bar u1 DENIED by fallthru/
|
|
|
|
gitolite access bar u1 R refs/heads/frodo-baz; !/DENIED/; /refs/heads/frodo-baz/
|
|
gitolite access bar u1 W refs/heads/frodo-baz; !/DENIED/; /refs/heads/frodo-baz/
|
|
";
|
|
|
|
confreset;confadd '
|
|
|
|
repo foo-%HOSTNAME
|
|
RW = u1
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/";
|
|
try "
|
|
gitolite list-repos; /foo-frodo/
|
|
gitolite list-phy-repos; /foo-frodo/
|
|
";
|