t/listers.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

#!/usr/bin/perl
use strict;
use warnings;

# this is hardcoded; change it if needed
use lib "src/lib";
use Gitolite::Test;

# the various list-* commands
# ----------------------------------------------------------------------

try 'plan 30';

try "## info";

confreset;confadd '
    @oss = git gitolite gitolite3
    @prop = cc p4
    @crypto = alice bob carol
    @dilbert = alice wally ashok

    repo    @oss
        RW              =   u1 @crypto
        R               =   u2 @dilbert
    repo    @prop
        RW  =               u2 @dilbert
        R   =               u1
    repo    t3
                    RW  =   u3
                    R   =   u4
';

try "ADMIN_PUSH info; !/FATAL/" or die text();
try "
                                        /Initialized.*empty.*cc.git/
                                        /Initialized.*empty.*p4.git/
                                        /Initialized.*empty.*git.git/
                                        /Initialized.*empty.*gitolite.git/
                                        /Initialized.*empty.*gitolite3.git/
                                        /Initialized.*empty.*t3.git/
";

try "gitolite list-groups"; cmp
'@crypto
@dilbert
@oss
@prop
';

try "gitolite list-users"; cmp
'@all
@crypto
@dilbert
admin
u1
u2
u3
u4
';
try "gitolite list-repos"; cmp
'@oss
@prop
gitolite-admin
t3
testing
';

try "gitolite list-phy-repos"; cmp
'cc
git
gitolite
gitolite-admin
gitolite3
p4
t3
testing
';

try "gitolite list-memberships -u alice"; cmp
'@crypto
@dilbert
';

try "gitolite list-memberships -u ashok"; cmp
'@dilbert
';

try "gitolite list-memberships -u carol"; cmp
'@crypto
';

try "gitolite list-memberships -r git"; cmp
'@oss
';

try "gitolite list-memberships -r gitolite"; cmp
'@oss
';

try "gitolite list-memberships -r gitolite3"; cmp
'@oss
';

try "gitolite list-memberships -r cc"; cmp
'@prop
';

try "gitolite list-memberships -r p4"; cmp
'@prop
';

try "gitolite list-members \@crypto"; cmp
'alice
bob
carol
';

try "gitolite list-members \@dilbert"; cmp
'alice
ashok
wally
';

try "gitolite list-members \@oss"; cmp
'git
gitolite
gitolite3
';

try "gitolite list-members \@prop"; cmp
'cc
p4
';