paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-27 11:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add tests for system helpers

Browse Source
This commit is contained in:
michael 2020-04-25 17:26:14 +00:00
parent b3d53e217a
commit 4c20584708
3 changed files with 1283 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1248
test/tcsyshelpers.pp Normal file
View File

File diff suppressed because it is too large Load Diff

19
test/testrtl.lpi
View File

@ -28,7 +28,6 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams> </RunParams>
<Units> <Units>
<Unit> <Unit>
@ -66,6 +65,10 @@
<Filename Value="../packages/rtl/simplelinkedlist.pas"/> <Filename Value="../packages/rtl/simplelinkedlist.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit> </Unit>
<Unit>
<Filename Value="tcsyshelpers.pp"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -98,16 +101,16 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions>
<Item1> <Item>
<Name Value="EAbort"/> <Name Value="EAbort"/>
</Item1> </Item>
<Item2> <Item>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>
</Item2> </Item>
<Item3> <Item>
<Name Value="EFOpenError"/> <Name Value="EFOpenError"/>
</Item3> </Item>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>

25
test/testrtl.lpr
View File

@ -1,9 +1,32 @@
{ 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; program testrtl;
{$mode objfpc} {$mode objfpc}
uses uses
browserconsole, {browsertestrunner} consoletestrunner, JS, Classes, SysUtils, Web, frmrtlrun, tcstream, tccompstreaming, simplelinkedlist; browserconsole, consoletestrunner, frmrtlrun,
tcstream, tccompstreaming, simplelinkedlist, tcsyshelpers;
var var
Application : TTestRunner; Application : TTestRunner;