aboutsummaryrefslogtreecommitdiff
path: root/t/custom-name.t
blob: 57dc90ba87f98b54a844521566f27d6fbcbf5e8a (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!perl -T

use strict;
use warnings;
use utf8;

use Test::More tests => 2;

use Mail::Run::Crypt;

our $VERSION = '0.10';

my $name = 'mrc_custom';
my %opts = (
    mailto => 'nobody@example.com',
    name   => $name,
);
my $mrc = Mail::Run::Crypt->new(%opts);
ok( defined $mrc,          'constructed' );
ok( $mrc->{name} eq $name, 'custom_name' );