gitolite/t/wild-2.t

129 lines
3.7 KiB
Perl
Raw Permalink Normal View History

2012-03-18 13:06:51 +01:00
#!/usr/bin/perl
use strict;
use warnings;
# this is hardcoded; change it if needed
use lib "src/lib";
2012-03-18 13:06:51 +01:00
use Gitolite::Test;
2012-03-19 11:33:59 +01:00
# wild repos - part 2
2012-03-18 13:06:51 +01:00
# ----------------------------------------------------------------------
2012-03-18 13:35:27 +01:00
try "plan 65";
2012-03-18 13:06:51 +01:00
confreset;confadd '
@prof = u1
@TAs = u2 u3
@students = u4 u5 u6
@gfoo = foo/CREATOR/a[0-9][0-9]
repo @gfoo
C = @students
RW+ = CREATOR
RW = WRITERS @TAs
R = READERS @prof
';
try "ADMIN_PUSH set1; !/FATAL/" or die text();
try "
cd ..
# u1 create fail
2012-03-18 13:35:27 +01:00
glt clone u1 file:///foo/u1/a01; !ok; /R any foo/u1/a01 u1 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# u2 create fail
2012-03-18 13:35:27 +01:00
glt clone u2 file:///foo/u2/a02; !ok; /R any foo/u2/a02 u2 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# u4 tries to create u2 repo
2012-03-18 13:35:27 +01:00
glt clone u4 file:///foo/u2/a12; !ok; /R any foo/u2/a12 u4 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# line anchored regexes
2012-03-18 13:35:27 +01:00
glt clone u4 file:///foo/u4/a1234; !ok; /R any foo/u4/a1234 u4 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# u4 tries to create his own repo
2012-03-18 13:35:27 +01:00
glt clone u4 file:///foo/u4/a12; ok; /Initialized empty Git repository in .*/foo/u4/a12.git//
/warning: You appear to have cloned an empty repository./
2012-03-18 13:06:51 +01:00
# u4 push success
cd a12
2012-03-18 13:35:27 +01:00
tc n-770 n-771 n-772 n-773; ok
glt push u4 origin master; ok; /To file:///foo/u4/a12/
/\\* \\[new branch\\] master -> master/
2012-03-18 13:06:51 +01:00
# u1 clone success
cd ..
2012-03-18 13:35:27 +01:00
glt clone u1 file:///foo/u4/a12 u1a12; ok; /Cloning into 'u1a12'.../
2012-03-18 13:06:51 +01:00
# u1 push fail
cd u1a12
2012-03-18 13:35:27 +01:00
tc c-442 c-443; ok
glt push u1; !ok; /W any foo/u4/a12 u1 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# u2 clone success
cd ..
2012-03-18 13:35:27 +01:00
glt clone u2 file:///foo/u4/a12 u2a12; ok; /Cloning into 'u2a12'.../
2012-03-18 13:06:51 +01:00
# u2 push success
cd u2a12
2012-03-18 13:35:27 +01:00
tc e-393 e-394; ok;
glt push u2; ok; /To file:///foo/u4/a12/
/master -> master/
2012-03-18 13:06:51 +01:00
# u2 rewind fail
2012-03-18 13:35:27 +01:00
glt push u2 -f origin master^:master; !ok; /\\+ refs/heads/master foo/u4/a12 u2 DENIED by fallthru/
reject
2012-03-18 13:06:51 +01:00
# u4 pull to sync up
cd ../a12
2012-03-18 13:35:27 +01:00
glt pull u4; ok; /Fast-forward/
/From file:///foo/u4/a12/
/master -> origin/master/
2012-03-18 13:06:51 +01:00
# u4 rewind success
2012-03-18 13:35:27 +01:00
git reset --hard HEAD^; ok
glt push u4 -f; ok; /To file:///foo/u4/a12/
/\\+ .* master -> master \\(forced update\\)/
2012-03-18 13:06:51 +01:00
# u5 clone fail
cd ..
2012-03-18 13:35:27 +01:00
glt clone u5 file:///foo/u4/a12 u5a12; !ok; /R any foo/u4/a12 u5 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# setperm
glt perms u4 foo/u4/a12 + READERS u5
glt perms u4 foo/u4/a12 + WRITERS u6
# getperms
glt perms u4 -l foo/u4/a12
";
cmp 'READERS u5
WRITERS u6
';
try "
# u5 clone success
2012-03-18 13:35:27 +01:00
glt clone u5 file:///foo/u4/a12 u5a12; ok; /Cloning into 'u5a12'.../
2012-03-18 13:06:51 +01:00
# u5 push fail
cd u5a12
2012-03-18 13:35:27 +01:00
tc g-809 g-810; ok
glt push u5; !ok; /W any foo/u4/a12 u5 DENIED by fallthru/
2012-03-18 13:06:51 +01:00
# u6 clone success
cd ..
2012-03-18 13:35:27 +01:00
glt clone u6 file:///foo/u4/a12 u6a12; ok; /Cloning into 'u6a12'.../
2012-03-18 13:06:51 +01:00
# u6 push success
cd u6a12
tc f-912 f-913
2012-03-18 13:35:27 +01:00
glt push u6 file:///foo/u4/a12; ok; /To file:///foo/u4/a12/
/master -> master/
2012-03-18 13:06:51 +01:00
# u6 rewind fail
glt push u6 -f file:///foo/u4/a12 master^:master
2012-03-18 13:35:27 +01:00
!ok; /\\+ refs/heads/master foo/u4/a12 u6 DENIED by fallthru/
reject
2012-03-18 13:06:51 +01:00
";