aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2017-10-18 11:46:54 +1300
committerTom Ryder <tom@sanctum.geek.nz>2017-10-18 11:47:28 +1300
commit4a5ae148af2f20eeb0b941850fa2bbec919c4d74 (patch)
tree196093e24812e59e6dc19808c7984e6ccebbf668
parentBackport to v5.8.1, bump version (diff)
downloadMail-Run-Crypt-4a5ae148af2f20eeb0b941850fa2bbec919c4d74.tar.gz
Mail-Run-Crypt-4a5ae148af2f20eeb0b941850fa2bbec919c4d74.zip
Add a test of `mailto` constructor requirement
-rw-r--r--MANIFEST1
-rw-r--r--t/require-mailto.t19
2 files changed, 20 insertions, 0 deletions
diff --git a/MANIFEST b/MANIFEST
index 8c78590..e58e238 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -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' );