diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-04-23 08:33:25 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-04-29 14:40:25 +0200 |
| commit | 6c9e2c8f29b81f63070184817e0b51fcca33ecee (patch) | |
| tree | ff21e2b55bf15cc96928cfd9c314b2d30bbe296e /t | |
| parent | 432b032bcb12ad845a9459738de58f019842ea3b (diff) | |
| download | urpmi-6c9e2c8f29b81f63070184817e0b51fcca33ecee.tar urpmi-6c9e2c8f29b81f63070184817e0b51fcca33ecee.tar.gz urpmi-6c9e2c8f29b81f63070184817e0b51fcca33ecee.tar.bz2 urpmi-6c9e2c8f29b81f63070184817e0b51fcca33ecee.tar.xz urpmi-6c9e2c8f29b81f63070184817e0b51fcca33ecee.zip | |
cpan_testers: show verbosely why genhdlist2 do not work
Diffstat (limited to 't')
| -rw-r--r-- | t/02create_pkgs.t | 7 |
1 files changed, 7 insertions, 0 deletions
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/*")) { |