111 lines
4 KiB
Perl
Executable file
111 lines
4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
# this is hardcoded; change it if needed
|
|
use lib "$ENV{HOME}/bin";
|
|
use Gitolite::Test;
|
|
|
|
# basic tests
|
|
# ----------------------------------------------------------------------
|
|
|
|
try "
|
|
plan 74
|
|
|
|
## clone
|
|
glt clone dev2 file://gitolite-admin
|
|
!ok; gsh
|
|
/DENIED by fallthru/
|
|
/fatal: The remote end hung up unexpectedly/
|
|
glt clone admin --progress file://gitolite-admin
|
|
ok; gsh
|
|
/Counting/; /Compressing/; /Total/
|
|
cd gitolite-admin; ok
|
|
";
|
|
|
|
put "conf/gitolite.conf", "
|
|
\@admins = admin dev1
|
|
repo gitolite-admin
|
|
- mm = \@admins
|
|
RW = \@admins
|
|
RW+ = admin
|
|
|
|
repo testing
|
|
RW+ = \@all
|
|
";
|
|
|
|
try "
|
|
## push
|
|
git add conf; ok
|
|
git status -s; ok; /M conf/gitolite.conf/
|
|
git commit -m t01a; ok; /master.*t01a/
|
|
glt push dev2 origin; !ok; gsh
|
|
/DENIED by fallthru/
|
|
/fatal: The remote end hung up unexpectedly/
|
|
glt push admin origin; ok; /master -. master/
|
|
tsh empty; ok;
|
|
glt push admin origin master:mm
|
|
!ok; gsh
|
|
/DENIED by refs/heads/mm/
|
|
/remote: error: hook declined to update refs/heads/mm/
|
|
/To file://gitolite-admin/
|
|
/remote rejected. master -. mm .hook declined./
|
|
/error: failed to push some refs to 'file://gitolite-admin'/
|
|
|
|
";
|
|
|
|
put "conf/gitolite.conf", "
|
|
\@admins = admin dev1
|
|
repo gitolite-admin
|
|
RW+ = admin
|
|
|
|
repo testing
|
|
RW+ = \@all
|
|
|
|
repo t1
|
|
R = u2
|
|
RW = u3
|
|
RW+ = u4
|
|
";
|
|
|
|
try "
|
|
## push 2
|
|
git add conf; ok
|
|
git status -s; ok; /M conf/gitolite.conf/
|
|
git commit -m t01b; ok; /master.*t01b/
|
|
glt push admin origin; ok; gsh
|
|
/master -. master/
|
|
|
|
## clone
|
|
cd ..; ok;
|
|
glt clone u1 file://t1; !ok; gsh
|
|
/DENIED by fallthru/
|
|
/fatal: The remote end hung up unexpectedly/
|
|
glt clone u2 file://t1; ok; gsh
|
|
/warning: You appear to have cloned an empty repository./
|
|
ls -al t1; ok; /$ENV{USER}.*$ENV{USER}.*\.git/
|
|
cd t1; ok;
|
|
|
|
## push
|
|
test-commit tc1 tc2 tc2; ok; /f7153e3/
|
|
glt push u2 origin; !ok; gsh
|
|
/DENIED by fallthru/
|
|
/fatal: The remote end hung up unexpectedly/
|
|
glt push u3 origin master; ok; gsh
|
|
/master -. master/
|
|
|
|
## rewind
|
|
reset-h HEAD^; ok; /HEAD is now at 537f964 tc2/
|
|
test-tick; test-commit tc3; ok; /a691552/
|
|
glt push u3 origin; !ok; gsh
|
|
/rejected.*master -. master.*non-fast-forward./
|
|
glt push u3 -f origin; !ok; gsh
|
|
/DENIED by fallthru/
|
|
/remote: error: hook declined to update refs/heads/master/
|
|
/To file://t1/
|
|
/remote rejected. master -. master .hook declined./
|
|
/error: failed to push some refs to 'file://t1'/
|
|
glt push u4 origin +master; ok; gsh
|
|
/ \\+ f7153e3...a691552 master -. master.*forced update./
|
|
"
|