test: Make perl tests report success or failure

Co-authored-by: Mikhail Gordeev <obirvalger@altlinux.org>

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);