04-crypt-random.t

use v6;
use lib 'lib';
use Test;

BEGIN {
    plan 8;
    unless %*ENV<TEST_CRYPT_RANDOM> {
        skip-rest("set TEST_CRYPT_RANDOM to run");
        exit;
    }
}

use Crypt::RSA;
use Crypt::Random;
use Crypt::Random::Extra;

my $crypt = Crypt::RSA.new(
    random-prime-generator => sub {
        crypt_random_prime()
    },
    random-range-picker => sub ($range) {
        my $size = log($range, 10).Int;
        my $rand = crypt_random_uniform($range.max,$size);
        return $range[$rand];
    }
);

my ($pub,$pri) = $crypt.generate-keys;
isa-ok $pub, Crypt::RSA::Key, 'public key';
isa-ok $pri, Crypt::RSA::Key, 'private key';

my $message = 2340823403012;
my $encrypted = $crypt.encrypt($message);
ok $encrypted, 'encrypted message';
ok $encrypted != $message, 'plaintext != ciphertext';
my $decrypted = $crypt.decrypt($encrypted);
ok $decrypted, "decrypted message";
is $decrypted, $message, "got original message";

$message = 764938576435;
my $signature = $crypt.generate-signature($message);
ok $signature, 'generated signature';
ok $crypt.verify-signature($message,$signature), "verified signature";

done-testing;