paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-json: fixed tests

Browse Source
This commit is contained in:
mattias 2022-05-21 03:31:42 +02:00
parent 5700cb56ac
commit 08a9b16c82
2 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-json/tests/testjson.lpi
View File

@ -71,11 +71,6 @@
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="../src"/> <OtherUnitFiles Value="../src"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>

7
packages/fcl-json/tests/testjsonreader.pas
View File

@ -1,6 +1,7 @@
unit testjsonreader; unit testjsonreader;
{$mode objfpc} {$mode objfpc}
{$codepage UTF8}
interface interface
@ -38,10 +39,6 @@ type
Property List : TStrings Read GetList; Property List : TStrings Read GetList;
end; end;
{ TTestParser }
{ TTestReader }
{ TBaseTestReader } { TBaseTestReader }
TBaseTestReader = class(TTestJSON) TBaseTestReader = class(TTestJSON)
@ -79,6 +76,8 @@ type
procedure TestGarbageFail; procedure TestGarbageFail;
end; end;
{ TTestReader }
TTestReader = Class(TBaseTestReader) TTestReader = Class(TBaseTestReader)
Private Private
FReader: TMyJSONReader; FReader: TMyJSONReader;