From e4ad3d5c16956fc5358f9910029acdd35c42b772 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 18 Oct 2017 21:12:42 +1300
Subject: Add encrypt-sign build test

---
 MANIFEST         |  1 +
 t/encrypt-sign.t | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 t/encrypt-sign.t

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' );
-- 
cgit v1.2.3