gqt -- gitolite quick (re-)test

sometimes I want to quickly test a few lines of change within the context of
a currently-running/just-ran test, *without* doing the rollback etc.

Here's how you do that now:

  - in your source tree, make the change and then run:
        cp -a src hooks contrib/adc /some/tmp/place
  - go to the tester userid and re-run your tests like so:
        GQT=/some/tmp/place ./test-driver.sh
    it'll rollback as normal then overwrite src and hooks from $GQT

Also, there's now a "dbg" sub that can be used for quick printf-style
debugging.

src/gitolite.pm

@@ -57,6 +57,12 @@ sub wrap_open {
     return $fh;
 }
 
+sub dbg {
+    for my $i (@_) {
+        print STDERR "DBG: $i\n";
+    }
+}
+
 sub log_it {
     my ($ip, $logmsg);
     open my $log_fh, ">>", $ENV{GL_LOG} or die "open log failed: $!\n";

t/rollback

@@ -8,4 +8,4 @@ tar xf rollback.tar
 mkdir td
 
 scp -q $TESTDIR/rollback.server gitolite-test@localhost:rollback || { echo scp failed; exit 1; }
-ssh gitolite-test@localhost ./rollback
+ssh gitolite-test@localhost ./rollback $GQT

t/rollback.server

@@ -3,3 +3,12 @@
 cd
 rm -rf .ssh .gitolite .gitolite.rc repositories gitolite-install
 tar xf rollback.tar
+
+# if arg1 is a directory, we have to overwrite sources from there (see commit
+# message for details)
+if [ -d "$1" ]
+then
+    cd .gitolite
+    /bin/cp -a $1/{src,hooks} .
+    cd
+fi

t/test-driver.sh

@@ -54,6 +54,7 @@ ugc ()
         git push ${1:-gitolite}:gitolite-admin master
         git fetch origin >/dev/null 2>&1
     ) >~/1 2>~/2
+    grep DBG: ~/2 >/dev/null && grep . ~/1 ~/2
 }
 
 mdc()