1 files changed, 19 insertions, 0 deletions
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' );