blob: 9611d7a7f7265b8de9bbd2d9a72bb8dd3f3ad83d (
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.07';
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' );
|