t/listers.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 various list-* commands
  10 # ----------------------------------------------------------------------
  11
  12 try 'plan 30';
  13
  14 try "## info";
  15
  16 confreset;confadd '
  17     @oss = git gitolite gitolite3
  18     @prop = cc p4
  19     @crypto = alice bob carol
  20     @dilbert = alice wally ashok
  21
  22     repo    @oss
  23         RW              =   u1 @crypto
  24         R               =   u2 @dilbert
  25     repo    @prop
  26         RW  =               u2 @dilbert
  27         R   =               u1
  28     repo    t3
  29                     RW  =   u3
  30                     R   =   u4
  31 ';
  32
  33 try "ADMIN_PUSH info; !/FATAL/" or die text();
  34 try "
  35                                         /Initialized.*empty.*cc.git/
  36                                         /Initialized.*empty.*p4.git/
  37                                         /Initialized.*empty.*git.git/
  38                                         /Initialized.*empty.*gitolite.git/
  39                                         /Initialized.*empty.*gitolite3.git/
  40                                         /Initialized.*empty.*t3.git/
  41 ";
  42
  43 try "gitolite list-groups"; cmp
  44 '@crypto
  45 @dilbert
  46 @oss
  47 @prop
  48 ';
  49
  50 try "gitolite list-users"; cmp
  51 '@all
  52 @crypto
  53 @dilbert
  54 admin
  55 u1
  56 u2
  57 u3
  58 u4
  59 ';
  60 try "gitolite list-repos"; cmp
  61 '@oss
  62 @prop
  63 gitolite-admin
  64 t3
  65 testing
  66 ';
  67
  68 try "gitolite list-phy-repos"; cmp
  69 'cc
  70 git
  71 gitolite
  72 gitolite-admin
  73 gitolite3
  74 p4
  75 t3
  76 testing
  77 ';
  78
  79 try "gitolite list-memberships -u alice"; cmp
  80 '@crypto
  81 @dilbert
  82 ';
  83
  84 try "gitolite list-memberships -u ashok"; cmp
  85 '@dilbert
  86 ';
  87
  88 try "gitolite list-memberships -u carol"; cmp
  89 '@crypto
  90 ';
  91
  92 try "gitolite list-memberships -r git"; cmp
  93 '@oss
  94 ';
  95
  96 try "gitolite list-memberships -r gitolite"; cmp
  97 '@oss
  98 ';
  99
 100 try "gitolite list-memberships -r gitolite3"; cmp
 101 '@oss
 102 ';
 103
 104 try "gitolite list-memberships -r cc"; cmp
 105 '@prop
 106 ';
 107
 108 try "gitolite list-memberships -r p4"; cmp
 109 '@prop
 110 ';
 111
 112 try "gitolite list-members \@crypto"; cmp
 113 'alice
 114 bob
 115 carol
 116 ';
 117
 118 try "gitolite list-members \@dilbert"; cmp
 119 'alice
 120 ashok
 121 wally
 122 ';
 123
 124 try "gitolite list-members \@oss"; cmp
 125 'git
 126 gitolite
 127 gitolite3
 128 ';
 129
 130 try "gitolite list-members \@prop"; cmp
 131 'cc
 132 p4
 133 ';
 134