t/git-config.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 # git config settings
  10 # ----------------------------------------------------------------------
  11
  12 try "plan 57";
  13
  14 try "pwd";
  15 my $od = text();
  16 chomp($od);
  17
  18 my $t;  # temp
  19
  20 # try an invalid config key
  21 confreset;confadd '
  22
  23     repo @all
  24         config foo.bar  =   dft
  25 ';
  26
  27 try "ADMIN_PUSH set1; /FATAL/" or die text();
  28 try "
  29     /git config \\'foo.bar\\' not allowed/
  30     /check GIT_CONFIG_KEYS in the rc file/
  31 ";
  32
  33 # make foo.bar a valid gc key
  34 $ENV{G3T_RC} = "$ENV{HOME}/g3trc";
  35 put "$ENV{G3T_RC}", "\$rc{GIT_CONFIG_KEYS} = 'foo\.bar';\n";
  36
  37 confreset;confadd '
  38
  39     repo @all
  40         config foo.bar  =   dft
  41
  42     repo gitolite-admin
  43         RW+     =   admin
  44         config foo.bar  =
  45
  46     repo testing
  47         RW+     =   @all
  48
  49     repo foo
  50         RW      =   u1
  51         config foo.bar  =   f1
  52
  53     repo frob
  54         RW      =   u3
  55
  56     repo bar
  57         RW      =   u2
  58         config foo.bar  =   one
  59
  60 ';
  61
  62 try "ADMIN_PUSH set1; !/FATAL/" or die text();
  63
  64 my $rb = `gitolite query-rc -n GL_REPO_BASE`;
  65 try "
  66     cd $rb;                             ok
  67     egrep foo\\|bar *.git/config
  68 ";
  69 $t = join("\n", sort (lines()));
  70
  71 cmp $t, 'bar.git/config:        bar = one
  72 bar.git/config: bare = true
  73 bar.git/config:[foo]
  74 foo.git/config: bar = f1
  75 foo.git/config: bare = true
  76 foo.git/config:[foo]
  77 frob.git/config:        bar = dft
  78 frob.git/config:        bare = true
  79 frob.git/config:[foo]
  80 gitolite-admin.git/config:      bare = true
  81 testing.git/config:     bar = dft
  82 testing.git/config:     bare = true
  83 testing.git/config:[foo]';
  84
  85 try "cd $od; ok";
  86
  87 confadd '
  88
  89     repo frob
  90         RW      =   u3
  91         config foo.bar  =   none
  92
  93     repo bar
  94         RW      =   u2
  95         config foo.bar  =   one
  96
  97 ';
  98
  99 try "ADMIN_PUSH set1; !/FATAL/" or die text();
 100
 101 try "
 102     cd $rb;                             ok
 103     egrep foo\\|bar *.git/config
 104 ";
 105 $t = join("\n", sort (lines()));
 106
 107 cmp $t, 'bar.git/config:        bar = one
 108 bar.git/config: bare = true
 109 bar.git/config:[foo]
 110 foo.git/config: bar = f1
 111 foo.git/config: bare = true
 112 foo.git/config:[foo]
 113 frob.git/config:        bar = none
 114 frob.git/config:        bare = true
 115 frob.git/config:[foo]
 116 gitolite-admin.git/config:      bare = true
 117 testing.git/config:     bar = dft
 118 testing.git/config:     bare = true
 119 testing.git/config:[foo]';
 120
 121 try "cd $od; ok";
 122
 123 confadd '
 124
 125     repo bar
 126         RW      =   u2
 127         config foo.bar  =
 128
 129 ';
 130
 131 try "ADMIN_PUSH set1; !/FATAL/" or die text();
 132
 133 try "
 134     cd $rb;                             ok
 135     egrep foo\\|bar *.git/config
 136 ";
 137 $t = join("\n", sort (lines()));
 138
 139 cmp $t, 'bar.git/config:        bare = true
 140 foo.git/config: bar = f1
 141 foo.git/config: bare = true
 142 foo.git/config:[foo]
 143 frob.git/config:        bar = none
 144 frob.git/config:        bare = true
 145 frob.git/config:[foo]
 146 gitolite-admin.git/config:      bare = true
 147 testing.git/config:     bar = dft
 148 testing.git/config:     bare = true
 149 testing.git/config:[foo]';
 150
 151 try "cd $od; ok";
 152
 153 confreset;confadd '
 154
 155     repo @gr1
 156         RW      =   u1
 157         config foo.bar  =   f1
 158
 159     repo bar/CREATOR/[one].*
 160         C       =   u2
 161         RW      =   u2
 162         config foo.bar  =   one
 163
 164     @gr1 = foo frob
 165
 166 ';
 167 try "ADMIN_PUSH set1; !/FATAL/" or die text();
 168 try "
 169     glt ls-remote u2 file:///bar/u2/one;        ok;     /Initialized empty/
 170     glt ls-remote u2 file:///bar/u2/two;        !ok;    /DENIED by fallthru/
 171 ";
 172
 173 try "
 174     cd $rb;                             ok
 175     find . -name config | xargs egrep foo\\|bar
 176 ";
 177 $t = join("\n", sort (lines()));
 178
 179 cmp $t, './bar/u2/one.git/config:       bar = one
 180 ./bar/u2/one.git/config:        bare = true
 181 ./bar/u2/one.git/config:[foo]
 182 ./foo.git/config:       bar = f1
 183 ./foo.git/config:       bare = true
 184 ./foo.git/config:[foo]
 185 ./frob.git/config:      bar = f1
 186 ./frob.git/config:      bare = true
 187 ./frob.git/config:[foo]
 188 ./gitolite-admin.git/config:    bare = true
 189 ./testing.git/config:   bar = dft
 190 ./testing.git/config:   bare = true
 191 ./testing.git/config:[foo]';