# # 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();