blob: caf6aaa5fc8be45790bd8f5f3f4ce1fd062a62bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';
chdir 't' if -d 't';
system('rm -rf tmp media');
foreach (qw(media tmp tmp/BUILD tmp/RPMS tmp/RPMS/noarch tmp/SRPMS)) {
mkdir $_;
}
# locally build test rpms
foreach my $dir (grep { -d $_ } glob("data/SPECS/*")) {
my ($medium_name) = $dir =~ m!([^/]*)$!;
rpmbuild($_, $medium_name) foreach glob("$dir/*.spec");
genhdlist_std($medium_name);
}
foreach my $spec (glob("data/SPECS/*.spec")) {
my $name = rpmbuild($spec);
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");
symlink "${name}_nohdlist", "media/${name} nohdlist";
symlink "${name}", "media/${name}_bis";
}
genhdlist_std($name);
}
foreach my $spec (glob("data/SPECS/srpm*.spec")) {
my $name = rpmbuild_srpm($spec);
genhdlist_std($name);
}
{
my $name = 'rpm-v3';
system_("cp -r data/$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");
genhdlist_std($name);
}
mkdir 'media/media_info';
system_("cp -r data/media.cfg media/media_info");
system_('gendistrib .');
sub genhdlist_std {
my ($medium_name) = @_;
system_("genhdlist --subdir media/$medium_name/media_info media/$medium_name");
}
sub rpmbuild {
my ($spec, $o_medium_name) = @_;
system_("rpmbuild --quiet --define '_topdir tmp' -bb --clean --nodeps $spec");
my ($name) = $spec =~ m!([^/]*)\.spec$!;
my $medium_name = $o_medium_name || $name;
mkdir "media/$medium_name";
system_("mv tmp/RPMS/*/*.rpm media/$medium_name");
$medium_name;
}
sub rpmbuild_srpm {
my ($spec) = @_;
system_("rpmbuild --quiet --define '_topdir tmp' -bs --clean --nodeps $spec");
my ($name) = $spec =~ m!([^/]*)\.spec$!;
my $medium_name = "SRPMS-$name";
mkdir "media/$medium_name";
system_("mv tmp/SRPMS/*.rpm media/$medium_name");
$medium_name;
}
sub system_ {
my ($cmd) = @_;
system($cmd);
ok($? == 0, $cmd);
}
|
