view release on metacpan or  search on metacpan

xt/xs/mode/02-CBC-Chaining_Block_Cipher.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;

use FindBin;
use lib "$FindBin::Bin/../../lib/";
use Test::Crypt::Rijndael::XS qw( test_rijndael_xs_encryption_and_decryption );

use lib "$FindBin::Bin/../../../t/lib/";
use Test::Crypt::Rijndael::Constant qw(
    $DEFAULT_IV
    $INPUT_BLOCKS
    $KEYS
    $CIPHER_TEXT
);

use Crypt::Rijndael;

subtest 'Encryption with 128 Bit Key' => sub {
    for my $num_blocks ( 1, 2, 3 ) {
        subtest "$num_blocks Blocks" => sub {
            test_rijndael_xs_encryption_and_decryption(
                key   => $KEYS->{128},
                mode  => 'MODE_CBC',
                iv    => $DEFAULT_IV,
                plain_text  => $INPUT_BLOCKS->{$num_blocks},
                cipher_text => $CIPHER_TEXT->{CBC}{$num_blocks}{128},
            );
        };
    }
};

subtest 'Encryption with 192 Bit Key' => sub {
    for my $num_blocks ( 1, 2, 3 ) {
        subtest "$num_blocks Blocks" => sub {
            test_rijndael_xs_encryption_and_decryption(
                key   => $KEYS->{192},
                mode  => 'MODE_CBC',
                iv    => $DEFAULT_IV,
                plain_text  => $INPUT_BLOCKS->{$num_blocks},
                cipher_text => $CIPHER_TEXT->{CBC}{$num_blocks}{192},
            );
        };
    }
};

subtest 'Encryption with 256 Bit Key' => sub {
    for my $num_blocks ( 1, 2, 3 ) {
        subtest "$num_blocks Blocks" => sub {
            test_rijndael_xs_encryption_and_decryption(
                key   => $KEYS->{256},
                mode  => 'MODE_CBC',
                iv    => $DEFAULT_IV,
                plain_text  => $INPUT_BLOCKS->{$num_blocks},
                cipher_text => $CIPHER_TEXT->{CBC}{$num_blocks}{256},
            );
        };
    }
};

done_testing;