### ----------------------------------------------------
### -- OpenSSL
### -- Licenses: MIT
### -- Authors: Filip Sergot
### -- File: t/03-rsa.rakutest
### ----------------------------------------------------
use Test;
use OpenSSL::RSATools;

plan 8;

my $pem = slurp 't/key.pem';

my $rsa = OpenSSL::RSAKey.new(private-pem => $pem);
ok $rsa, 'Can create RSAKey object from pem encoded private key';

my $data = 'as df jk l';

my $signature = $rsa.sign($data.encode);
ok $signature ~~ Blob && $signature.bytes, 'Signed data using RSAKey';

ok $rsa.verify($data.encode, $signature), 'Can verify correctly';
ok !$rsa.verify("asdf".encode, $signature), 'verify fails on different data';

my $sha256-signature = $rsa.sign($data.encode, :sha256);
ok $sha256-signature ~~ Blob && $sha256-signature.bytes, 'Signed data using RSAKey (sha256)';
ok $sha256-signature ne $signature, 'Different signature than sha1';

ok $rsa.verify($data.encode, $sha256-signature, :sha256), 'Can verify correctly (sha256)';
ok !$rsa.verify("asdf".encode, $sha256-signature, :sha256), 'verify fails on different data (sha256)';

# vim: expandtab shiftwidth=4


