2012-03-17 12:22:36 +01:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
|
|
# this is hardcoded; change it if needed
|
2012-04-06 16:59:05 +02:00
|
|
|
use lib "src/lib";
|
2012-03-17 12:22:36 +01:00
|
|
|
use Gitolite::Test;
|
|
|
|
|
|
|
|
|
|
try "plan 1; cd $ENV{PWD}; git status -s -uno; !/./ or die" or die "dirty tree";
|
|
|
|
|
try "git log -1 --format='%h %ai %s'";
|
|
|
|
|
put "|cat >> prove.log", text();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
