From 5503525f4b98b2b06781b609d44d9ac78999e31d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 1 Nov 2017 17:39:04 +0100 Subject: skip a test with rpm-4.1[12] due to a segfault --- RPM4/NEWS | 1 + RPM4/t/03rpmlib.t | 7 +++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/RPM4/NEWS b/RPM4/NEWS index 18c4250..f026af8 100644 --- a/RPM4/NEWS +++ b/RPM4/NEWS @@ -1,5 +1,6 @@ - cpan testers: o list dependancies + o skip a test with rpm-4.1[12] due to a segfault o use PkgConfig in order to find rpm Version 0.37 - 27 October 2017 diff --git a/RPM4/t/03rpmlib.t b/RPM4/t/03rpmlib.t index 13117b2..41f0f34 100755 --- a/RPM4/t/03rpmlib.t +++ b/RPM4/t/03rpmlib.t @@ -11,8 +11,11 @@ ok(! defined(RPM4::setverbosity("DEBUG")), "Set verbosity works"); my $marker = 0; ok(!defined(RPM4::setlogcallback(sub { my %m = @_; $marker = 1; print "$m{priority}: $m{msg}\n" })), "Setting log callback function works"); -ok(!defined(RPM4::rpmlog("ERR", "This is a rpm debug message")), "rpmlog function works"); -ok($marker == 1, "rpmlogcallback has been called"); + SKIP: { + skip 'segfault in rpm-4.1[12]', 2 if `rpm --version` =~ /4\.1[12]\./; + ok(!defined(RPM4::rpmlog("ERR", "This is a rpm debug message")), "rpmlog function works"); + ok($marker == 1, "rpmlogcallback has been called"); +}; } ok(! defined(RPM4::setlogcallback(undef)), "remove callback function"); ok(RPM4::setlogfile("logfile"), "set a log file"); -- cgit v1.2.1