view release on metacpan or  search on metacpan

t/84-max-stanzas-public-api.t  view on Meta::CPAN

            input       => $file,
            output      => $output,
            identities  => [$secret],
            max_stanzas => 65,
        );
        1;
    };
    is $@, '', 'max_stanzas => 65: decrypt_file does not croak';
    ok $ok, '  ... and reports success';
    is_deeply(
        Load(do { local (@ARGV, $/) = $output; <> }),
        { secret => 'shh' },
        '  ... having written the correct plaintext',
    );
};

###############################################################################
# 3. extract -- its own $class->decrypt(...) call site.
###############################################################################
subtest 'extract forwards max_stanzas through its own decrypt() call' => sub {
    my ($file) = stanza_fixture(data => { secret => 'shh' });