diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2017-10-05 14:26:47 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2017-10-28 00:00:10 +0200 |
| commit | 250cfa0d7318a364a8d48efaa268ce25b14cf3c3 (patch) | |
| tree | 123ae98eb55efaa69bd18d6075cb554ec40366d6 /RPM4/t | |
| parent | d7f3676003aa491952e9f963bc6104b9a29ba379 (diff) | |
| download | perl-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.t | 4 |
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"); |