testrunner.rtlgenerics.pp 580 B

123456789101112131415161718192021222324252627282930
  1. { %CONFIGFILE=fpcunit-console-defaults.ini testdefaults.ini }
  2. program testrunner.rtlgenerics;
  3. {$mode objfpc}{$H+}
  4. uses
  5. consoletestrunner,
  6. tests.generics.bugs,
  7. tests.generics.hashmaps,
  8. tests.generics.arrayhelper,
  9. tests.generics.trees,
  10. tests.generics.stdcollections,
  11. tests.generics.sets
  12. ;
  13. var
  14. Application: TTestRunner;
  15. begin
  16. Application := TTestRunner.Create(nil);
  17. Application.Initialize;
  18. Application.Title := 'RTL-Generics unit tests';
  19. Application.Run;
  20. Application.Free;
  21. {$IFDEF WAIT_FOR_ENTER}
  22. WriteLn('Press enter...');
  23. ReadLn;
  24. {$ENDIF}
  25. end.