diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2006-12-01 10:35:30 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2006-12-01 10:35:30 +0000 |
commit | c3df5e0f2d48dadc17a44c966b85361cbb53b3a8 (patch) | |
tree | e08f8109412ad0b5e9a23ef4a81044586e7514de /t/02create_pkgs.t | |
parent | 1a8a281a23d1324a8c447a93c3e12e213908723d (diff) | |
download | urpmi-c3df5e0f2d48dadc17a44c966b85361cbb53b3a8.tar urpmi-c3df5e0f2d48dadc17a44c966b85361cbb53b3a8.tar.gz urpmi-c3df5e0f2d48dadc17a44c966b85361cbb53b3a8.tar.bz2 urpmi-c3df5e0f2d48dadc17a44c966b85361cbb53b3a8.tar.xz urpmi-c3df5e0f2d48dadc17a44c966b85361cbb53b3a8.zip |
add some *old* pkgs (from redhat 4.0) to test rpm&URPM handle it correctly
so that bug #27263 won't happen again :)
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); |