From 6c9e2c8f29b81f63070184817e0b51fcca33ecee Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 23 Apr 2020 08:33:25 +0200
Subject: cpan_testers: show verbosely why genhdlist2 do not work

---
 NEWS              | 1 +
 t/02create_pkgs.t | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/NEWS b/NEWS
index 100329cb..093436e8 100644
--- a/NEWS
+++ b/NEWS
@@ -4,6 +4,7 @@
   o describe more tests to help pinpoint regressions
   o do not fail test when libnss.so is not found in Debian 9 or FreeBSD
   o fix test with rpm < 4.13 on CentOS7
+  o make sure genhdlist2 works
   o perform some file conflict tests only on Mageia
   o try harder to find genhdlist2 in uninstalled CPAN modules
   o work without glibc-static-devel
diff --git a/t/02create_pkgs.t b/t/02create_pkgs.t
index 9733436c..4913e61a 100644
--- a/t/02create_pkgs.t
+++ b/t/02create_pkgs.t
@@ -19,6 +19,13 @@ my $whereis_genhdlist2 = qx(whereis -b genhdlist2);
 $whereis_genhdlist2 =~ s/^genhdlist2:\s+//;
 ok("whereis genhdlist2", "genhdlist2 emplacement=$whereis_genhdlist2");
 
+# check that genhdlist2 actually works:
+my $dir = "genhdlist2-test";
+mkdir($dir);
+my $out = `genhdlist2 $dir 2>&1`;
+chomp($out);
+is($out, "no *.rpm found in $dir (use --allow-empty-media?)", "genhdlist2 works");
+
 # locally build test rpms
 
 foreach my $dir (grep { -d $_ } glob("data/SPECS/*")) {
-- 
cgit v1.2.1