mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 22:19:32 +02:00
24 lines
394 B
ObjectPascal
24 lines
394 B
ObjectPascal
program testjs;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
{$IFDEF Unix}
|
|
cwstring,
|
|
{$ENDIF}
|
|
Classes, consoletestrunner,
|
|
// tests
|
|
tcscanner, tcparser, tcwriter, TCSrcMap, tctsparser, tctstopas;
|
|
|
|
var
|
|
Application: TTestRunner;
|
|
|
|
begin
|
|
DefaultFormat:=fplain;
|
|
DefaultRunAllTests:=True;
|
|
Application := TTestRunner.Create(nil);
|
|
Application.Initialize;
|
|
Application.Run;
|
|
Application.Free;
|
|
end.
|