blob: 49c3222a3419331e9e2f9d88c58b83cd05ff6dc4 (
plain)
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
29
30
31
32
33
34
|
program regtestframework;
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
{$IFDEF WINDOWS}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
{$ifdef unix}
cwstring,
{$endif}
SysUtils,
fpcunit, testreport, testregistry, consoletestrunner,
// Units wich contains the tests
tcxmlreg,
testbasics;
Var
A : TTestRunner;
begin
DefaultFormat:=fPlain;
DefaultRunAllTests:=True;
A:=TTestRunner.Create(Nil);
try
A.Initialize;
A.Run;
finally
A.Free;
end;
end.
|