From 65bcfe36b37703169afc2d62574a8e7cabcbf477 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Sat, 3 Oct 2020 13:42:43 +0000
Subject: [PATCH] fcl-json: fixed writing boolean lowercase, as expected by
 reader

git-svn-id: trunk@47040 -
---
 packages/fcl-json/src/fpjson.pp         | 2 +-
 packages/fcl-json/tests/testjsondata.pp | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/fcl-json/src/fpjson.pp b/packages/fcl-json/src/fpjson.pp
index d83157a624..f4acce05a1 100644
--- a/packages/fcl-json/src/fpjson.pp
+++ b/packages/fcl-json/src/fpjson.pp
@@ -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);
diff --git a/packages/fcl-json/tests/testjsondata.pp b/packages/fcl-json/tests/testjsondata.pp
index bb100ee16d..5c73c7489a 100644
--- a/packages/fcl-json/tests/testjsondata.pp
+++ b/packages/fcl-json/tests/testjsondata.pp
@@ -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);