t/info.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 # this is hardcoded; change it if needed
   6 use lib "src/lib";
   7 use Gitolite::Test;
   8
   9 # the info command
  10 # ----------------------------------------------------------------------
  11
  12 try 'plan 78';
  13
  14 try "## info";
  15
  16 confreset;confadd '
  17     @t1 = t1
  18     repo    @t1
  19         RW              =   u1
  20         R               =   u2
  21     repo    t2
  22         RW  =               u2
  23         R   =               u1
  24     repo    t3
  25         RW  =   u3
  26         R   =   u4
  27
  28     repo foo/..*
  29         C   =   u1
  30         RW  =   CREATOR u3
  31 ';
  32
  33 try "ADMIN_PUSH info; !/FATAL/" or die text();
  34 try "
  35                                         /Initialized.*empty.*t1.git/
  36                                         /Initialized.*empty.*t2.git/
  37                                         /Initialized.*empty.*t3.git/
  38 ";
  39
  40 # GS == greeting string
  41 try "DEF GS = /hello %1, this is $ENV{USER}\\@.* running gitolite/";
  42
  43 try "
  44     glt info u1; ok; GS u1
  45         /C\tfoo/\\.\\.\\*/
  46         /R W *\tt1/
  47         /R   *\tt2/
  48         /R W *\ttesting/
  49         !/R W *\tt3/
  50     glt info u2; ok; GS u2
  51         !/C\tfoo/
  52         /R   *\tt1/
  53         /R W *\tt2/
  54         /R W *\ttesting/
  55         !/R W *\tt3/
  56     glt info u3; ok; GS u3
  57         /R W *\tt3/
  58         /R W *\ttesting/
  59         !/R   *\tt1/
  60         !/R W *\tt2/
  61     glt info u4; ok; GS u4
  62         /R   *\tt3/
  63         /R W *\ttesting/
  64         !/R   *\tt1/
  65         !/R W *\tt2/
  66     glt info u5; ok; GS u5
  67         /R W *\ttesting/
  68         !/R   *\tt1/
  69         !/R W *\tt2/
  70         !/R W *\tt3/
  71     glt info u6; ok; GS u6
  72         /R W *\ttesting/
  73         !/R   *\tt1/
  74         !/R W *\tt2/
  75         !/R W *\tt3/
  76 ";
  77
  78 try "
  79     glt ls-remote u1 file:///foo/one;   ok
  80     glt info u1; ok; GS u1
  81         /C\tfoo/\\.\\.\\*/
  82         /R W *\tfoo/one/
  83         !/R W *\tfoo/one\tu1/
  84     glt info u2; ok; GS u2
  85         !/C\tfoo/
  86         !/R W *\tfoo/one/
  87     glt info u3; ok; GS u3
  88         !/C\tfoo/
  89         /R W *\tfoo/one/
  90         !/R W *\tfoo/one\tu1/
  91 ";
  92
  93 try "
  94     glt ls-remote u1 file:///foo/one;   ok
  95     glt info u1 -lc; ok; GS u1
  96         /C\tfoo/\\.\\.\\*/
  97         !/C\tfoo.*u1/
  98         /R W *\tfoo/one\tu1/
  99     glt info u2 -lc; ok; GS u2
 100         !/C\tfoo/
 101         !/R W *\tfoo/one/
 102     glt info u3 -lc; ok; GS u3
 103         !/C\tfoo/
 104         /R W *\tfoo/one\tu1/
 105 ";