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

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