diff options
Diffstat (limited to 't/encrypt-sign.t')
-rw-r--r-- | t/encrypt-sign.t | 32 |
1 files changed, 32 insertions, 0 deletions
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' ); |