diff options
Diffstat (limited to 't/02create_pkgs.t')
| -rw-r--r-- | t/02create_pkgs.t | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/t/02create_pkgs.t b/t/02create_pkgs.t index ff6dabba..ff4fda0c 100644 --- a/t/02create_pkgs.t +++ b/t/02create_pkgs.t @@ -6,7 +6,7 @@ use Test::More 'no_plan'; chdir 't' if -d 't'; system('rm -rf BUILD RPMS media'); -for (qw(media BUILD RPMS RPMS/noarch)) { +foreach (qw(media BUILD RPMS RPMS/noarch)) { mkdir $_; } # locally build a test rpms @@ -17,14 +17,23 @@ foreach my $spec (glob("SPECS/*.spec")) { system_("mv RPMS/*/*.rpm media/$name"); if ($name eq 'various') { - system_("cp -r media/various media/various_nohdlist"); - system_("cp -r media/various media/various_no_subdir"); - system_("genhdlist --dest media/various_no_subdir"); + system_("cp -r media/$name media/${name}_nohdlist"); + system_("cp -r media/$name media/${name}_no_subdir"); + system_("genhdlist --dest media/${name}_no_subdir"); } system_("genhdlist --subdir media/$name/media_info media/$name"); } +{ + my $name = 'rpm-v3'; + system_("cp -r $name media"); + system_("cp -r media/$name media/${name}_nohdlist"); + system_("cp -r media/$name media/${name}_no_subdir"); + system_("genhdlist --dest media/${name}_no_subdir"); + system_("genhdlist --subdir media/$name/media_info media/$name"); +} + sub system_ { my ($cmd) = @_; system($cmd); |