Sort the list of repositories by repository path. Test for git returning non-zero

[perl/modules/rgit.git] / t / bin / git

diff --git a/t/bin/git b/t/bin/git
index 6d769f6906c0be54033ce2e47ef8cb8dab2fdf03..d93614d1c6cea3e3e0891d624c4b5591b51d3838 100755 (executable)
--- a/t/bin/git
+++ b/t/bin/git
@@ -3,7 +3,10 @@
 # This has to work with olde perls
 
 my $filename = shift @ARGV;
+my $cmd = shift @ARGV;
 open FH, ">>$filename" or die "open($filename): $!";
-print FH join '|', @ARGV;
+print FH join '|', $cmd, @ARGV;
 print FH "\n";
 close FH;
+
+exit(($cmd && $cmd eq 'FAIL') ? 1 : 0);