1 files changed, 39 insertions, 0 deletions
diff --git a/t/require-key-data.t b/t/require-key-data.t
new file mode 100644
index 0000000..198e7ea
--- /dev/null
+++ b/t/require-key-data.t
@@ -0,0 +1,39 @@
+#!perl -T
+
+use strict;
+use warnings;
+use utf8;
+
+use English '-no_match_vars';
+use Test::More tests => 4;
+
+use Mail::Run::Crypt;
+
+our $VERSION = '0.06';
+
+{
+    my $mrc;
+    my $error;
+    my %opts = (
+        mailto     => 'nobody@example.com',
+        sign       => 1,
+        passphrase => 'faster than the fastest horse alive'
+    );
+    eval { $mrc = Mail::Run::Crypt->new(%opts) } or $error = $EVAL_ERROR;
+    ok( defined $error,                                'no_keyid_failed' );
+    ok( $error =~ m/^\Qkeyid required for signing/msx, 'no_keyid_errorstr' );
+}
+
+{
+    my $mrc;
+    my $error;
+    my %opts = (
+        mailto => 'nobody@example.com',
+        sign   => 1,
+        keyid  => '0x12345678DEADBEEF'
+    );
+    eval { $mrc = Mail::Run::Crypt->new(%opts) } or $error = $EVAL_ERROR;
+    ok( defined $error, 'no_passphrase_failed' );
+    ok( $error =~ m/^\Qpassphrase required for signing/msx,
+        'no_passphrase_errorstr' );
+}