Yet Another CPAN Grep

Crypt-EAMessage ( J/JM/JMASLAK/Crypt-EAMessage-1.232011.tar.gz, JMASLAK, 2023; MetaCPAN )

Crypt-EAMessage/t/07-keygen.t ( view source; MetaCPAN )

ly of hex characters" );
like( $key2, qr/^[0-9a-f]+$/s, "key2 consists only of hex characters" );
isnt( $key1, $key2, "key1 != key2" );

my $ea1 = Crypt::EAMessage->new( hex_key => $key1 );
my $ea2 =

e( $output, qr/^[0-9a-f]+$/s, "keygen consists only of hex characters" );

isnt( $key1, $output, "keygen is not key1" );
isnt( $key2, $output, "keygen is not key2" );

my $ea3 = Crypt::EAMessage->new(

Crypt-EAMessage ( J/JM/JMASLAK/Crypt-EAMessage-1.232011.tar.gz, JMASLAK, 2023; MetaCPAN )

Crypt-EAMessage/t/02-key.t ( view source; MetaCPAN )

;
        }

        my $raw_key = $ea->raw_key();
        my $hex_key = $ea->hex_key();

        isnt($raw_key, $hex_key, "Key $cnt has different hex and raw");

        if ($type eq 'hex_key') {

Crypt-EAMessage ( J/JM/JMASLAK/Crypt-EAMessage-1.232011.tar.gz, JMASLAK, 2023; MetaCPAN )

Crypt-EAMessage/t/03-encrypt-decrypt.t ( view source; MetaCPAN )

nt with tampered-with (appended) message");

    my $encrypted2 = $eamsg->encrypt_auth($txt);
    isnt($encrypted2, $encrypted, "Two encrypts of msg $cnt return different values");
}

done_testing;

1