testrunner.rtlgenerics.pp 639 B

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