fix some "this specific user" dependencies for testing
This commit is contained in:
parent
43f95f9b22
commit
5deafb6823
|
@ -45,7 +45,7 @@ try "
|
||||||
/DENIED by fallthru/
|
/DENIED by fallthru/
|
||||||
/fatal: The remote end hung up unexpectedly/
|
/fatal: The remote end hung up unexpectedly/
|
||||||
PUSH admin; ok; /master -> master/
|
PUSH admin; ok; /master -> master/
|
||||||
tsh empty; ok;
|
empty; ok;
|
||||||
PUSH admin master:mm
|
PUSH admin master:mm
|
||||||
!ok; gsh
|
!ok; gsh
|
||||||
/DENIED by refs/heads/mm/
|
/DENIED by refs/heads/mm/
|
||||||
|
|
|
@ -12,6 +12,7 @@ use Gitolite::Test;
|
||||||
$ENV{GL_BINDIR} = "$ENV{PWD}/src";
|
$ENV{GL_BINDIR} = "$ENV{PWD}/src";
|
||||||
|
|
||||||
my $ak = "$ENV{HOME}/.ssh/authorized_keys";
|
my $ak = "$ENV{HOME}/.ssh/authorized_keys";
|
||||||
|
mkdir("$ENV{HOME}/.ssh", 0700) if not -d "$ENV{HOME}/.ssh";
|
||||||
my $kd = `gitolite query-rc -n GL_ADMIN_BASE` . "/keydir";
|
my $kd = `gitolite query-rc -n GL_ADMIN_BASE` . "/keydir";
|
||||||
|
|
||||||
try "plan 49";
|
try "plan 49";
|
||||||
|
|
|
@ -24,6 +24,9 @@ try "
|
||||||
cp $bd/../t/keys/u[1-6]* $h/.ssh; ok or die 2
|
cp $bd/../t/keys/u[1-6]* $h/.ssh; ok or die 2
|
||||||
cp $bd/../t/keys/admin* $h/.ssh; ok or die 3
|
cp $bd/../t/keys/admin* $h/.ssh; ok or die 3
|
||||||
cp $bd/../t/keys/config $h/.ssh; ok or die 4
|
cp $bd/../t/keys/config $h/.ssh; ok or die 4
|
||||||
|
cat $h/.ssh/config
|
||||||
|
perl s/%USER/$ENV{USER}/
|
||||||
|
put $h/.ssh/config
|
||||||
|
|
||||||
mkdir $ab/keydir; ok or die 5
|
mkdir $ab/keydir; ok or die 5
|
||||||
cp $bd/../t/keys/*.pub $ab/keydir; ok or die 6
|
cp $bd/../t/keys/*.pub $ab/keydir; ok or die 6
|
||||||
|
|
Loading…
Reference in a new issue