#!/usr/bin/perl use strict; use warnings; use Test::More 'no_plan'; chdir 't' if -d 't'; system('rm -rf BUILD RPMS media'); foreach (qw(media BUILD RPMS RPMS/noarch)) { mkdir $_; } # locally build a test rpms foreach my $spec (glob("SPECS/*.spec")) { system_("rpmbuild --quiet --define '_topdir .' -bb --clean $spec"); my ($name) = $spec =~ m!([^/]*)\.spec$!; mkdir "media/$name"; system_("mv RPMS/*/*.rpm media/$name"); if ($name eq 'various') { 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); ok($? == 0, $cmd); } tro/mdv2009.0'>distro/mdv2009.0 Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/share
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-11 16:35:57 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-11 16:35:57 +0000
commitd8c9280d84ee6be540190f1863822bb0481d973d (patch)
tree8984ec8dca0b32e9703a287dc1c2f6ec7893c6c2 /perl-install/share
parent29d5283915176ef8e5b890c53f7316386ac2193d (diff)
downloaddrakx-d8c9280d84ee6be540190f1863822bb0481d973d.tar
drakx-d8c9280d84ee6be540190f1863822bb0481d973d.tar.gz
drakx-d8c9280d84ee6be540190f1863822bb0481d973d.tar.bz2
drakx-d8c9280d84ee6be540190f1863822bb0481d973d.tar.xz
drakx-d8c9280d84ee6be540190f1863822bb0481d973d.zip
sync with code
Diffstat (limited to 'perl-install/share')