1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
NewSource :=
'program FPCUnitProject1;' + sLineBreak
+ sLineBreak
+ '{$mode objfpc}{$H+}' + sLineBreak
+ sLineBreak
+ 'uses' + sLineBreak
+ ' Classes, consoletestrunner;' + sLineBreak
+ sLineBreak
+ 'type' + sLineBreak
+ sLineBreak
+ ' { TMyTestRunner }' + sLineBreak
+ sLineBreak
+ ' TMyTestRunner = class(TTestRunner)' + sLineBreak
+ ' protected' + sLineBreak
+ ' // override the protected methods of TTestRunner to customize its behavior' + sLineBreak
+ ' end;' + sLineBreak
+ sLineBreak
+ 'var' + sLineBreak
+ ' Application: TMyTestRunner;' + sLineBreak
+ sLineBreak
+ 'begin' + sLineBreak
+ ' Application := TMyTestRunner.Create(nil);' + sLineBreak
+ ' Application.Initialize;' + sLineBreak
+ ' Application.Title := ''FPCUnit Console test runner'';' + sLineBreak
+ ' Application.Run;' + sLineBreak
+ ' Application.Free;' + sLineBreak
+ 'end.' + sLineBreak
;
|
