(minor) fixes to test driver

This commit is contained in:
Sitaram Chamarty 2010-06-25 20:10:55 +05:30
parent 416d3398b3
commit 97126608b9

View file

@ -30,13 +30,13 @@ hl() { # highlight function
echo $normal echo $normal
fi fi
} }
pause() { echo pausing\; hit enter or ctrl-c...; read; } pause() { echo pausing, "$@"\; hit enter or ctrl-c...; read; }
capture() { cf=$1; shift; "$@" >& $TESTDIR/$cf; } capture() { cf=$1; shift; "$@" >& $TESTDIR/$cf; }
editrc() { editrc() {
scp gitolite-test@localhost:.gitolite.rc ~/junk >/dev/null scp gitolite-test@localhost:.gitolite.rc ~/junk >/dev/null
perl -pi -e "print STDERR if /$1/ and s/=.*/= $2;/" ~/junk perl -pi -e "print STDERR if not /^#/ and /$1/ and s/=.*/= $2;/" ~/junk
scp ~/junk gitolite-test@localhost:.gitolite.rc >/dev/null scp ~/junk gitolite-test@localhost:.gitolite.rc >/dev/null
} }