cbc.t

use Test2::V0 -target => 'Crypt::CBC';

subtest 'Crypt::CBC' => sub {
    my $a = Crypt::CBC->new(qw< -key A -cipher Blowfish >);
    my $b = Crypt::CBC->new(qw< -key B -cipher Blowfish >);
    my $s = 'Hello, World!';

    is(
        $a->decrypt( $a->encrypt($s) ),
        $s,
        'should encrypt[A] + decrypt[A] to the original value',
    );

    is(
        $b->decrypt( $b->encrypt($s) ),
        $s,
        'should encrypt[B] + decrypt[B] to the original value',
    );

    isnt(
        $a->decrypt( $b->encrypt($s) ),
        $s,
        'should fail when cipher secret is different - encrypt[B] + decrypt[A]',
    );
};

done_testing;