tests: improve error handling of run_disk_tests

[pve-storage.git] / test / run_disk_tests.pl

diff --git a/test/run_disk_tests.pl b/test/run_disk_tests.pl
index d955a02f93861842b5a2317fbf9b64088bfdcd7b..c1a698e9090d91d4e050a4d6d89ca7341d2988df 100755 (executable)
--- a/test/run_disk_tests.pl
+++ b/test/run_disk_tests.pl
@@ -8,5 +8,5 @@ use TAP::Harness;
 my $harness = TAP::Harness->new( { verbosity => -2 });
 my $res = $harness->runtests( "disklist_test.pm" );
 
-exit -1 if $res->{failed};
+exit -1 if !$res || $res->{failed} || $res->{parse_errors};