{
RT::Test->import_gnupg_key('rt-recipient@example.com');
RT::Test->trust_gnupg_key('rt-recipient@example.com');
{
RT::Test->import_gnupg_key('rt-recipient@example.com');
RT::Test->trust_gnupg_key('rt-recipient@example.com');
my @mail = RT::Test->fetch_caught_mails;
ok !@mail, 'there are no outgoing emails';
my @mail = RT::Test->fetch_caught_mails;
ok !@mail, 'there are no outgoing emails';
is $res{'info'}[0]{'TrustLevel'}, 0, 'is not trusted key';
$fpr1 = $res{'info'}[0]{'Fingerprint'};
}
is $res{'info'}[0]{'TrustLevel'}, 0, 'is not trusted key';
$fpr1 = $res{'info'}[0]{'Fingerprint'};
}
is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key';
$fpr2 = $res{'info'}[2]{'Fingerprint'};
}
is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key';
$fpr2 = $res{'info'}[2]{'Fingerprint'};
}
ok $res{'info'}[0]{'TrustLevel'} > 0, 'trusted key';
is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key';
}
ok $res{'info'}[0]{'TrustLevel'} > 0, 'trusted key';
is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key';
}
my @mail = RT::Test->fetch_caught_mails;
ok @mail, 'there are some emails';
my @mail = RT::Test->fetch_caught_mails;
ok @mail, 'there are some emails';
my @mail = RT::Test->fetch_caught_mails;
ok @mail, 'there are some emails';
my @mail = RT::Test->fetch_caught_mails;
ok @mail, 'there are some emails';