paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 12:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-json: fixed writing boolean lowercase, as expected by reader

Browse Source 
git-svn-id: trunk@47040 -
This commit is contained in:
Mattias Gaertner 2020-10-03 13:42:43 +00:00
parent 18f5fab782
commit 65bcfe36b3
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-json/src/fpjson.pp
View File

@ -1796,7 +1796,7 @@ end;
function TJSONBoolean.GetAsString: TJSONStringType;
begin
Result:=BoolToStr(FValue, True);
Result:=BoolToStr(FValue, 'true', 'false');
end;
procedure TJSONBoolean.SetAsString(const AValue: TJSONStringType);

6
packages/fcl-json/tests/testjsondata.pp
View File

@ -19,7 +19,7 @@ unit testjsondata;
interface
uses
Classes, SysUtils, fpcunit, testregistry, fpjson, contnrs;
Classes, SysUtils, fpcunit, testregistry, fpjson;
type
TMyNull = Class(TJSONNull);
@ -1311,7 +1311,7 @@ begin
TestAsInteger(J,1);
TestAsInt64(J,1);
TestAsQword(J,1);
TestAsString(J,BoolToStr(True,True));
TestAsString(J,BoolToStr(True,'true','false'));
TestAsFloat(J,1.0);
finally
FreeAndNil(J);
@ -1334,7 +1334,7 @@ begin
TestAsInteger(J,0);
TestAsInt64(J,0);
TestAsQWord(J,0);
TestAsString(J,BoolToStr(False,True));
TestAsString(J,BoolToStr(False,'true','false'));
TestAsFloat(J,0.0);
finally
FreeAndNil(J);