Add encrypt-sign build test

2 files changed, 33 insertions, 0 deletions

diff --git a/MANIFEST b/MANIFEST
index fe7fd55..379a55b 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -6,6 +6,7 @@ Makefile.PL
 MANIFEST
 README
 t/encrypt.t
+t/encrypt-sign.t
 t/require-mailto.t
 xt/manifest.t
 xt/pod-coverage.t
diff --git a/t/encrypt-sign.t b/t/encrypt-sign.t
new file mode 100644
index 0000000..f7e3ab2
--- /dev/null
+++ b/t/encrypt-sign.t
@@ -0,0 +1,32 @@
+#!perl -T
+
+use strict;
+use warnings;
+use utf8;
+
+use Test::More tests => 10;
+
+use Mail::Run::Crypt;
+
+our $VERSION = '0.06';
+
+my %opts = (
+    mailto     => 'nobody@example.com',
+    sign       => 1,
+    keyid      => '0x12345678DEADBEEF',
+    passphrase => 'faster than the fastest horse alive',
+);
+
+my $mrc = Mail::Run::Crypt->new(%opts);
+
+my $pkg = 'Mail::Run::Crypt';
+ok( defined $mrc, 'constructed' );
+isa_ok( $mrc, $pkg );
+can_ok( $pkg, 'run', 'bail', '_mail' );
+ok( $mrc->bail == $Mail::Run::Crypt::DEFAULT_EXIT, 'bail_default_exit' );
+ok( $mrc->{mailto} eq $opts{mailto},               'mailto_set' );
+ok( $mrc->{encrypt} == 1,                          'encrypt_on' );
+ok( $mrc->{sign} == 1,                             'sign_on' );
+ok( $mrc->{name} eq $pkg,                          'default_name' );
+ok( $mrc->{keyid} eq $opts{keyid},                 'keyid set' );
+ok( $mrc->{passphrase} eq $opts{passphrase},       'passphrase unset' );