Add a --validate option to bisect.pl to verify that stable releases build.

This is useful for validating a new OS/CPU/compiler combination, and for
checking that refactoring bisect-runner.pl hasn't broken any that previously
worked.

1 files changed, 18 insertions, 2 deletions

diff --git a/Porting/bisect.pl b/Porting/bisect.pl
index 292a3ef50d..8a6b5df736 100755
--- a/Porting/bisect.pl
+++ b/Porting/bisect.pl
@@ -7,9 +7,10 @@ my $start_time = time;
 # Which isn't what we want.
 use Getopt::Long qw(:config pass_through no_auto_abbrev);
 
-my ($start, $end);
+my ($start, $end, $validate);
 unshift @ARGV, '--help' unless GetOptions('start=s' => \$start,
-                                          'end=s' => \$end);
+                                          'end=s' => \$end,
+                                          validate => \$validate);
 
 my $runner = $0;
 $runner =~ s/bisect\.pl/bisect-runner.pl/;
@@ -46,6 +47,21 @@ my $modified = () = `git ls-files --modified --deleted --others`;
 die "This checkout is not clean - $modified modified or untracked file(s)"
     if $modified;
 
+sub validate {
+    my $commit = shift;
+    print "Testing $commit...\n";
+    system "git checkout $commit </dev/null" and die;
+    my $ret = system $^X, $runner, '--no-clean', @ARGV;
+    die "Runner returned $ret, not 0 for revision $commit" if $ret;
+    system 'git clean -dxf </dev/null' and die;
+    system 'git reset --hard HEAD </dev/null' and die;
+}
+
+if ($validate) {
+    validate $_ foreach 'blead', reverse @stable;
+    exit 0;
+}
+
 my $git_version = `git --version`;
 if (defined $git_version
     && $git_version =~ /\Agit version (\d+\.\d+\.\d+)(.*)/) {