testhash.pp 448 B

1234567891011121314151617181920212223
  1. { %CONFIGFILE=fpcunit-console-defaults.ini testdefaults.ini }
  2. program testhash;
  3. {$mode objfpc}
  4. uses
  5. {$ifdef unix}
  6. cwstring,
  7. {$endif}
  8. consoletestrunner, utestsha256, utestonetimepass, utestsha512, utestpem, fpECC, fphashutils, fpsha256;
  9. var
  10. Application: TTestRunner;
  11. begin
  12. DefaultFormat:=fPlain;
  13. DefaultRunAllTests:=True;
  14. Application := TTestRunner.Create(nil);
  15. Application.Initialize;
  16. Application.Run;
  17. Application.Free;
  18. end.