Add test of custom name in constructor

1 files changed, 20 insertions, 0 deletions

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' );