| 1234567891011121314151617181920212223 |
- program console;
- {$mode objfpc}{$H+}
- uses
- heaptrc, Classes, consoletestrunner, alltestsrt;
- type
- { TMyTestRunner }
- TMyTestRunner = class(TTestRunner)
- end;
- begin
- with TMyTestRunner.Create(nil) do
- try
- Initialize;
- Run;
- finally
- Free;
- end;
- end.
|