blob: 08f3a11f7bfefe222ebd6a18d4452af5dcc15f1a (
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
|
#!/usr/bin/perl
# vim:et:ai:ts=4:sts=4:sw=4
use strict;
use lib '.', 't';
use helper;
use Test::More 'no_plan';
BEGIN { use_ok "URPM" }
need_root_and_prepare();
#- things are going to be noisy, and that's normal
open STDERR, '>/dev/null';
my @pkgs = map { "data/rpm-buggy/$_" } 'invalid-signature.rpm', 'not-a-rpm.rpm', 'weird-header.rpm';
foreach (@pkgs) {
# rpm-4.14.2's errors messages mess up with TAP:
system("rpm -K $_ &>/dev/null");
is($?, 1 << 8, "rpm -K $_");
system(urpmi_cmd() . " $_");
is($?, 2 << 8, "urpmi $_");
my $verif = URPM::verify_signature($_);
ok($verif =~ /NOT OK/, 'signature is OK');
}
|