rt/t/mail/gnupg-outgoing-signed_encrypted.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test::GnuPG
   5   tests         => undef,
   6   gnupg_options => {
   7     passphrase    => 'rt-test',
   8     'trust-model' => 'always',
   9   };
  10
  11 RT::Test->import_gnupg_key('rt-recipient@example.com');
  12 RT::Test->import_gnupg_key( 'rt-test@example.com' );
  13
  14 my $queue = RT::Test->load_or_create_queue(
  15     Name              => 'Regression',
  16     CorrespondAddress => 'rt-recipient@example.com',
  17     CommentAddress    => 'rt-recipient@example.com',
  18     Sign              => 1,
  19     Encrypt           => 1,
  20 );
  21 ok $queue && $queue->id, 'loaded or created queue';
  22
  23 my ( $baseurl, $m ) = RT::Test->started_ok;
  24 ok $m->login, 'logged in';
  25
  26 create_and_test_outgoing_emails( $queue, $m );
  27
  28 undef $m;
  29 done_testing;