mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:48:11 +02:00
21 lines
480 B
ObjectPascal
21 lines
480 B
ObjectPascal
program fclbase_unittests;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, consoletestrunner, tests_fptemplate, tchashlist,
|
|
testexprpars, tcmaskutils, tcinifile, tccsvreadwrite,tcbufferedfilestream, tccsvdocument, utcchainstream, utclzw;
|
|
|
|
var
|
|
Application: TTestRunner;
|
|
|
|
begin
|
|
DefaultFormat:=fPlain;
|
|
DefaultRunAllTests:=True;
|
|
Application := TTestRunner.Create(nil);
|
|
Application.Initialize;
|
|
Application.Title := 'FCL-Base unittests';
|
|
Application.Run;
|
|
Application.Free;
|
|
end.
|