aboutsummaryrefslogtreecommitdiff
path: root/t/encrypt-explicit.t
blob: 034ae2407e968dd090bbe649d68bd755174f26c1 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!perl -T

use strict;
use warnings;
use utf8;

use Test::More tests => 2;

use Mail::Run::Crypt;

our $VERSION = '0.12';

my %opts = ( mailto => 'nobody@example.com', encrypt => 1 );
my $mrc = Mail::Run::Crypt->new(%opts);
ok( $mrc->{encrypt} == 1, 'encrypt_explicit_encrypt_on' );
ok( $mrc->{sign} == 0,    'encrypt_explicit_sign_off' );