gitolite/t/info.t

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

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

try 'plan 39';

try "## info";

confreset;confadd '
    @t1 = t1
    repo    @t1
        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/
                                        /R W  \tt1/
                                        /R    \tt2/
                                        !/t3/
                                        /R W  \ttesting/
    glt info u2;                ok;     /R    \t\@t1/
                                        /R    \tt1/
                                        /R W  \tt2/
                                        !/t3/
                                        /R W  \ttesting/
    glt info u3;                ok;     /R W  \tt3/
                                        !/\@t1/
                                        !/t[12]/
                                        /R W  \ttesting/
    glt info u4;                ok;     /R    \tt3/
                                        !/\@t1/
                                        !/t[12]/
                                        /R W  \ttesting/
    glt info u5;                ok;     !/t[123]/
                                        /R W  \ttesting/
    glt info u6;                ok;     !/t[123]/
                                        /R W  \ttesting/
    " or die;