@@ -9,12 +9,12 @@ interface
uses
SysUtils,
Classes,
- {$IFDEF FPC}
+{$IFDEF FPC}
fpcunit,
testregistry,
- {$ELSE}
+{$ELSE}
TestFramework,
- {$ENDIF}
+{$ENDIF}
ClpBigInteger,
ClpSecureRandom,
ClpEncoders,
@@ -396,6 +396,10 @@ end;
initialization
-RegisterTest(TTestRSA.Suite);
+ RegisterTest(TTestRSA);
+ RegisterTest(TTestRSA.Suite);
+{$ENDIF FPC}
end.