fcl-json: fixed tests

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"/>

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;