Selaa lähdekoodia

fix test initialization logic

Ugochukwu Mmaduekwe 1 kuukausi sitten
vanhempi
sitoutus
bd9deefd7f

+ 3 - 3
CryptoLib.Tests/src/Crypto/RSABlindedTests.pas

@@ -9,12 +9,12 @@ interface
 uses
   SysUtils,
   Classes,
-  {$IFDEF FPC}
+{$IFDEF FPC}
   fpcunit,
   testregistry,
-  {$ELSE}
+{$ELSE}
   TestFramework,
-  {$ENDIF}
+{$ENDIF}
   ClpBigInteger,
   ClpSecureRandom,
   ClpEncoders,

+ 5 - 1
CryptoLib.Tests/src/Crypto/RSATests.pas

@@ -396,6 +396,10 @@ end;
 
 initialization
 
-RegisterTest(TTestRSA.Suite);
+{$IFDEF FPC}
+  RegisterTest(TTestRSA);
+{$ELSE}
+  RegisterTest(TTestRSA.Suite);
+{$ENDIF FPC}
 
 end.