mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 04:47:57 +02:00
36 lines
530 B
ObjectPascal
36 lines
530 B
ObjectPascal
{ %TARGET=win32,win64,wince,linux,solaris,openbsd }
|
|
program tregtestframework;
|
|
|
|
{$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
|
|
regtcxmlreg,
|
|
regtestbasics;
|
|
|
|
Var
|
|
A : TTestRunner;
|
|
|
|
begin
|
|
DefaultFormat:=fPlain;
|
|
DefaultRunAllTests:=True;
|
|
A:=TTestRunner.Create(Nil);
|
|
try
|
|
A.Initialize;
|
|
A.Run;
|
|
finally
|
|
A.Free;
|
|
end;
|
|
end.
|