diff options
author | Ales Tamchyna <a.tamchyna@gmail.com> | 2011-09-07 13:16:44 +0400 |
---|---|---|
committer | Ales Tamchyna <a.tamchyna@gmail.com> | 2011-09-07 13:16:44 +0400 |
commit | 94fa872b6da80d29e4a2bed764f59905674be1dc (patch) | |
tree | 45fd2bcad2ddfd395dc1e14ede4110819cd45877 /regression-testing | |
parent | 6cdf685708e1b9c8c9c2405dcb90da864c207253 (diff) |
return '2' if a test failed
Diffstat (limited to 'regression-testing')
-rwxr-xr-x | regression-testing/run-test-suite.perl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/regression-testing/run-test-suite.perl b/regression-testing/run-test-suite.perl index 443c6d1d4..deb740fdd 100755 --- a/regression-testing/run-test-suite.perl +++ b/regression-testing/run-test-suite.perl @@ -131,6 +131,7 @@ my $pass_percentage = int(100 * ($total-$fail) / $total); print "\n$pass_percentage% of the tests passed.\n"; print "$fail_percentage% of the tests failed.\n"; if ($fail_percentage>0) { print "\nPLEASE INVESTIGATE THESE FAILED TESTS: @failed\n"; } +exit 2 if $fail > 0; sub do_test { my ($test) = @_; |