mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 10:43:41 +02:00
8a29f2f36c
* fixed memleak with long options + added stylesheet parameter + added example stylesheet * renamed App to Appliction, so Lazarus can set the Application.Title git-svn-id: trunk@10183 -
29 lines
749 B
PHP
29 lines
749 B
PHP
NewSource :=
|
|
'program FPCUnitProject1;' + #13
|
|
+ #13
|
|
+ '{$mode objfpc}{$H+}' + #13
|
|
+ #13
|
|
+ 'uses' + #13
|
|
+ ' Classes, consoletestrunner;' + #13
|
|
+ #13
|
|
+ 'type' + #13
|
|
+ #13
|
|
+ ' { TLazTestRunner }' + #13
|
|
+ #13
|
|
+ ' TMyTestRunner = class(TTestRunner)' + #13
|
|
+ ' protected' + #13
|
|
+ ' // override the protected methods of TTestRunner to customize its behavior' + #13
|
|
+ ' end;' + #13
|
|
+ #13
|
|
+ 'var' + #13
|
|
+ ' Application: TMyTestRunner;' + #13
|
|
+ #13
|
|
+ 'begin' + #13
|
|
+ ' Application := TMyTestRunner.Create(nil);' + #13
|
|
+ ' Application.Initialize;' + #13
|
|
+ ' Application.Title := ''FPCUnit Console test runner'';' + #13
|
|
+ ' Application.Run;' + #13
|
|
+ ' Application.Free;' + #13
|
|
+ 'end.' + #13
|
|
;
|