xt/run_backend_tests.pl exit 1 if failure

Author: mohawk2

xt/run_backend_tests.pl

@@ -138,7 +138,7 @@ =head1 SEE ALSO
     },
 );
 
-
+my $status = 0;
 DB: for my $db ( @tests ) {
     if ( !$tests{ $db } ) {
         say "No test for $db. Available tests: " . join ", ", keys %tests;
@@ -151,6 +151,7 @@ =head1 SEE ALSO
         system $cmd;
         if ( $? != 0 ) {
             say "Error setting up test: $?";
+            $status = 1;
             next DB;
         }
     }
@@ -160,16 +161,19 @@ =head1 SEE ALSO
     system( qw( prove -lr ), @j1, @files );
     if ( $? != 0 ) {
         say "Test failure ($db): $?";
+        $status = 1;
         last;
     }
 
     for my $cmd ( @{ $test->{teardown} || [] } ) {
         system $cmd;
         if ( $? != 0 ) {
             say "Error tearing down test: $?";
+            $status = 1;
         }
     }
 
     say "-- Passed test: $db";
 }
 
+exit $status;