testdbdigest.lpr 646 B

123456789101112131415161718192021222324252627282930
  1. program testdbdigest;
  2. {$mode objfpc}{$H+}
  3. uses
  4. Classes, consoletestrunner, tctestsql, digestanalyst, tsdb, tstypes, tsstring, tsutils, tcsetup, tcanalyst, tctsutils;
  5. type
  6. { TMyTestRunner }
  7. TMyTestRunner = class(TTestRunner)
  8. protected
  9. // override the protected methods of TTestRunner to customize its behavior
  10. end;
  11. var
  12. Application: TMyTestRunner;
  13. begin
  14. // Will stop V_ERROR from exiting.
  15. IsCGI:=True;
  16. DefaultRunAllTests:=True;
  17. DefaultFormat:=fPlain;
  18. Application := TMyTestRunner.Create(nil);
  19. Application.Initialize;
  20. Application.Title := 'FPCUnit Console test runner';
  21. Application.Run;
  22. Application.Free;
  23. end.