(mkdoc) make it do a little more post-mkdoc work

doc/mkdoc

@@ -7,7 +7,35 @@ my $MKD = "./Markdown.pl";
 use 5.10.0;
 use strict;
 use warnings;
+use lib '../src/Gitolite/Test';
+use Tsh;
 
+$ENV{TSH_ERREXIT} = 1;
+
+try "
+    mkdir ../html;                      ok
+    git status -s -uno;                 !/./
+    git log --oneline -1
+" or die 1;
+
+my $head = (lines())[0];
+
+main();
+
+try "
+    git checkout gh-pages;              ok
+    git reset --hard github/gh-pages;   ok
+    cd ..;                              ok
+    git rm g3/*.html;                   ok
+    mkdir g3;                           ok
+    mv html/*.html g3;                  ok
+    git add g3;                         ok
+    git commit -m '$head';              ok
+    git checkout g3;                    ok
+    rmdir html;                         ok
+" or die 2;
+
+sub main {
     chomp(@ARGV = `cat list`) if not @ARGV;
     @ARGV = grep { $_ ne 'master-toc.mkd' and /./ } @ARGV;
     my @save = @ARGV;
@@ -63,6 +91,7 @@ for my $mkd ("master-toc.mkd", @save) {
           and print $fh $mkt, $mf
           and close $fh;
     }
+}
 
 __DATA__