Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Testing adjustments to work with the new RESTClient

Browse Source
This commit is contained in:
João Antônio Duarte 2020-11-29 10:34:02 -03:00
parent 181cf5aba9
commit 972237a17a
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
unittests/general/Several/DMVCFrameworkTests.dproj
View File

@ -4,7 +4,7 @@
<ProjectVersion>19.1</ProjectVersion> <ProjectVersion>19.1</ProjectVersion>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">CI</Config> <Config Condition="'$(Config)'==''">GUI</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform> <Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Console</AppType> <AppType>Console</AppType>

12
unittests/general/Several/LiveServerTestU.pas
View File

@ -933,7 +933,7 @@ end;
procedure TServerTest.TestEntityWithArrays; procedure TServerTest.TestEntityWithArrays;
var var
lRes: IRESTResponse; lRes: IMVCRESTResponse;
lObj1, lObj2: TEntityWithArray; lObj1, lObj2: TEntityWithArray;
lBody: String; lBody: String;
begin begin
@ -944,10 +944,10 @@ begin
lObj1.Booleans := [true, false]; lObj1.Booleans := [true, false];
lBody := GetDefaultSerializer.SerializeObject(lObj1); lBody := GetDefaultSerializer.SerializeObject(lObj1);
lRes := RESTClient.doPOST('/entitywitharrays', [], lBody); lRes := RESTClient.Post('/entitywitharrays', lBody);
lObj2 := TEntityWithArray.Create; lObj2 := TEntityWithArray.Create;
try try
GetDefaultSerializer.DeserializeObject(lRes.BodyAsString, lObj2); GetDefaultSerializer.DeserializeObject(lRes.Content, lObj2);
Assert.AreEqual(4, Length(lObj2.Names)); Assert.AreEqual(4, Length(lObj2.Names));
Assert.AreEqual(lObj1.Names[0], lObj2.Names[0]); Assert.AreEqual(lObj1.Names[0], lObj2.Names[0]);
@ -975,7 +975,7 @@ end;
procedure TServerTest.TestEntityWithEmptyArrays; procedure TServerTest.TestEntityWithEmptyArrays;
var var
lRes: IRESTResponse; lRes: IMVCRESTResponse;
lObj1, lObj2: TEntityWithArray; lObj1, lObj2: TEntityWithArray;
lBody: String; lBody: String;
begin begin
@ -983,10 +983,10 @@ begin
try try
lBody := GetDefaultSerializer.SerializeObject(lObj1); lBody := GetDefaultSerializer.SerializeObject(lObj1);
lRes := RESTClient.doPOST('/entitywitharrays', [], lBody); lRes := RESTClient.Post('/entitywitharrays', lBody);
lObj2 := TEntityWithArray.Create; lObj2 := TEntityWithArray.Create;
try try
GetDefaultSerializer.DeserializeObject(lRes.BodyAsString, lObj2); GetDefaultSerializer.DeserializeObject(lRes.Content, lObj2);
Assert.AreEqual(1, Length(lObj2.Names)); Assert.AreEqual(1, Length(lObj2.Names));
Assert.AreEqual('added', lObj2.Names[0]); Assert.AreEqual('added', lObj2.Names[0]);