view release on metacpan or  search on metacpan

t/08-compress.t  view on Meta::CPAN

use strict;
use Test::More;

use Crypt::OpenPGP::Compressed;

my $data = <<TEXT;
I never wanted 2 be your weekend lover
I only wanted 2 be some kind of friend
Baby I could never steal u from another
it's such a shame our friendship had 2 end
TEXT

my %TESTS;
BEGIN {
    %TESTS = %Crypt::OpenPGP::Compressed::ALG;
    my $num_tests = 4 * scalar keys %TESTS;
    plan tests => $num_tests;
}

for my $cid ( sort { $a <=> $b } keys %TESTS ) {
    my $cdata = Crypt::OpenPGP::Compressed->new(
        Data => $data,
        Alg  => $cid
    );
    isa_ok $cdata, 'Crypt::OpenPGP::Compressed';
    is $cdata->alg, $TESTS{ $cid }, 'alg matches';
    is $cdata->alg_id, $cid, 'alg_id matches';

    my $decomp = $cdata->decompress;
    is $decomp, $data, 'decompressed data matches original';
}