t_install_iso/013_check_rpms.t


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

#
# Verification of the signature of all the rpm packages present on the iso
#
use Test::Most;

bail_on_fail;

SKIP: {
    skip "Not working yet", 1 unless 0;

my $_find = `find /media/iso_check/* -name *.rpm > find_all_rpm.log`;
open(my $list, 'find_all_rpm.log');

my $pkg;
my $sign;
my $valid = 1;

while ($pkg = <$list>) {
    $sign = '';
    chomp($pkg);
    $sign = `rpm -K $pkg | grep 'gpg OK'`;
    ok ($sign, "$pkg is correctly signed.");

    $valid = 0 if !$sign;
}
close($list);
my $_res = `rm -rf find_all_rpm.log`;

}

done_testing();