Updated RESTAdapter tests

danieleteti · Apr 23, 2024 · d7bbd34 · d7bbd34
1 parent 2559a00
commit d7bbd34
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/unittests/general/Several/RESTAdapterTestsU.pas b/unittests/general/Several/RESTAdapterTestsU.pas
@@ -33,7 +33,7 @@ interface
   DUnitX.TestFramework,
   BusinessObjectsU,
   Generics.Collections,
-  System.JSON,
+  JsonDataObjects,
   MVCFramework.RESTClient,
   MVCFramework.Commons,
   MVCFramework.Serializer.Commons,
@@ -73,7 +73,7 @@ interface
     [Headers('Accept', 'application/json')]
     [Headers('ContentType', 'application/json')]
     [RESTResource(HttpGet, '/adapter/testconsumejson')]
-    function HeadersApplicationJSON: TJSONValue;
+    function HeadersApplicationJSON: TJsonBaseObject;
 
     [Headers('Accept', 'text/plain')]
     [Headers('ContentType', 'text/plain')]
@@ -214,7 +214,7 @@ procedure TTestRESTAdapter.TestHeadersApplicationJSON;
 begin
   Res := TESTService.HeadersApplicationJSON as TJSONObject;
   try
-    Assert.AreEqual('Hello World', Res.GetValue('key').Value);
+    Assert.AreEqual('Hello World', Res.S['key']);
   finally
     Res.Free;
   end;