From 7664b32e5fbbe97a11ef8a71c8ecf55e8c92a99d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 28 Apr 2022 19:26:02 +0200
Subject: [PATCH] fcl-hash: added rsa test

---
 packages/fcl-hash/tests/utestpem.pp | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-hash/tests/utestpem.pp b/packages/fcl-hash/tests/utestpem.pp
index 3097ad12e9..b5dcf9e2e4 100644
--- a/packages/fcl-hash/tests/utestpem.pp
+++ b/packages/fcl-hash/tests/utestpem.pp
@@ -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';
@@ -55,7 +55,7 @@ begin
   try
     Res:=FileExists(PrivateKeyFile) and PemIsECDSA(PrivateKeyFile, List);
     if Res then
-       PemLoadPublicKey64FromList(List, PrivateKey, PublicKey, PublicKeyX64, PublicKeyY64);
+      PemLoadPublicKey64FromList(List, PrivateKey, PublicKey, PublicKeyX64, PublicKeyY64);
     AssertEquals('Private key',resprivatekey,BytesToHexStr(BytesFromVar(@PrivateKey,Sizeof(PrivateKey))));
     AssertEquals('Public  key',respublickey,BytesToHexStr(BytesFromVar(@PublicKey,Sizeof(PublicKey))));
     AssertEquals('X',resX,PublicKeyX64);
@@ -71,6 +71,12 @@ begin
   end;
 end;
 
+procedure TTestPEM.TestRSA_RS256Verify;
+begin
+  if not fprsa.TestRS256Verify then
+    Fail('TestRS256Verify');
+end;
+
 initialization
   RegisterTest(TTestPEM);
 end.