summaryrefslogtreecommitdiffstats
path: root/RPM4/t
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2017-10-05 14:26:47 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2017-10-28 00:00:10 +0200
commit250cfa0d7318a364a8d48efaa268ce25b14cf3c3 (patch)
tree123ae98eb55efaa69bd18d6075cb554ec40366d6 /RPM4/t
parentd7f3676003aa491952e9f963bc6104b9a29ba379 (diff)
downloadperl-RPM4-250cfa0d7318a364a8d48efaa268ce25b14cf3c3.tar
perl-RPM4-250cfa0d7318a364a8d48efaa268ce25b14cf3c3.tar.gz
perl-RPM4-250cfa0d7318a364a8d48efaa268ce25b14cf3c3.tar.bz2
perl-RPM4-250cfa0d7318a364a8d48efaa268ce25b14cf3c3.tar.xz
perl-RPM4-250cfa0d7318a364a8d48efaa268ce25b14cf3c3.zip
fix a rpm-4.14 regression
Reloading the spec file object else next build fails with rpm-4.14
Diffstat (limited to 'RPM4/t')
-rw-r--r--RPM4/t/04spec.t4
1 files changed, 3 insertions, 1 deletions
diff --git a/RPM4/t/04spec.t b/RPM4/t/04spec.t
index 38bbed0..e9b1499 100644
--- a/RPM4/t/04spec.t
+++ b/RPM4/t/04spec.t
@@ -2,7 +2,7 @@
# $Id$
use strict;
-use Test::More tests => 26;
+use Test::More tests => 27;
use FindBin qw($Bin);
use File::Temp qw(tempdir);
use RPM4;
@@ -47,6 +47,8 @@ ok($h->queryformat("%{NAME}") eq "test-rpm", "can querying header give by spec")
ok($spec->build([ qw(PREP) ]) == 0, "simulate rpm -bp (check prep)");
ok($spec->build([ qw(BUILD) ]) == 0, "simulate rpm -bc");
ok($spec->build([ qw(INSTALL CHECK) ]) == 0, "simulate rpm -bi");
+# else next test fails with rpm-4.14:
+ok($spec = RPM4::Spec->new("$Bin/test-rpm.spec"), "ReLoading the spec file");
ok($spec->build([ qw(FILECHECK) ]) == 0, "simulate rpm -bl");
#ok($spec->build([ qw(PACKAGEBINARY CLEAN) ]) == 0, "simulate rpm -bb (binary, clean)");
ok($spec->build([ qw(PACKAGESOURCE) ]) == 0, "simulate rpm -bs");