test: Make perl tests report success or failure

Co-authored-by: Mikhail Gordeev <obirvalger@altlinux.org>
(cherry picked from commit 0329b9a709d7467284fdde076fa63cec7834980d)

diff --git a/test/run_tests b/test/run_tests
index ad93e3f23d145a58d74ae88e6cc18133779b8717..3578d0a62073556833fb224785cc1b319815922c 100644 (file)
--- a/test/run_tests
+++ b/test/run_tests
@@ -2,4 +2,4 @@
 use TAP::Harness;
 
 my $harness = TAP::Harness->new();
-$harness->runtests(glob("*.t"));
+exit ($harness->runtests(glob("*.t"))->all_passed() ? 0 : 1);