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

use strict;
use warnings;
use utf8;

use English '-no_match_vars';
use Test::More tests => 2;

use Mail::Run::Crypt;

our $VERSION = '0.09';

my $mrc;
my $error;
eval { $mrc = Mail::Run::Crypt->new() } or $error = $EVAL_ERROR;

ok( defined $error,                     'no_mailto_failed' );
ok( $error =~ m/^\QMAILTO required/msx, 'no_mailto_errorstr' );