aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2017-10-20 15:04:26 +1300
committerTom Ryder <tom@sanctum.geek.nz>2017-10-20 15:04:26 +1300
commite682e925270d3b189c9a65708208b7c39352d6a6 (patch)
tree8054e7901427abac266bd56c45ada49e8f09b628
parentBump version (diff)
downloadMail-Run-Crypt-e682e925270d3b189c9a65708208b7c39352d6a6.tar.gz
Mail-Run-Crypt-e682e925270d3b189c9a65708208b7c39352d6a6.zip
Add test of custom name in constructor
-rw-r--r--MANIFEST1
-rw-r--r--t/custom-name.t20
2 files changed, 21 insertions, 0 deletions
diff --git a/MANIFEST b/MANIFEST
index 9ec0ce3..7220b8f 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -5,6 +5,7 @@ LICENSE
Makefile.PL
MANIFEST
README
+t/custom-name.t
t/encrypt.t
t/encrypt-sign.t
t/require-key-data.t
diff --git a/t/custom-name.t b/t/custom-name.t
new file mode 100644
index 0000000..9f47d10
--- /dev/null
+++ b/t/custom-name.t
@@ -0,0 +1,20 @@
+#!perl -T
+
+use strict;
+use warnings;
+use utf8;
+
+use Test::More tests => 2;
+
+use Mail::Run::Crypt;
+
+our $VERSION = '0.07';
+
+my $name = 'mrc_custom';
+my %opts = (
+ mailto => 'nobody@example.com',
+ name => $name,
+);
+my $mrc = Mail::Run::Crypt->new(%opts);
+ok( defined $mrc, 'constructed' );
+ok( $mrc->{name} eq $name, 'custom_name' );