diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-18 11:46:54 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-18 11:47:28 +1300 |
commit | 4a5ae148af2f20eeb0b941850fa2bbec919c4d74 (patch) | |
tree | 196093e24812e59e6dc19808c7984e6ccebbf668 | |
parent | Backport to v5.8.1, bump version (diff) | |
download | Mail-Run-Crypt-4a5ae148af2f20eeb0b941850fa2bbec919c4d74.tar.gz Mail-Run-Crypt-4a5ae148af2f20eeb0b941850fa2bbec919c4d74.zip |
Add a test of `mailto` constructor requirement
-rw-r--r-- | MANIFEST | 1 | ||||
-rw-r--r-- | t/require-mailto.t | 19 |
2 files changed, 20 insertions, 0 deletions
@@ -6,6 +6,7 @@ Makefile.PL MANIFEST README t/instantiate.t +t/require-mailto.t xt/manifest.t xt/pod-coverage.t xt/pod.t diff --git a/t/require-mailto.t b/t/require-mailto.t new file mode 100644 index 0000000..9298cec --- /dev/null +++ b/t/require-mailto.t @@ -0,0 +1,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.05'; + +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' ); |