From e682e925270d3b189c9a65708208b7c39352d6a6 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Fri, 20 Oct 2017 15:04:26 +1300 Subject: Add test of custom name in constructor --- MANIFEST | 1 + t/custom-name.t | 20 ++++++++++++++++++++ 2 files changed, 21 insertions(+) create mode 100644 t/custom-name.t 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' ); -- cgit v1.2.3