CryptoLibConsole.lpr 510 B

1234567891011121314151617181920212223242526
  1. program CryptoLibConsole;
  2. {$mode objfpc}{$H+}
  3. uses
  4. consoletestrunner,
  5. IESCipherTests; // pass x64, pass arm, arm raises exception
  6. type
  7. { TCryptoLibConsoleTestRunner }
  8. TCryptoLibConsoleTestRunner = class(TTestRunner)
  9. protected
  10. // override the protected methods of TTestRunner to customize its behaviour
  11. end;
  12. var
  13. Application: TCryptoLibConsoleTestRunner;
  14. begin
  15. Application := TCryptoLibConsoleTestRunner.Create(nil);
  16. Application.Initialize;
  17. Application.Run;
  18. Application.Free;
  19. end.