testrunner.rtlgenerics.pp 668 B

1234567891011121314151617181920212223242526272829303132
  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. tests.generics.dictionary
  14. ;
  15. var
  16. Application: TTestRunner;
  17. begin
  18. Application := TTestRunner.Create(nil);
  19. Application.Initialize;
  20. Application.Title := 'RTL-Generics unit tests';
  21. Application.Run;
  22. Application.Free;
  23. {$IFDEF WAIT_FOR_ENTER}
  24. WriteLn('Press enter...');
  25. ReadLn;
  26. {$ENDIF}
  27. end.