paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 16:09:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-hash: added rsa test

Browse Source
This commit is contained in:
mattias 2022-04-28 19:26:02 +02:00
parent 60c967f255
commit 7664b32e5f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-hash/tests/utestpem.pp
View File

@ -5,7 +5,7 @@ unit utestpem;
interface
uses
Classes, SysUtils, fpcunit, testregistry, fpasn, fppem;
Classes, SysUtils, fpcunit, testregistry, fpasn, fppem, fprsa;
Type
@ -14,13 +14,13 @@ Type
TTestPEM = Class(TTestCase)
Published
Procedure TestLoad;
Procedure TestRSA_RS256Verify;
end;
implementation
uses basenenc, fphashutils, fpecc;
{ TTestPEM }
Const
PrivateKeyFile = 'private-key.pem';
@ -71,6 +71,12 @@ begin
end;
end;
procedure TTestPEM.TestRSA_RS256Verify;
begin
if not fprsa.TestRS256Verify then
Fail('TestRS256Verify');
end;
initialization
RegisterTest(TTestPEM);
end.