view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

README
README.pod
t/00-load.t
t/01-msg.t
t/01-nodelist.t
t/10-crypt.t
t/data/msg.txt
t/data/nodelist.000
t/data/pointlist.000
t/data/pointlist_zone66
t/data/pubring.gpg
t/data/secring.gpg
t/manifest.t
t/pod-coverage.t
t/pod.t
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

t/10-crypt.t  view on Meta::CPAN

my $msg = <$fin>;
close $fin;

# Test #1
my $obj = new_ok('FTN::Crypt', [
    Nodelist => 't/data/nodelist.*',
    Pointlist => [
        't/data/pointlist.*',
        't/data/pointlist_zone66',
    ],
    Pubring  => 't/data/pubring.gpg',
    Secring  => 't/data/secring.gpg',
], 'Create FTN::Crypt object') or BAIL_OUT(FTN::Crypt->error);

# Test #2
can_ok($obj, qw/encrypt_message decrypt_message/) or BAIL_OUT('Required methods are unsupported by FTN::Crypt');

# Test #3
my $encrypted = $obj->encrypt_message(
    Address => '99:8877/2',
    Message => $msg,
);