From 08a9b16c82d61ea383854174b81528532ef124ab Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 21 May 2022 03:31:42 +0200
Subject: [PATCH] fcl-json: fixed tests

---
 packages/fcl-json/tests/testjson.lpi       | 5 -----
 packages/fcl-json/tests/testjsonreader.pas | 7 +++----
 2 files changed, 3 insertions(+), 9 deletions(-)

diff --git a/packages/fcl-json/tests/testjson.lpi b/packages/fcl-json/tests/testjson.lpi
index 928cf4d09b..0a37c7242c 100644
--- a/packages/fcl-json/tests/testjson.lpi
+++ b/packages/fcl-json/tests/testjson.lpi
@@ -71,11 +71,6 @@
     <SearchPaths>
       <OtherUnitFiles Value="../src"/>
     </SearchPaths>
-    <Parsing>
-      <SyntaxOptions>
-        <UseAnsiStrings Value="False"/>
-      </SyntaxOptions>
-    </Parsing>
     <Linking>
       <Debugging>
         <UseHeaptrc Value="True"/>
diff --git a/packages/fcl-json/tests/testjsonreader.pas b/packages/fcl-json/tests/testjsonreader.pas
index e9cb7e59fe..3088787311 100644
--- a/packages/fcl-json/tests/testjsonreader.pas
+++ b/packages/fcl-json/tests/testjsonreader.pas
@@ -1,6 +1,7 @@
 unit testjsonreader;
 
 {$mode objfpc}
+{$codepage UTF8}
 
 interface
 
@@ -38,10 +39,6 @@ type
     Property List : TStrings Read GetList;
   end;
 
-  { TTestParser }
-
-  { TTestReader }
-
   { TBaseTestReader }
 
   TBaseTestReader = class(TTestJSON)
@@ -79,6 +76,8 @@ type
     procedure TestGarbageFail;
   end;
 
+  { TTestReader }
+
   TTestReader = Class(TBaseTestReader)
   Private
     FReader: TMyJSONReader;