mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-05 17:07:45 +02:00
55 lines
2.1 KiB
ObjectPascal
55 lines
2.1 KiB
ObjectPascal
{ Test program for basic RTL functionality
|
|
|
|
Copyright (C) 2020- Michael Van Canneyt michael@freepascal.org
|
|
|
|
This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version
|
|
with the following modification:
|
|
|
|
As a special exception, the copyright holders of this library give you permission to link this library with independent modules
|
|
to produce an executable, regardless of the license terms of these independent modules,and to copy and distribute the resulting
|
|
executable under terms of your choice, provided that you also meet, for each linked independent module, the terms and conditions
|
|
of the license of that module. An independent module is a module which is not derived from or based on this library. If you
|
|
modify this library, you may extend this exception to your version of the library, but you are not obligated to do so. If you do
|
|
not wish to do so, delete this exception statement from your version.
|
|
|
|
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free
|
|
Software Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.
|
|
}
|
|
|
|
program testrtl;
|
|
|
|
{$mode objfpc}
|
|
|
|
uses
|
|
browserconsole, consoletestrunner, frmrtlrun, simplelinkedlist,
|
|
// tcstream,
|
|
tccompstreaming,
|
|
// tcsyshelpers,
|
|
// tcgenarrayhelper,
|
|
// tcstringhelp,
|
|
// tcgenericdictionary,
|
|
// tcgenericlist,
|
|
// tcgenericqueue,
|
|
// tcgenericstack,
|
|
// tcsysutils,
|
|
// tcclasses,
|
|
strutils,
|
|
sysutils;
|
|
|
|
var
|
|
Application : TTestRunner;
|
|
|
|
begin
|
|
SysUtils.HookUncaughtExceptions;
|
|
Application:=TTestRunner.Create(nil);
|
|
Application.RunFormClass:=TConsoleRunner;
|
|
Application.Initialize;
|
|
Application.Run;
|
|
|
|
// Application.Free;
|
|
end.
|