rt/t/mail/gnupg-bad.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test::GnuPG
   5   tests         => 7,
   6   gnupg_options => {
   7     passphrase => 'rt-test',
   8     homedir => RT::Test::get_abs_relocatable_dir(
   9         File::Spec->updir(), qw/data gnupg keyrings/
  10     ),
  11   };
  12
  13 RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::Crypt' );
  14
  15 my ($baseurl, $m) = RT::Test->started_ok;
  16
  17 $m->login;
  18 $m->get( $baseurl.'/Admin/Queues/');
  19 $m->follow_link_ok( {text => 'General'} );
  20 $m->submit_form( form_number => 3,
  21          fields      => { CorrespondAddress => 'rt@example.com' } );
  22 $m->content_like(qr/rt\@example.com.* - never/, 'has key info.');
  23
  24 ok(my $user = RT::User->new(RT->SystemUser));
  25 ok($user->Load('root'), "Loaded user 'root'");
  26 $user->SetEmailAddress('rt@example.com');
  27
  28 if (0) {
  29     # XXX: need to generate these mails
  30     diag "no signature";
  31     diag "no encryption on encrypted queue";
  32     diag "mismatched signature";
  33     diag "unknown public key";
  34     diag "unknown private key";
  35     diag "signer != sender";
  36     diag "encryption to user whose pubkey is not signed";
  37     diag "no encryption of attachment on encrypted queue";
  38     diag "no signature of attachment";
  39     diag "revoked key";
  40     diag "expired key";
  41     diag "unknown algorithm";
  42 }
  43