mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 08:15:53 +01:00
2405 lines
76 KiB
ObjectPascal
2405 lines
76 KiB
ObjectPascal
// ***************************************************************************
|
|
//
|
|
// Delphi MVC Framework
|
|
//
|
|
// Copyright (c) 2010-2020 Daniele Teti and the DMVCFramework Team
|
|
//
|
|
// https://github.com/danieleteti/delphimvcframework
|
|
//
|
|
// ***************************************************************************
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
//
|
|
// *************************************************************************** }
|
|
|
|
unit LiveServerTestU;
|
|
|
|
interface
|
|
|
|
uses
|
|
DUnitX.TestFramework,
|
|
MVCFramework.RESTClient,
|
|
MVCFramework.JSONRPC.Client,
|
|
System.DateUtils,
|
|
System.Hash;
|
|
|
|
type
|
|
|
|
TBaseServerTest = class(TObject)
|
|
protected
|
|
RESTClient: TRESTClient;
|
|
procedure DoLoginWith(UserName: string);
|
|
procedure DoLogout;
|
|
public
|
|
[Setup]
|
|
procedure Setup; virtual;
|
|
[TearDown]
|
|
procedure TearDown;
|
|
|
|
end;
|
|
|
|
[TestFixture]
|
|
TServerTest = class(TBaseServerTest)
|
|
public
|
|
[Test]
|
|
[TestCase('request url /fault', '/exception/fault')]
|
|
[TestCase('request url /fault2', '/exception/fault2')]
|
|
procedure TestControllerWithExceptionInCreate(const URLSegment: string);
|
|
|
|
[Test]
|
|
procedure TestReqWithParams;
|
|
|
|
// URL_MAPPED_PARAMS_ALLOWED_CHARS = ' àèéùòì@\[\]\{\}\(\)\=;&#\.\_\,%\w\d\x2D\x3A';
|
|
[Test]
|
|
[TestCase('1', ' à,è')]
|
|
[TestCase('2', 'é,ù,ò')]
|
|
[TestCase('3', 'ì,@,[')]
|
|
[TestCase('4', '],{,}')]
|
|
[TestCase('5', '(,),\')]
|
|
[TestCase('6', '=,;,&')]
|
|
[TestCase('7', '#,.,_')]
|
|
[TestCase('8', '%, , ')]
|
|
procedure TestReqWithURLMappedParams(const par1, par2, par3: string);
|
|
[Test]
|
|
procedure TestPOSTWithParamsAndJSONBody;
|
|
[Test]
|
|
procedure TestPOSTWithObjectJSONBody;
|
|
[Test]
|
|
procedure TestCustomerEcho;
|
|
[Test]
|
|
procedure TestXHTTPMethodOverride_POST_as_PUT;
|
|
[Test]
|
|
procedure TestPUTWithParamsAndJSONBody;
|
|
[Test]
|
|
procedure TestCookies;
|
|
[Test]
|
|
procedure TestSessionWithLogin;
|
|
[Test]
|
|
procedure TestSession;
|
|
[Test]
|
|
procedure TestInvalidateSession;
|
|
[Test]
|
|
procedure TestAsynchRequestPOST;
|
|
[Test]
|
|
procedure TestAsynchRequestPUT;
|
|
[Test]
|
|
procedure TestAsynchRequestGET;
|
|
[Test]
|
|
procedure TestAsynchRequestDELETE;
|
|
[Test]
|
|
procedure TestEncodingRenderJSONValue;
|
|
[Test]
|
|
procedure TestRenderWrappedList;
|
|
[Test]
|
|
procedure TestRenderActionInCollections;
|
|
[Test]
|
|
procedure TestRenderWrappedListWithCompression;
|
|
[Test]
|
|
procedure TestRenderStreamAndFreeWithOwnerFalse;
|
|
[Test]
|
|
procedure TestRenderStreamAndFreeWithOwnerTrue;
|
|
[Test]
|
|
procedure TestObjectDict;
|
|
[Test]
|
|
procedure TestGetImagePng;
|
|
[Test]
|
|
procedure TestProducesConsumes01;
|
|
[Test]
|
|
procedure TestProducesConsumes02;
|
|
[Test]
|
|
procedure TestProducesConsumes03;
|
|
[Test]
|
|
procedure TestProducesConsumesWithWrongAcceptHeader;
|
|
[Test]
|
|
procedure TestExceptionInMVCAfterCreate;
|
|
[Test]
|
|
procedure TestExceptionInMVCBeforeDestroy;
|
|
[Test]
|
|
procedure TestActionFiltersOnBeforeAction;
|
|
[Test]
|
|
procedure TestMiddlewareSpeedMiddleware;
|
|
[Test]
|
|
procedure TestMiddlewareHandler;
|
|
[Test]
|
|
procedure TestPostAListOfObjects;
|
|
// test authentication/authorization with BasicAuth
|
|
[Test]
|
|
procedure TestBasicAuth01;
|
|
[Test]
|
|
procedure TestBasicAuth02;
|
|
[Test]
|
|
procedure TestBasicAuth03;
|
|
[Test]
|
|
procedure TestBasicAuth04;
|
|
[Test]
|
|
procedure TestBasicAuth05;
|
|
// test authentication/authorization with CustomAuth
|
|
[Test]
|
|
procedure TestCustomAuthRequestWithoutLogin;
|
|
[Test]
|
|
procedure TestCustomAuthRequestsWithValidLogin;
|
|
[Test]
|
|
procedure TestCustomAuthRequestsWithValidLogin_HTML;
|
|
[Test]
|
|
procedure TestCustomAuthWrongRequestBodies;
|
|
[Test]
|
|
procedure TestCustomAuthLoginLogout;
|
|
|
|
// typed actions
|
|
[Test]
|
|
procedure TestTypedString1;
|
|
[Test]
|
|
procedure TestTypedInteger1;
|
|
[Test]
|
|
procedure TestTypedInt641;
|
|
[Test]
|
|
procedure TestTypedSingle1;
|
|
[Test]
|
|
procedure TestTypedDouble1;
|
|
[Test]
|
|
procedure TestTypedExtended1;
|
|
[Test]
|
|
procedure TestTypedAll;
|
|
[Test]
|
|
procedure TestTypedDateTimeTypes;
|
|
[Test]
|
|
procedure TestTypedBooleans;
|
|
[Test]
|
|
procedure TestTypedTGuid1;
|
|
[Test]
|
|
procedure TestStringDictionary;
|
|
[Test]
|
|
procedure TestWrongJSONBody;
|
|
[Test]
|
|
procedure TestTypedIntegerWrongParam1;
|
|
|
|
// test exceptions rendering
|
|
[Test]
|
|
[Category('renders,exceptions')]
|
|
procedure TestEMVCException1;
|
|
[Test]
|
|
[Category('renders,exceptions')]
|
|
procedure TestEMVCException2;
|
|
[Test]
|
|
[Category('renders,exceptions')]
|
|
procedure TestEMVCException3;
|
|
|
|
[Test]
|
|
[Category('renders,exceptions')]
|
|
procedure TestEMVCException4;
|
|
|
|
// test nullables
|
|
[Test]
|
|
procedure TestDeserializeNullablesWithValue;
|
|
[Test]
|
|
procedure TestDeserializeNullablesWithNulls;
|
|
[Test]
|
|
procedure TestSerializeAndDeserializeNullables;
|
|
[Test]
|
|
procedure TestSerializeAndDeserializeNullables_ISSUE_362;
|
|
[Test]
|
|
procedure TestSerializeAndDeserializeNullables_Passing_Integers_InsteadOf_Floats;
|
|
|
|
// test responses objects
|
|
[Test]
|
|
procedure TestResponseCreated;
|
|
[Test]
|
|
procedure TestResponseNoContent;
|
|
[Test]
|
|
procedure TestResponseAccepted;
|
|
|
|
// test web server
|
|
[Test]
|
|
procedure TestDirectoryTraversal1;
|
|
[Test]
|
|
[Category('staticfiles')]
|
|
procedure TestDirectoryTraversal2;
|
|
[Test]
|
|
procedure TestDirectoryRedirect;
|
|
[Test]
|
|
procedure TestFileWithFolderName;
|
|
[Test]
|
|
[Category('staticfiles,this')]
|
|
procedure TestSPASupport;
|
|
// test server side views
|
|
[Test]
|
|
procedure TestViewDataViewDataSet;
|
|
|
|
// test issues
|
|
[Test]
|
|
[Category('renders')]
|
|
procedure TestIssue406;
|
|
|
|
end;
|
|
|
|
[TestFixture]
|
|
TJSONRPCServerTest = class(TObject)
|
|
protected
|
|
FExecutor: IMVCJSONRPCExecutor;
|
|
FExecutor2: IMVCJSONRPCExecutor;
|
|
FExecutor3: IMVCJSONRPCExecutor;
|
|
public
|
|
[Setup]
|
|
procedure Setup;
|
|
[Test]
|
|
procedure TestRequestWithoutParams;
|
|
[Test]
|
|
procedure TestNotificationWithoutParams;
|
|
[Test]
|
|
procedure TestNotificationWhichRaisesError;
|
|
[Test]
|
|
procedure TestRequestToNotFoundMethod;
|
|
[Test]
|
|
procedure TestRequestWithParams_I_I_ret_I;
|
|
[Test]
|
|
procedure TestRequestWithNamedParams_I_I_ret_I;
|
|
[Test]
|
|
procedure TestRequestWithParams_I_I_I_ret_O;
|
|
[Test]
|
|
procedure TestRequestWithNamedParams_I_I_I_ret_O;
|
|
[Test]
|
|
procedure TestRequestWithWrongNamedParams;
|
|
[Test]
|
|
procedure TestRequest_S_I_ret_S;
|
|
[Test]
|
|
procedure TestRequest_NamedParams_S_I_ret_S;
|
|
[Test]
|
|
procedure TestRequestWithParams_I_I_ret_A;
|
|
[Test]
|
|
procedure TestRequestWithParams_DT_T_ret_DT;
|
|
// hooks tests
|
|
[Test]
|
|
procedure TestHooks;
|
|
[Test]
|
|
procedure TestHooksWhenMethodRaisesError;
|
|
[Test]
|
|
procedure TestHooksWhenOnAfterCallHookRaisesError;
|
|
[Test]
|
|
procedure TestHooksNotif;
|
|
[Test]
|
|
procedure TestHooksNotifWhenOnBeforeRoutingHookRaisesError;
|
|
[Test]
|
|
procedure TestHooksNotifWhenOnBeforeCallHookRaisesError;
|
|
[Test]
|
|
procedure TestHooksNotifWhenOnAfterCallHookRaisesError;
|
|
[Test]
|
|
procedure TestHooksWhenOnBeforeCallHookRaisesError;
|
|
[Test]
|
|
procedure TestHooksWhenOnBeforeRoutingHookRaisesError;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.Math,
|
|
System.JSON,
|
|
MVCFramework.Serializer.Defaults,
|
|
JsonDataObjects,
|
|
MVCFramework.Serializer.JsonDataObjects,
|
|
MVCFramework.Commons,
|
|
System.SyncObjs,
|
|
System.Generics.Collections,
|
|
System.SysUtils,
|
|
BusinessObjectsU,
|
|
MVCFramework.Serializer.Commons,
|
|
Soap.EncdDecd,
|
|
System.Classes,
|
|
MVCFramework.SystemJSONUtils,
|
|
IdCookie,
|
|
MVCFramework.JSONRPC,
|
|
MVCFramework.Serializer.Intf
|
|
{$IFDEF MSWINDOWS}
|
|
,
|
|
MVCFramework.Serializer.JsonDataObjects.OptionalCustomTypes,
|
|
Vcl.Graphics
|
|
{$ENDIF}
|
|
, TestConstsU;
|
|
|
|
function GetServer: string;
|
|
begin
|
|
Result := 'http://' + TEST_SERVER_ADDRESS + ':9999';
|
|
end;
|
|
|
|
{ TServerTest }
|
|
|
|
procedure TBaseServerTest.DoLogout;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/logout', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Logout Failed');
|
|
end;
|
|
|
|
procedure TBaseServerTest.Setup;
|
|
begin
|
|
inherited;
|
|
RESTClient := TRESTClient.Create(TEST_SERVER_ADDRESS, 9999);
|
|
RESTClient.ReadTimeout(60 * 1000 * 30);
|
|
end;
|
|
|
|
procedure TBaseServerTest.TearDown;
|
|
begin
|
|
inherited;
|
|
RESTClient.Free;
|
|
end;
|
|
|
|
procedure TServerTest.TestActionFiltersOnBeforeAction;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/actionfilters/beforeaction/alwayscalled', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
|
|
res := RESTClient.doGET('/actionfilters/beforeaction/nevercalled', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, res.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestAsynchRequestDELETE;
|
|
var
|
|
evt: TEvent;
|
|
r: TWaitResult;
|
|
OK: boolean;
|
|
begin
|
|
OK := false;
|
|
evt := TEvent.Create;
|
|
try
|
|
RESTClient.Asynch(
|
|
procedure(Response: IRESTResponse)
|
|
begin
|
|
OK := true;
|
|
evt.SetEvent;
|
|
end,
|
|
procedure(E: Exception)
|
|
begin
|
|
OK := false;
|
|
end).doDELETE('/req/with/params', ['1', '2', '3']);
|
|
|
|
// wait for thred finish
|
|
repeat
|
|
r := evt.WaitFor(2000);
|
|
until r = TWaitResult.wrSignaled;
|
|
|
|
Assert.areEqual(true, OK);
|
|
finally
|
|
evt.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestAsynchRequestGET;
|
|
var
|
|
evt: TEvent;
|
|
r: TWaitResult;
|
|
j: System.JSON.TJSONObject;
|
|
begin
|
|
j := nil;
|
|
evt := TEvent.Create;
|
|
try
|
|
RESTClient.Asynch(
|
|
procedure(Response: IRESTResponse)
|
|
begin
|
|
try
|
|
j := TSystemJSON.StringAsJSONObject(Response.BodyAsString);
|
|
except
|
|
// test should not block...never!
|
|
end;
|
|
evt.SetEvent;
|
|
end,
|
|
procedure(E: Exception)
|
|
begin
|
|
end).doGET('/req/with/params', ['1', '2', '3']);
|
|
|
|
// wait for thred finish
|
|
repeat
|
|
r := evt.WaitFor(2000);
|
|
until r = TWaitResult.wrSignaled;
|
|
|
|
Assert.isTrue(Assigned(j));
|
|
Assert.areEqual('1', j.Get('par1').JsonValue.Value);
|
|
j.Free;
|
|
finally
|
|
evt.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestAsynchRequestPOST;
|
|
var
|
|
evt: TEvent;
|
|
r: TWaitResult;
|
|
j: System.JSON.TJSONObject;
|
|
begin
|
|
j := nil;
|
|
evt := TEvent.Create;
|
|
try
|
|
|
|
RESTClient.Asynch(
|
|
procedure(Response: IRESTResponse)
|
|
begin
|
|
try
|
|
j := TSystemJSON.StringAsJSONObject(Response.BodyAsString);
|
|
except
|
|
// test should not block...never!
|
|
end;
|
|
evt.SetEvent;
|
|
end,
|
|
procedure(E: Exception)
|
|
begin
|
|
end).doPOST('/echo', ['1', '2', '3'],
|
|
TSystemJSON.JSONValueToString(System.JSON.TJSONObject.Create(TJSONPair.Create('from client', 'hello world'))));
|
|
|
|
// wait for thred finish
|
|
repeat
|
|
r := evt.WaitFor(2000);
|
|
until r = TWaitResult.wrSignaled;
|
|
|
|
Assert.isTrue(Assigned(j));
|
|
Assert.areEqual('from server', j.Get('echo').JsonValue.Value);
|
|
j.Free;
|
|
finally
|
|
evt.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestAsynchRequestPUT;
|
|
var
|
|
evt: TEvent;
|
|
r: TWaitResult;
|
|
j: System.JSON.TJSONObject;
|
|
begin
|
|
j := nil;
|
|
evt := TEvent.Create;
|
|
try
|
|
RESTClient.Asynch(
|
|
procedure(Response: IRESTResponse)
|
|
begin
|
|
try
|
|
j := TSystemJSON.StringAsJSONObject(Response.BodyAsString);
|
|
except
|
|
// test should not block...never!
|
|
end;
|
|
evt.SetEvent;
|
|
end,
|
|
procedure(E: Exception)
|
|
begin
|
|
end).doPUT('/echo', ['1', '2', '3'],
|
|
TSystemJSON.JSONValueToString(System.JSON.TJSONObject.Create(System.JSON.TJSONPair.Create('from client',
|
|
'hello world'))));
|
|
|
|
// wait for thred finish
|
|
repeat
|
|
r := evt.WaitFor(2000);
|
|
until r = TWaitResult.wrSignaled;
|
|
|
|
Assert.isTrue(Assigned(j));
|
|
Assert.areEqual('from server', j.Get('echo').JsonValue.Value);
|
|
j.Free;
|
|
finally
|
|
evt.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestBasicAuth01;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
RESTClient.Authentication('user1', 'user1');
|
|
Assert.areEqual('user1', RESTClient.UserName);
|
|
Assert.areEqual('user1', RESTClient.Password);
|
|
lRes := RESTClient.doGET('/private/role1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestBasicAuth02;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
RESTClient.UserName := '';
|
|
RESTClient.Password := '';
|
|
RESTClient.UseBasicAuthentication := false;
|
|
lRes := RESTClient.doGET('/private/role1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Unauthorized, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestBasicAuth03;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
RESTClient.UserName := 'user1';
|
|
RESTClient.Password := 'user1';
|
|
RESTClient.UseBasicAuthentication := true;
|
|
lRes := RESTClient.doGET('/private/role2', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Forbidden, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestBasicAuth04;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
RESTClient.UserName := 'user1';
|
|
RESTClient.Password := 'user1';
|
|
RESTClient.UseBasicAuthentication := true;
|
|
lRes := RESTClient.doGET('/private/role1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
lRes := RESTClient.doGET('/people', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestBasicAuth05;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
RESTClient.UserName := 'user1';
|
|
RESTClient.Password := 'user1';
|
|
RESTClient.UseBasicAuthentication := true;
|
|
|
|
// first
|
|
lRes := RESTClient.doGET('/private/role1session?value=danieleteti', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
lRes := RESTClient.doGET('/private/role1session', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
Assert.areEqual('danieleteti', lRes.BodyAsString);
|
|
|
|
// second
|
|
lRes := RESTClient.doGET('/private/role1session?value=johndoe', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
lRes := RESTClient.doGET('/private/role1session', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
Assert.areEqual('johndoe', lRes.BodyAsString);
|
|
end;
|
|
|
|
procedure TServerTest.TestControllerWithExceptionInCreate(const URLSegment: string);
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET(URLSegment, []);
|
|
Assert.areEqual(HTTP_STATUS.InternalServerError, res.ResponseCode);
|
|
// Assert.Contains(res.ContentType, 'text/plain', true, 'Is not a text/plain in case of error');
|
|
Assert.Contains(res.ContentType, 'application/json', true, 'Is not a application/json in case of error');
|
|
Assert.Contains(res.BodyAsString, 'Cannot create controller', true, 'Exception message in body is not correct');
|
|
// Assert.Contains(res.BodyAsString, 'Cannot create controller', true, 'Exception message in body is not correct');
|
|
end;
|
|
|
|
procedure TServerTest.TestCookies;
|
|
var
|
|
res: IRESTResponse;
|
|
I: Integer;
|
|
begin
|
|
res := RESTClient.doGET('/lotofcookies', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual(4, res.Cookies.Count, 'Wrong number of cookies');
|
|
for I := 0 to 3 do
|
|
begin
|
|
Assert.areEqual('usersettings' + IntToStr(I + 1), res.Cookies.Cookies[I].CookieName);
|
|
Assert.areEqual('usersettings' + IntToStr(I + 1) + '-value', res.Cookies.Cookies[I].Value);
|
|
Assert.areEqual('/usersettings' + IntToStr(I + 1), res.Cookies.Cookies[I].Path);
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestCustomAuthRequestWithoutLogin;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.doGET('/privatecustom/role1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Unauthorized, lRes.ResponseCode);
|
|
Assert.areEqual('/system/users/logged', lRes.HeaderValue('X-LOGIN-URL'));
|
|
Assert.areEqual('POST', lRes.HeaderValue('X-LOGIN-METHOD'));
|
|
|
|
lRes := RESTClient.doGET('/privatecustom/role2', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Unauthorized, lRes.ResponseCode);
|
|
Assert.areEqual('/system/users/logged', lRes.HeaderValue('X-LOGIN-URL'));
|
|
Assert.areEqual('POST', lRes.HeaderValue('X-LOGIN-METHOD'));
|
|
end;
|
|
|
|
procedure TServerTest.TestCustomAuthRequestsWithValidLogin;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSON: System.JSON.TJSONObject;
|
|
lCookieValue: string;
|
|
begin
|
|
lJSON := System.JSON.TJSONObject.Create;
|
|
try
|
|
lJSON.AddPair('username', 'user1');
|
|
lJSON.AddPair('password', 'user1');
|
|
lRes := RESTClient.doPOST('/system/users/logged', [], TSystemJSON.JSONValueToString(lJSON, false));
|
|
Assert.areEqual('application/json', lRes.ContentType);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
Assert.areEqual('/system/users/logged', lRes.HeaderValue('X-LOGOUT-URL'));
|
|
Assert.areEqual('DELETE', lRes.HeaderValue('X-LOGOUT-METHOD'));
|
|
Assert.areEqual('{"status":"OK"}', lRes.BodyAsString);
|
|
lCookieValue := lRes.Cookies[lRes.Cookies.GetCookieIndex(TMVCConstants.SESSION_TOKEN_NAME)].Value;
|
|
Assert.AreNotEqual('', lCookieValue, 'Session cookie not returned after login');
|
|
Assert.isFalse(lCookieValue.Contains('invalid'), 'Returned an invalid session token');
|
|
|
|
lRes := RESTClient.doGET('/privatecustom/role2', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Forbidden, lRes.ResponseCode,
|
|
'Authorization not respected for not allowed action');
|
|
|
|
lRes := RESTClient.doGET('/privatecustom/role1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode, 'Authorization not respected for allowed action');
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestCustomAuthRequestsWithValidLogin_HTML;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSON: System.JSON.TJSONObject;
|
|
lCookieValue: string;
|
|
begin
|
|
lJSON := System.JSON.TJSONObject.Create;
|
|
try
|
|
lJSON.AddPair('username', 'user1');
|
|
lJSON.AddPair('password', 'user1');
|
|
lRes := RESTClient.Accept('text/html').doPOST('/system/users/logged', [],
|
|
TSystemJSON.JSONValueToString(lJSON, false));
|
|
Assert.areEqual('application/json', lRes.ContentType);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
Assert.areEqual('/system/users/logged', lRes.HeaderValue('X-LOGOUT-URL'));
|
|
Assert.areEqual('DELETE', lRes.HeaderValue('X-LOGOUT-METHOD'));
|
|
Assert.areEqual('{"status":"OK"}', lRes.BodyAsString);
|
|
lCookieValue := lRes.Cookies[lRes.Cookies.GetCookieIndex(TMVCConstants.SESSION_TOKEN_NAME)].Value;
|
|
Assert.AreNotEqual('', lCookieValue, 'Session cookie not returned after login');
|
|
Assert.isFalse(lCookieValue.Contains('invalid'), 'Returned an invalid session token');
|
|
|
|
lRes := RESTClient.doGET('/privatecustom/role2', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Forbidden, lRes.ResponseCode,
|
|
'Authorization not respected for not allowed action');
|
|
|
|
lRes := RESTClient.doGET('/privatecustom/role1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode, 'Authorization not respected for allowed action');
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestCustomAuthWrongRequestBodies;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSON: System.JSON.TJSONObject;
|
|
begin
|
|
lJSON := System.JSON.TJSONObject.Create;
|
|
try
|
|
// no request body
|
|
lRes := RESTClient.doPOST('/system/users/logged', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, lRes.ResponseCode,
|
|
'Empty request body doesn''t return HTTP 400 Bad Request');
|
|
|
|
// wrong request body 1
|
|
lRes := RESTClient.doPOST('/system/users/logged', [], TSystemJSON.JSONValueToString(lJSON, false));
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Unauthorized, lRes.ResponseCode,
|
|
'Invalid json doesn''t return HTTP 401 Unauthorized');
|
|
|
|
// wrong request body 2
|
|
lJSON.AddPair('username', '');
|
|
lJSON.AddPair('password', '');
|
|
lRes := RESTClient.doPOST('/system/users/logged', [], TSystemJSON.JSONValueToString(lJSON, false));
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Unauthorized, lRes.ResponseCode,
|
|
'Empty username and password doesn''t return HTTP 401 Unauthorized');
|
|
|
|
// wrong username and password 3
|
|
lJSON.RemovePair('username').Free;
|
|
lJSON.RemovePair('password').Free;
|
|
lJSON.AddPair('username', 'notvaliduser');
|
|
lJSON.AddPair('password', 'notvalidpassword');
|
|
lRes := RESTClient.doPOST('/system/users/logged', [], TSystemJSON.JSONValueToString(lJSON, false));
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Unauthorized, lRes.ResponseCode,
|
|
'Wrong username and password doesn''t return HTTP 401 Unauthorized');
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestCustomerEcho;
|
|
var
|
|
r: IRESTResponse;
|
|
lCustomer: TCustomer;
|
|
lSer: IMVCSerializer;
|
|
begin
|
|
lCustomer := TCustomer.Create;
|
|
try
|
|
lCustomer.Name := 'bit Time Professionals';
|
|
lCustomer.ContactFirst := 'Daniele'; // transient
|
|
lCustomer.ContactLast := 'Teti'; // transient
|
|
lCustomer.AddressLine1 := 'Via Roma 10';
|
|
lCustomer.AddressLine2 := '00100, ROMA';
|
|
lCustomer.Logo.SetSize(100, 100);
|
|
lCustomer.Logo.Canvas.FillRect(Rect(0, 0, 100, 100));
|
|
lCustomer.Logo.Canvas.Font.Color := clRed;
|
|
lCustomer.Logo.Canvas.TextOut(10, 50, 'From Client');
|
|
lCustomer.Logo.SaveToFile('pippo_client_before_send.bmp');
|
|
lSer := GetDefaultSerializer;
|
|
RegisterOptionalCustomTypesSerializers(lSer);
|
|
r := RESTClient.Accept(TMVCMediaType.APPLICATION_JSON).doPOST('/customerecho', [], lSer.SerializeObject(lCustomer));
|
|
finally
|
|
lCustomer.Free;
|
|
end;
|
|
|
|
lCustomer := TCustomer.Create;
|
|
try
|
|
lSer := GetDefaultSerializer;
|
|
RegisterOptionalCustomTypesSerializers(lSer);
|
|
lSer.DeserializeObject(r.BodyAsString, lCustomer);
|
|
Assert.areEqual('bit Time Professionals changed', lCustomer.Name);
|
|
Assert.areEqual('', lCustomer.ContactFirst);
|
|
Assert.areEqual('', lCustomer.ContactLast);
|
|
lCustomer.Logo.SaveToFile('customer_logo.bmp');
|
|
Assert.areEqual('de2a29ec62fc1f0b3abbb6b74223d214', THashMD5.GetHashStringFromFile('customer_logo.bmp'));
|
|
finally
|
|
lCustomer.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestCustomAuthLoginLogout;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSON: System.JSON.TJSONObject;
|
|
lLogoutUrl: string;
|
|
lValue: string;
|
|
I: Integer;
|
|
lPieces: TArray<string>;
|
|
lPass: boolean;
|
|
begin
|
|
lJSON := System.JSON.TJSONObject.Create;
|
|
try
|
|
lJSON.AddPair('username', 'user1');
|
|
lJSON.AddPair('password', 'user1');
|
|
lRes := RESTClient.doPOST('/system/users/logged', [], TSystemJSON.JSONValueToString(lJSON, false));
|
|
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
lLogoutUrl := lRes.HeaderValue('X-LOGOUT-URL');
|
|
|
|
lRes := RESTClient.doDELETE(lLogoutUrl, []);
|
|
lPass := false;
|
|
for I := 0 to lRes.Headers.Count do
|
|
begin
|
|
lValue := lRes.Headers[I];
|
|
if lValue.StartsWith('Set-Cookie') then
|
|
begin
|
|
lPieces := lValue.Split([':']);
|
|
lValue := lPieces[1].Trim;
|
|
if lValue.StartsWith(TMVCConstants.SESSION_TOKEN_NAME) and lValue.Contains('invalid') then
|
|
begin
|
|
lPass := true;
|
|
Break;
|
|
end;
|
|
end;
|
|
end;
|
|
Assert.isTrue(lPass, 'No session cookie cleanup in the response');
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestEMVCException1;
|
|
var
|
|
res: IRESTResponse;
|
|
lJSON: TJSONObject;
|
|
begin
|
|
res := RESTClient.doGET('/exception/emvcexception1', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.InternalServerError, res.ResponseCode);
|
|
lJSON := StrToJSONObject(res.BodyAsString);
|
|
try
|
|
Assert.areEqual<string>('message', lJSON.S['message'], lJSON.ToJSON());
|
|
Assert.areEqual<string>('EMVCException', lJSON.S['classname'], lJSON.ToJSON());
|
|
Assert.areEqual<Integer>(500, lJSON.I['statuscode'], lJSON.ToJSON());
|
|
Assert.areEqual<string>('error', lJSON.S['reasonstring'], lJSON.ToJSON());
|
|
Assert.areEqual(0, lJSON.A['items'].Count, lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.IsNull('data'), lJSON.ToJSON());
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestEMVCException2;
|
|
var
|
|
res: IRESTResponse;
|
|
lJSON: TJSONObject;
|
|
begin
|
|
res := RESTClient.doGET('/exception/emvcexception2', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, res.ResponseCode);
|
|
lJSON := StrToJSONObject(res.BodyAsString);
|
|
try
|
|
Assert.areEqual<string>('message', lJSON.S['message'], lJSON.ToJSON());
|
|
Assert.areEqual<string>('EMVCException', lJSON.S['classname'], lJSON.ToJSON());
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, lJSON.I['statuscode'], lJSON.ToJSON());
|
|
Assert.areEqual<string>('error', lJSON.S['reasonstring'], lJSON.ToJSON());
|
|
Assert.areEqual(0, lJSON.A['items'].Count, lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.IsNull('data'), lJSON.ToJSON());
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestEMVCException3;
|
|
var
|
|
res: IRESTResponse;
|
|
lJSON: TJSONObject;
|
|
begin
|
|
res := RESTClient.doGET('/exception/emvcexception3', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Created, res.ResponseCode);
|
|
lJSON := StrToJSONObject(res.BodyAsString);
|
|
try
|
|
Assert.areEqual('message', lJSON.S['message'], lJSON.ToJSON());
|
|
Assert.areEqual('EMVCException', lJSON.S['classname'], lJSON.ToJSON());
|
|
Assert.areEqual(HTTP_STATUS.Created, lJSON.I['statuscode'], lJSON.ToJSON());
|
|
Assert.areEqual('error', lJSON.S['reasonstring'], lJSON.ToJSON());
|
|
Assert.areEqual(999, lJSON.I['apperrorcode'], lJSON.ToJSON());
|
|
Assert.areEqual(0, lJSON.A['items'].Count, lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.IsNull('data'), lJSON.ToJSON());
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestEMVCException4;
|
|
var
|
|
res: IRESTResponse;
|
|
lJSON: TJSONObject;
|
|
begin
|
|
res := RESTClient.doGET('/exception/emvcexception4', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Created, res.ResponseCode);
|
|
lJSON := StrToJSONObject(res.BodyAsString);
|
|
try
|
|
Assert.areEqual('message', lJSON.S['message'], lJSON.ToJSON());
|
|
Assert.areEqual('detailedmessage', lJSON.S['detailedmessage'], lJSON.ToJSON());
|
|
Assert.areEqual('EMVCException', lJSON.S['classname'], lJSON.ToJSON());
|
|
Assert.areEqual(HTTP_STATUS.Created, lJSON.I['statuscode'], lJSON.ToJSON());
|
|
Assert.areEqual('error', lJSON.S['reasonstring'], lJSON.ToJSON());
|
|
Assert.areEqual(999, lJSON.I['apperrorcode'], lJSON.ToJSON());
|
|
Assert.areEqual(2, lJSON.A['items'].Count, lJSON.ToJSON());
|
|
Assert.areEqual('erritem1', lJSON.A['items'].O[0].S['message'], lJSON.ToJSON());
|
|
Assert.areEqual('erritem2', lJSON.A['items'].O[1].S['message'], lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.IsNull('data'), lJSON.ToJSON());
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestEncodingRenderJSONValue;
|
|
var
|
|
res: IRESTResponse;
|
|
S: string;
|
|
lJSONObj: System.JSON.TJSONObject;
|
|
begin
|
|
res := RESTClient.doGET('/encoding', []);
|
|
|
|
lJSONObj := TSystemJSON.StringAsJSONObject(res.BodyAsString);
|
|
S := lJSONObj.Get('name1').JsonValue.Value;
|
|
Assert.areEqual('jørn', S);
|
|
lJSONObj.Free;
|
|
|
|
lJSONObj := TSystemJSON.StringAsJSONObject(res.BodyAsString);
|
|
S := lJSONObj.Get('name3').JsonValue.Value;
|
|
Assert.areEqual('àèéìòù', S);
|
|
lJSONObj.Free;
|
|
|
|
lJSONObj := TSystemJSON.StringAsJSONObject(res.BodyAsString);
|
|
S := lJSONObj.Get('name2').JsonValue.Value;
|
|
Assert.areEqual('Što je Unicode?', S, 'If this test fail, check http://qc.embarcadero.com/wc/qcmain.aspx?d=119779');
|
|
lJSONObj.Free;
|
|
{ WARNING!!! }
|
|
{
|
|
If this test fail, check
|
|
http://qc.embarcadero.com/wc/qcmain.aspx?d=119779
|
|
}
|
|
end;
|
|
|
|
procedure TServerTest.TestRenderActionInCollections;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJArr: TJDOJsonArray;
|
|
I: Integer;
|
|
begin
|
|
lRes := RESTClient.doGET('/people/renderaction', []);
|
|
lJArr := TJsonBaseObject.Parse(lRes.BodyAsString) as TJDOJsonArray;
|
|
try
|
|
for I := 0 to lJArr.Count - 1 do
|
|
begin
|
|
Assert.isTrue(lJArr[I].A[TMVCConstants.HATEOAS_PROP_NAME].Count = 2, '_links doesn''t exists');
|
|
Assert.areEqual(lJArr[I].A[TMVCConstants.HATEOAS_PROP_NAME].O[0].S[HATEOAS.REL], 'test0');
|
|
Assert.areEqual(lJArr[I].A[TMVCConstants.HATEOAS_PROP_NAME].O[1].S[HATEOAS.REL], 'test1');
|
|
end;
|
|
finally
|
|
lJArr.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestRenderStreamAndFreeWithOwnerFalse;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.doGET('/renderstreamandfreewithownerfalse', []);
|
|
Assert.areEqual<Integer>(200, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestRenderStreamAndFreeWithOwnerTrue;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.doGET('/renderstreamandfreewithownertrue', []);
|
|
Assert.areEqual<Integer>(200, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestRenderWrappedList;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSONArr: System.JSON.TJSONArray;
|
|
I: Integer;
|
|
lJSONObj: System.JSON.TJSONObject;
|
|
begin
|
|
lRes := RESTClient.doGET('/wrappedpeople', []);
|
|
|
|
lJSONArr := TSystemJSON.StringAsJSONArray(lRes.BodyAsString);
|
|
try
|
|
for I := 0 to lJSONArr.Count - 1 do
|
|
begin
|
|
lJSONObj := lJSONArr.Items[I] as System.JSON.TJSONObject;
|
|
Assert.isFalse(lJSONObj.GetValue<string>('firstname').IsEmpty);
|
|
end;
|
|
finally
|
|
lJSONArr.Free;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestRenderWrappedListWithCompression;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSONArr: TJDOJsonArray;
|
|
I: Integer;
|
|
lCompType: string;
|
|
j: Integer;
|
|
const
|
|
CompressionTypes: array [1 .. 9] of string = ('deflate', 'gzip', 'deflate,gzip', 'gzip,deflate', 'gzip,invalid',
|
|
'deflate,notvalid', 'notvalid,gzip', 'invalid', '');
|
|
CompressionTypeResult: array [1 .. 9] of string = ('deflate', 'gzip', 'deflate', 'gzip', 'gzip', 'deflate',
|
|
'gzip', '', '');
|
|
begin
|
|
j := 1;
|
|
for lCompType in CompressionTypes do
|
|
begin
|
|
RESTClient.RequestHeaders.Values['Accept-Encoding'] := lCompType;
|
|
lRes := RESTClient.doGET('/wrappedpeople', [], ['count'], ['100']);
|
|
Assert.areEqual(CompressionTypeResult[j], lRes.HeaderValue('Content-Encoding'));
|
|
lJSONArr := TMVCJsonDataObjectsSerializer.ParseArray(lRes.BodyAsString);
|
|
try
|
|
for I := 0 to lJSONArr.Count - 1 do
|
|
begin
|
|
Assert.isFalse(lJSONArr.O[I].S['firstname'].IsEmpty);
|
|
Assert.isFalse(lJSONArr.O[I].S['lastname'].IsEmpty);
|
|
Assert.isFalse(lJSONArr.O[I].S['dob'].IsEmpty);
|
|
Assert.areEqual<TJsonDataType>(jdtBool, lJSONArr.O[I].Types['married']);
|
|
end;
|
|
finally
|
|
lJSONArr.Free;
|
|
end;
|
|
Inc(j);
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestExceptionInMVCAfterCreate;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/exception/aftercreate/nevercalled', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.InternalServerError, res.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestExceptionInMVCBeforeDestroy;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/exception/beforedestroy/nevercalled', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.InternalServerError, res.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestFileWithFolderName;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '<empty>');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/static/index.html', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/static/index.html');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/static.html', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/static.html');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/folder1', []);
|
|
Assert.areEqual(301, lRes.ResponseCode, '/folder1');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/folder1/', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/folder1/');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/folder1.html', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/folder1.html');
|
|
Assert.areEqual('This is a TEXT file', lRes.BodyAsString, '/folder1.html');
|
|
end;
|
|
|
|
procedure TServerTest.TestGetImagePng;
|
|
var
|
|
c1: TRESTClient;
|
|
lRes: IRESTResponse;
|
|
begin
|
|
c1 := TRESTClient.Create(TEST_SERVER_ADDRESS, 9999);
|
|
try
|
|
// c1.Accept(TMVCMediaType.IMAGE_PNG);
|
|
lRes := c1.doGET('/image/png', []);
|
|
Assert.areEqual(200, lRes.ResponseCode);
|
|
Assert.areEqual('image/png', lRes.ContentType);
|
|
Assert.areEqual(249, Integer(lRes.Body.Size));
|
|
finally
|
|
c1.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestInvalidateSession;
|
|
var
|
|
c1: TRESTClient;
|
|
res: IRESTResponse;
|
|
begin
|
|
c1 := TRESTClient.Create(TEST_SERVER_ADDRESS, 9999);
|
|
try
|
|
c1.Accept(TMVCMediaType.APPLICATION_JSON);
|
|
c1.doPOST('/session', ['daniele teti']); // imposto un valore in sessione
|
|
res := c1.doGET('/session', []); // rileggo il valore dalla sessione
|
|
Assert.areEqual('daniele teti', res.BodyAsString);
|
|
c1.SessionID := '';
|
|
res := c1.doGET('/session', []); // rileggo il valore dalla sessione
|
|
Assert.areEqual('', res.BodyAsString);
|
|
finally
|
|
c1.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestIssue406;
|
|
var
|
|
r: IRESTResponse;
|
|
begin
|
|
r := RESTClient.Accept(TMVCMediaType.APPLICATION_JSON).doGET('/issues/406', []);
|
|
Assert.areEqual(422, r.ResponseCode);
|
|
Assert.areEqual('{"message":"The Message"}', r.BodyAsString, r.BodyAsString);
|
|
end;
|
|
|
|
procedure TServerTest.TestMiddlewareHandler;
|
|
var
|
|
r: IRESTResponse;
|
|
begin
|
|
r := RESTClient.Accept(TMVCMediaType.APPLICATION_JSON).doGET('/handledbymiddleware', []);
|
|
Assert.areEqual('This is a middleware response', r.BodyAsString);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, r.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestMiddlewareSpeedMiddleware;
|
|
var
|
|
r: IRESTResponse;
|
|
P: TPerson;
|
|
begin
|
|
P := TPerson.Create;
|
|
try
|
|
P.FirstName := StringOfChar('*', 1000);
|
|
P.LastName := StringOfChar('*', 1000);
|
|
P.DOB := EncodeDate(1979, 1, 1);
|
|
P.Married := true;
|
|
r := RESTClient.Accept(TMVCMediaType.APPLICATION_JSON)
|
|
.doPOST('/objects', [], GetDefaultSerializer.SerializeObject(P));
|
|
finally
|
|
P.Free;
|
|
end;
|
|
|
|
Assert.AreNotEqual('', r.HeaderValue('request_gen_time'));
|
|
end;
|
|
|
|
procedure TServerTest.TestObjectDict;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lJSON: TJSONObject;
|
|
begin
|
|
lRes := RESTClient.doGET('/objectdict', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode, lRes.BodyAsString);
|
|
lJSON := StrToJSONObject(lRes.BodyAsString);
|
|
try
|
|
Assert.isTrue(lJSON.Contains('ncCamelCase_Single'), lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.Contains('ncLowerCase_Single'), lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.Contains('ncPascalCase_Single'), lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.Contains('ncUpperCase_Single'), lJSON.ToJSON());
|
|
|
|
Assert.isTrue(lJSON.Contains('ncCamelCase_List'), lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.Contains('ncLowerCase_List'), lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.Contains('ncPascalCase_List'), lJSON.ToJSON());
|
|
Assert.isTrue(lJSON.Contains('ncUpperCase_List'), lJSON.ToJSON());
|
|
|
|
Assert.areEqual(jdtObject, lJSON.Types['ncCamelCase_Single']);
|
|
Assert.areEqual(jdtObject, lJSON.Types['ncLowerCase_Single']);
|
|
Assert.areEqual(jdtObject, lJSON.Types['ncPascalCase_Single']);
|
|
Assert.areEqual(jdtObject, lJSON.Types['ncUpperCase_Single']);
|
|
|
|
Assert.isTrue(lJSON.O['ncCamelCase_Single'].Contains('custNo'), lJSON.O['ncCamelCase_Single'].ToJSON());
|
|
Assert.isTrue(lJSON.O['ncLowerCase_Single'].Contains('cust_no'), lJSON.O['ncLowerCase_Single'].ToJSON());
|
|
Assert.isTrue(lJSON.O['ncPascalCase_Single'].Contains('CustNo'), lJSON.O['ncPascalCase_Single'].ToJSON());
|
|
Assert.isTrue(lJSON.O['ncUpperCase_Single'].Contains('CUST_NO'), lJSON.O['ncUpperCase_Single'].ToJSON());
|
|
|
|
Assert.areEqual(jdtArray, lJSON.Types['ncCamelCase_List']);
|
|
Assert.areEqual(jdtArray, lJSON.Types['ncLowerCase_List']);
|
|
Assert.areEqual(jdtArray, lJSON.Types['ncPascalCase_List']);
|
|
Assert.areEqual(jdtArray, lJSON.Types['ncUpperCase_List']);
|
|
|
|
Assert.isTrue(lJSON.A['ncCamelCase_List'][0].ObjectValue.Contains('custNo'),
|
|
lJSON.A['ncCamelCase_List'][0].ObjectValue.ToJSON());
|
|
Assert.isTrue(lJSON.A['ncLowerCase_List'][0].ObjectValue.Contains('cust_no'),
|
|
lJSON.A['ncLowerCase_List'][0].ObjectValue.ToJSON());
|
|
Assert.isTrue(lJSON.A['ncPascalCase_List'][0].ObjectValue.Contains('CustNo'),
|
|
lJSON.A['ncPascalCase_List'][0].ObjectValue.ToJSON());
|
|
Assert.isTrue(lJSON.A['ncUpperCase_List'][0].ObjectValue.Contains('CUST_NO'),
|
|
lJSON.A['ncUpperCase_List'][0].ObjectValue.ToJSON());
|
|
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
// procedure TServerTest.TestPATCHWithParamsAndJSONBody;
|
|
// var
|
|
// r: IRESTResponse;
|
|
// json: TJSONObject;
|
|
// begin
|
|
// json := TJSONObject.Create;
|
|
// json.AddPair('client', 'clientdata');
|
|
// r := RESTClient.doPATCH('/echo', ['1', '2', '3'], json);
|
|
// Assert.AreEqual('clientdata', r.BodyAsJsonObject.Get('client').JsonValue.Value);
|
|
// Assert.AreEqual('from server', r.BodyAsJsonObject.Get('echo').JsonValue.Value);
|
|
// end;
|
|
|
|
procedure TServerTest.TestPostAListOfObjects;
|
|
var
|
|
lRes: IRESTResponse;
|
|
LCustomers: TObjectList<TCustomer>;
|
|
lSer: IMVCSerializer;
|
|
begin
|
|
LCustomers := TCustomer.GetList;
|
|
try
|
|
lSer := GetDefaultSerializer;
|
|
RegisterOptionalCustomTypesSerializers(lSer); // TBitmap
|
|
lRes := RESTClient.doPOST('/customers/list', [], lSer.SerializeCollection(LCustomers));
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, lRes.ResponseCode);
|
|
finally
|
|
LCustomers.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestPOSTWithObjectJSONBody;
|
|
var
|
|
r: IRESTResponse;
|
|
P: TPerson;
|
|
begin
|
|
P := TPerson.Create;
|
|
try
|
|
P.FirstName := 'Daniele';
|
|
P.LastName := 'àòùèéì';
|
|
P.DOB := EncodeDate(1979, 1, 1);
|
|
P.Married := true;
|
|
try
|
|
r := RESTClient.Accept(TMVCMediaType.APPLICATION_JSON)
|
|
.doPOST('/objects', [], GetDefaultSerializer.SerializeObject(P)
|
|
{ Mapper.ObjectToJSONObject(P) }
|
|
);
|
|
except
|
|
Assert.Fail('If this test fail, check http://qc.embarcadero.com/wc/qcmain.aspx?d=119779');
|
|
{ WARNING!!! }
|
|
{
|
|
If this test fail, check
|
|
http://qc.embarcadero.com/wc/qcmain.aspx?d=119779
|
|
}
|
|
raise;
|
|
|
|
end;
|
|
finally
|
|
P.Free;
|
|
end;
|
|
|
|
P := TPerson.Create;
|
|
try
|
|
GetDefaultSerializer.DeserializeObject(r.BodyAsString, P);
|
|
// P := Mapper.JSONObjectToObject<TPerson>(r.BodyAsJsonObject);
|
|
Assert.areEqual('Daniele', P.FirstName);
|
|
Assert.areEqual('àòùèéì', P.LastName);
|
|
Assert.areEqual(true, P.Married);
|
|
Assert.areEqual(EncodeDate(1979, 1, 1), P.DOB);
|
|
finally
|
|
P.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestPOSTWithParamsAndJSONBody;
|
|
var
|
|
r: IRESTResponse;
|
|
JSON: System.JSON.TJSONObject;
|
|
begin
|
|
JSON := System.JSON.TJSONObject.Create;
|
|
JSON.AddPair('client', 'clientdata');
|
|
r := RESTClient.doPOST('/echo', ['1', '2', '3'], TSystemJSON.JSONValueToString(JSON));
|
|
JSON := TSystemJSON.StringAsJSONObject(r.BodyAsString);
|
|
try
|
|
Assert.areEqual('clientdata', JSON.Get('client').JsonValue.Value);
|
|
Assert.areEqual('from server', JSON.Get('echo').JsonValue.Value);
|
|
finally
|
|
JSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestProducesConsumesWithWrongAcceptHeader;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.Accept('text/plain')
|
|
// action is waiting for a accept: application/json
|
|
.ContentType('application/json').doPOST('/testconsumes', [],
|
|
TSystemJSON.JSONValueToString(TJSONString.Create('Hello World')));
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, res.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestProducesConsumes01;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.Accept('application/json').ContentType('application/json').ContentCharSet('utf-8')
|
|
.doPOST('/testconsumes', [], TSystemJSON.JSONValueToString(TJSONString.Create('Hello World')));
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual('Hello World', res.BodyAsString);
|
|
Assert.areEqual('application/json', res.ContentType);
|
|
Assert.areEqual('utf-8', res.ContentTypeCharset);
|
|
end;
|
|
|
|
procedure TServerTest.TestProducesConsumes02;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.Accept('text/plain').ContentType('text/plain').doPOST('/testconsumes', [], 'Hello World');
|
|
Assert.areEqual('Hello World', res.BodyAsString);
|
|
Assert.areEqual('text/plain', res.ContentType);
|
|
Assert.areEqual('UTF-8', res.ContentTypeCharset);
|
|
|
|
res := RESTClient.Accept('text/plain').ContentType('application/json')
|
|
.doPOST('/testconsumes', [], '{"name": "Daniele"}');
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, res.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestProducesConsumes03;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.Accept(TMVCMediaType.TEXT_PLAIN)
|
|
.ContentType(BuildContentType(TMVCMediaType.TEXT_PLAIN, TMVCCharSet.ISO88591)).doPOST('/testconsumes/textiso8859_1',
|
|
[], 'àèéìòù');
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.AreNotEqual('àèéìòù', res.BodyAsString, 'non iso8859-1 text is rendered ok whan should not');
|
|
Assert.areEqual(TMVCMediaType.TEXT_PLAIN, res.ContentType);
|
|
Assert.areEqual(TMVCCharSet.ISO88591, res.ContentTypeCharset.ToLower);
|
|
|
|
res := RESTClient.Accept(TMVCMediaType.TEXT_PLAIN)
|
|
.ContentType(BuildContentType(TMVCMediaType.TEXT_PLAIN, TMVCCharSet.ISO88591)).doPOST('/testconsumes/textiso8859_1',
|
|
[], 'this is an iso8859-1 text');
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual('this is an iso8859-1 text', res.BodyAsString);
|
|
Assert.areEqual(TMVCMediaType.TEXT_PLAIN, res.ContentType);
|
|
Assert.areEqual(TMVCCharSet.ISO88591, res.ContentTypeCharset.ToLower);
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestPUTWithParamsAndJSONBody;
|
|
var
|
|
r: IRESTResponse;
|
|
JSON: System.JSON.TJSONObject;
|
|
begin
|
|
JSON := System.JSON.TJSONObject.Create;
|
|
JSON.AddPair('client', 'clientdata');
|
|
r := RESTClient.doPUT('/echo', ['1', '2', '3'], TSystemJSON.JSONValueToString(JSON));
|
|
|
|
JSON := TSystemJSON.StringAsJSONObject(r.BodyAsString);
|
|
try
|
|
Assert.areEqual('clientdata', JSON.Get('client').JsonValue.Value);
|
|
Assert.areEqual('from server', JSON.Get('echo').JsonValue.Value);
|
|
finally
|
|
JSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestXHTTPMethodOverride_POST_as_PUT;
|
|
var
|
|
r: IRESTResponse;
|
|
JSON: System.JSON.TJSONObject;
|
|
begin
|
|
JSON := System.JSON.TJSONObject.Create;
|
|
JSON.AddPair('client', 'clientdata');
|
|
r := RESTClient.Header(TMVCConstants.X_HTTP_Method_Override, 'PUT').doPOST('/echo', ['1', '2', '3'],
|
|
TSystemJSON.JSONValueToString(JSON));
|
|
|
|
JSON := TSystemJSON.StringAsJSONObject(r.BodyAsString);
|
|
try
|
|
Assert.areEqual('clientdata', JSON.Get('client').JsonValue.Value);
|
|
Assert.areEqual('from server', JSON.Get('echo').JsonValue.Value);
|
|
finally
|
|
JSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestReqWithParams;
|
|
var
|
|
ss: TStringStream;
|
|
lJSON: System.JSON.TJSONObject;
|
|
r: IRESTResponse;
|
|
begin
|
|
r := RESTClient.doGET('/unknownurl/bla/bla', []);
|
|
|
|
ss := TStringStream.Create;
|
|
try
|
|
ss.CopyFrom(r.Body, 0);
|
|
Assert.areEqual(ss.DataString, r.BodyAsString,
|
|
'In case of protocol error, the body doesn''t contain the same of BodyAsString');
|
|
finally
|
|
ss.Free;
|
|
end;
|
|
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, r.ResponseCode, '/unknownurl/bla/bla');
|
|
|
|
r := RESTClient.doGET('/req/with/params/', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, r.ResponseCode, '/req/with/params/');
|
|
|
|
r := RESTClient.doGET('/req/with/params', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, r.ResponseCode, '/req/with/params');
|
|
|
|
r := RESTClient.doGET('/req/with/params', ['1', '2', '3']);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, r.ResponseCode);
|
|
|
|
lJSON := TSystemJSON.StringAsJSONObject(r.BodyAsString);
|
|
try
|
|
Assert.areEqual('1', lJSON.Get('par1').JsonValue.Value);
|
|
Assert.areEqual('2', lJSON.Get('par2').JsonValue.Value);
|
|
Assert.areEqual('3', lJSON.Get('par3').JsonValue.Value);
|
|
Assert.areEqual('GET', lJSON.Get('method').JsonValue.Value);
|
|
|
|
r := RESTClient.doPOST('/req/with/params', ['1', '2', '3']);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, r.ResponseCode);
|
|
|
|
r := RESTClient.doPUT('/req/with/params', ['1', '2', '3']);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NotFound, r.ResponseCode);
|
|
|
|
r := RESTClient.doDELETE('/req/with/params', ['1', '2', '3']);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, r.ResponseCode);
|
|
Assert.areEqual('', r.BodyAsString);
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestReqWithURLMappedParams(const par1, par2, par3: string);
|
|
var
|
|
r: IRESTResponse;
|
|
begin
|
|
r := RESTClient.doGET('/req/with/params', [par1, par2, par3]);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, r.ResponseCode,
|
|
Format('URL mapped fails for these characters: "%s","%s","%s"', [par1, par2, par3]));
|
|
end;
|
|
|
|
procedure TServerTest.TestResponseAccepted;
|
|
var
|
|
r: IRESTResponse;
|
|
lJSON: TJDOJsonObject;
|
|
begin
|
|
r := RESTClient.doPOST('/responses/accepted', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Accepted, r.ResponseCode);
|
|
Assert.isTrue(r.ResponseText.Contains('thisisthereason'));
|
|
lJSON := StrToJSONObject(r.BodyAsString);
|
|
try
|
|
Assert.areEqual(2, lJSON.O['task'].Count);
|
|
Assert.areEqual('http://pippo.it/1234', lJSON.O['task'].S['href']);
|
|
Assert.areEqual('1234', lJSON.O['task'].S['id']);
|
|
finally
|
|
lJSON.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestResponseCreated;
|
|
var
|
|
r: IRESTResponse;
|
|
begin
|
|
r := RESTClient.doPOST('/responses/created', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.Created, r.ResponseCode);
|
|
Assert.isTrue(r.ResponseText.Contains('thisisthereason'));
|
|
Assert.IsEmpty(r.BodyAsString);
|
|
end;
|
|
|
|
procedure TServerTest.TestResponseNoContent;
|
|
var
|
|
r: IRESTResponse;
|
|
begin
|
|
r := RESTClient.doGET('/responses/nocontent', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.NoContent, r.ResponseCode);
|
|
Assert.isTrue(r.ResponseText.Contains('No Content'));
|
|
Assert.IsEmpty(r.BodyAsString);
|
|
end;
|
|
|
|
// procedure TServerTest.TestSerializationType;
|
|
// var
|
|
// LResp: IRESTResponse;
|
|
// LPersonProps, LPersonFlds: TPerson;
|
|
// LObj: TObject;
|
|
// begin
|
|
// LResp := RESTClient.doGET('/people', ['1']);
|
|
// LPersonProps := Mapper.JSONObjectToObject<TPerson>(LResp.BodyAsJsonObject);
|
|
// try
|
|
// LResp := RESTClient.doGET('/people', ['1', 'asfields']);
|
|
// LObj := Mapper.JSONObjectFieldsToObject(LResp.BodyAsJsonObject);
|
|
// try
|
|
// Assert.AreEqual('BusinessObjectsU.TPerson', LObj.QualifiedClassName);
|
|
// LPersonFlds := TPerson(LObj);
|
|
// Assert.isTrue(LPersonFlds.Equals(LPersonProps),
|
|
// 'Object tranferred using field serialization is different from the object serialized in the default way');
|
|
// finally
|
|
// LObj.Free;
|
|
// end;
|
|
// finally
|
|
// LPersonProps.Free;
|
|
// end;
|
|
// end;
|
|
|
|
procedure TServerTest.TestDeserializeNullablesWithNulls;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lSer: TMVCJsonDataObjectsSerializer;
|
|
lNullableTest: TNullablesTest;
|
|
begin
|
|
/// nullables/getsinglewithnulls
|
|
|
|
lRes := RESTClient.doGET('/nullables/getsinglewithnulls', []);
|
|
lSer := TMVCJsonDataObjectsSerializer.Create;
|
|
try
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
lSer.DeserializeObject(lRes.BodyAsString, lNullableTest);
|
|
Assert.isFalse(lNullableTest.f_int2.HasValue);
|
|
Assert.isFalse(lNullableTest.f_int4.HasValue);
|
|
Assert.isFalse(lNullableTest.f_int8.HasValue);
|
|
Assert.isFalse(lNullableTest.f_date.HasValue);
|
|
Assert.isFalse(lNullableTest.f_time.HasValue);
|
|
Assert.isFalse(lNullableTest.f_datetime.HasValue);
|
|
Assert.isFalse(lNullableTest.f_bool.HasValue);
|
|
Assert.isFalse(lNullableTest.f_float4.HasValue);
|
|
Assert.isFalse(lNullableTest.f_float8.HasValue);
|
|
Assert.isFalse(lNullableTest.f_string.HasValue);
|
|
Assert.isFalse(lNullableTest.f_currency.HasValue);
|
|
{ TODO -oDanieleT -cGeneral : Compare streams too }
|
|
// Assert.AreEqual('0123456789', lNullableTest.f_blob.Value, 0);
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
finally
|
|
lSer.Free;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestDeserializeNullablesWithValue;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lSer: TMVCJsonDataObjectsSerializer;
|
|
lNullableTest: TNullablesTest;
|
|
begin
|
|
/// nullables/getsinglewithnulls
|
|
|
|
lRes := RESTClient.doGET('/nullables/getsingle', []);
|
|
lSer := TMVCJsonDataObjectsSerializer.Create;
|
|
try
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
lSer.DeserializeObject(lRes.BodyAsString, lNullableTest);
|
|
Assert.areEqual<Int16>(2, lNullableTest.f_int2.Value);
|
|
Assert.areEqual(4, lNullableTest.f_int4.Value);
|
|
Assert.areEqual<Int32>(8, lNullableTest.f_int8.Value);
|
|
Assert.areEqual('2011-11-17', DateToISODate(lNullableTest.f_date.Value));
|
|
Assert.areEqual('12:24:36', TimeToISOTime(lNullableTest.f_time.Value));
|
|
Assert.areEqual('2011-11-17T12:24:36.048Z', DateTimeToISOTimeStamp(lNullableTest.f_datetime.Value));
|
|
Assert.areEqual<boolean>(true, lNullableTest.f_bool.Value);
|
|
Assert.areEqual(10 / 4, lNullableTest.f_float4.Value, 0.0000009);
|
|
Assert.areEqual(10 / 8, lNullableTest.f_float8.Value, 0.0000000000009);
|
|
Assert.areEqual('0123456789', lNullableTest.f_string.Value);
|
|
Assert.areEqual(98765.4321, lNullableTest.f_currency.Value, 0);
|
|
{ TODO -oDanieleT -cGeneral : Compare streams too }
|
|
// Assert.AreEqual('0123456789', lNullableTest.f_blob.Value, 0);
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
finally
|
|
lSer.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestDirectoryRedirect;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/static/', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/static/');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/static', []);
|
|
Assert.areEqual(301, lRes.ResponseCode, '/static');
|
|
Assert.areEqual('/static/', lRes.HeaderValue('Location'), 'Wrong redirect');
|
|
end;
|
|
|
|
procedure TServerTest.TestDirectoryTraversal1;
|
|
var
|
|
lRes: IRESTResponse;
|
|
I: Integer;
|
|
lUrl: string;
|
|
begin
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/index.html', []);
|
|
Assert.areEqual(200, lRes.ResponseCode);
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/..\donotdeleteme.txt', []);
|
|
Assert.areEqual(404, lRes.ResponseCode);
|
|
|
|
lUrl := 'Windows\win.ini';
|
|
for I := 1 to 20 do
|
|
begin
|
|
lUrl := '..\' + lUrl;
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/' + lUrl, []);
|
|
Assert.areEqual(404, lRes.ResponseCode, 'Fail with: ' + '/' + lUrl);
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestDirectoryTraversal2;
|
|
var
|
|
lRes: IRESTResponse;
|
|
I: Integer;
|
|
lUrl: string;
|
|
begin
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/static/..\..\donotdeleteme.txt', []);
|
|
Assert.areEqual(404, lRes.ResponseCode);
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/static/../../donotdeleteme.txt', []);
|
|
Assert.areEqual(404, lRes.ResponseCode);
|
|
|
|
lUrl := 'Windows\win.ini';
|
|
for I := 1 to 30 do
|
|
begin
|
|
lUrl := '..\' + lUrl;
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/' + lUrl, []);
|
|
Assert.areEqual(404, lRes.ResponseCode, 'Fail with: ' + '/' + lUrl);
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestSerializeAndDeserializeNullables;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lSer: TMVCJsonDataObjectsSerializer;
|
|
lNullableTest: TNullablesTest;
|
|
begin
|
|
lRes := RESTClient.doGET('/nullables/getsingle', []);
|
|
lSer := TMVCJsonDataObjectsSerializer.Create;
|
|
try
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
lSer.DeserializeObject(lRes.BodyAsString, lNullableTest);
|
|
lRes := RESTClient.doPOST('/nullables/pingpong', [], lSer.SerializeObject(lNullableTest));
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
lSer.DeserializeObject(lRes.BodyAsString, lNullableTest);
|
|
Assert.areEqual<Int16>(2, lNullableTest.f_int2.Value);
|
|
Assert.areEqual(4, lNullableTest.f_int4.Value);
|
|
Assert.areEqual<Int32>(8, lNullableTest.f_int8.Value);
|
|
Assert.areEqual('2011-11-17', DateToISODate(lNullableTest.f_date.Value));
|
|
Assert.areEqual('12:24:36', TimeToISOTime(lNullableTest.f_time.Value));
|
|
Assert.areEqual('2011-11-17T12:24:36.048Z', DateTimeToISOTimeStamp(lNullableTest.f_datetime.Value));
|
|
Assert.areEqual<boolean>(true, lNullableTest.f_bool.Value);
|
|
Assert.areEqual(10 / 4, lNullableTest.f_float4.Value, 0.0000009);
|
|
Assert.areEqual(10 / 8, lNullableTest.f_float8.Value, 0.0000000000009);
|
|
Assert.areEqual('0123456789', lNullableTest.f_string.Value);
|
|
Assert.areEqual(98765.4321, lNullableTest.f_currency.Value, 0);
|
|
{ TODO -oDanieleT -cGeneral : Compare streams too }
|
|
// Assert.AreEqual('0123456789', lNullableTest.f_blob.Value, 0);
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
finally
|
|
lSer.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestSerializeAndDeserializeNullables_ISSUE_362;
|
|
const
|
|
JSON1: string = '{"f_int2":2,"f_int4":4,"f_int8":8,"f_string":"0123456789","f_bool":true, ' +
|
|
'"f_date":"2011-11-17","f_time":"12:24:36","f_datetime":"2011-11-17T12:24:36.048Z",' +
|
|
'"f_float4":2.5,"f_float8":1.25,"f_currency":98765.4321,"f_blob":"0123456789"}';
|
|
JSON2: string = '{"f_int2":2,"f_int4":4,"f_int8":8,"f_string":"0123456789","f_bool":true, ' +
|
|
'"f_date":"2011-11-17","f_time":"12:24:36","f_datetime":"2011-11-17T12:24:36.048Z",' +
|
|
'"f_float4":2,"f_float8":3,"f_currency":4,"f_blob":"0123456789"}';
|
|
var
|
|
lSer: TMVCJsonDataObjectsSerializer;
|
|
lNullableTest: TNullablesTest;
|
|
begin
|
|
lSer := TMVCJsonDataObjectsSerializer.Create;
|
|
try
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
lSer.DeserializeObject(JSON1, lNullableTest);
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
{ in this case nullable floats type actually contains integers... }
|
|
lSer.DeserializeObject(JSON2, lNullableTest);
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
Assert.Pass();
|
|
finally
|
|
lSer.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestSerializeAndDeserializeNullables_Passing_Integers_InsteadOf_Floats;
|
|
const
|
|
JSON1: string = '{"f_int2":2,"f_int4":4,"f_int8":8,"f_string":"0123456789","f_bool":true, ' +
|
|
'"f_date":"2011-11-17","f_time":"12:24:36","f_datetime":"2011-11-17T12:24:36.048Z",' +
|
|
'"f_float4_not_null":1234,"f_float8_not_null":2345, ' +
|
|
'"f_float4":2.5,"f_float8":1.25,"f_currency":98765.4321,"f_blob":"0123456789"}';
|
|
var
|
|
lSer: TMVCJsonDataObjectsSerializer;
|
|
lNullableTest: TNullablesTest;
|
|
begin
|
|
lSer := TMVCJsonDataObjectsSerializer.Create;
|
|
try
|
|
lNullableTest := TNullablesTest.Create();
|
|
try
|
|
{ in this case not nullable floats type actually contains integers... }
|
|
lSer.DeserializeObject(JSON1, lNullableTest);
|
|
Assert.areEqual(1234, lNullableTest.f_float4_not_null, 0.0001);
|
|
Assert.areEqual(2345, lNullableTest.f_float8_not_null, 0.0001);
|
|
finally
|
|
lNullableTest.Free;
|
|
end;
|
|
finally
|
|
lSer.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestSession;
|
|
var
|
|
c1: TRESTClient;
|
|
res: IRESTResponse;
|
|
S: string;
|
|
begin
|
|
c1 := TRESTClient.Create(TEST_SERVER_ADDRESS, 9999);
|
|
try
|
|
c1.Accept(TMVCMediaType.APPLICATION_JSON);
|
|
res := c1.doPOST('/session', ['daniele teti']); // imposto un valore in sessione
|
|
S := res.HeaderValue('Set-Cookie');
|
|
Assert.isFalse(S.Contains('Expires'), 'Session cookie contains "expires" attribute');
|
|
res := c1.doGET('/session', []); // rileggo il valore dalla sessione
|
|
Assert.areEqual('daniele teti', res.BodyAsString);
|
|
c1.Accept(TMVCMediaType.TEXT_PLAIN);
|
|
res := c1.doGET('/session', []);
|
|
// rileggo il valore dalla sessione
|
|
Assert.areEqual('daniele teti', res.BodyAsString);
|
|
|
|
// aggiungo altri cookies
|
|
res := c1.doGET('/lotofcookies', []); // rileggo il valore dalla sessione
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
c1.Accept(TMVCMediaType.TEXT_PLAIN);
|
|
res := c1.doGET('/session', []); // rileggo il valore dalla sessione
|
|
Assert.areEqual('daniele teti', res.BodyAsString);
|
|
finally
|
|
c1.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestSessionWithLogin;
|
|
begin
|
|
DoLoginWith('daniele');
|
|
DoLogout;
|
|
end;
|
|
|
|
procedure TServerTest.TestSPASupport;
|
|
var
|
|
lRes: IRESTResponse;
|
|
I: Integer;
|
|
lUrl: string;
|
|
begin
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/spa/index.html', []);
|
|
Assert.areEqual(200, lRes.ResponseCode);
|
|
Assert.Contains(lRes.BodyAsString, 'This is a TEXT file');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/spa/', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/static/');
|
|
Assert.Contains(lRes.BodyAsString, 'This is a TEXT file');
|
|
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/spa/pippo/pluto/paperino', []);
|
|
Assert.areEqual(200, lRes.ResponseCode, '/spa/pippo/pluto/paperino');
|
|
Assert.Contains(lRes.BodyAsString, 'This is a TEXT file');
|
|
|
|
lUrl := 'Windows\win.ini';
|
|
for I := 1 to 30 do
|
|
begin
|
|
{directory traversal attacks receive always 404}
|
|
lUrl := '..\' + lUrl;
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_HTML).doGET('/spa/' + lUrl, []);
|
|
Assert.AreEqual(404, lRes.ResponseCode);
|
|
//Assert.Contains<Integer>(TArray<Integer>.Create(200,301), lRes.ResponseCode);
|
|
Assert.Contains('<HTML><BODY><B>404 Not Found</B></BODY></HTML>', lRes.BodyAsString);
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestStringDictionary;
|
|
var
|
|
lRes: IRESTResponse;
|
|
lSer: TMVCJsonDataObjectsSerializer;
|
|
lDict: TMVCStringDictionary;
|
|
begin
|
|
lRes := RESTClient.doPOST('/stringdictionary', [], '{"prop1":"value1","prop2":"value2"}');
|
|
Assert.areEqual(200, lRes.ResponseCode);
|
|
lSer := TMVCJsonDataObjectsSerializer.Create;
|
|
try
|
|
lDict := TMVCStringDictionary.Create;
|
|
try
|
|
lSer.DeserializeObject(lRes.BodyAsString, lDict);
|
|
Assert.areEqual(3, lDict.Count);
|
|
Assert.areEqual('value1', lDict['prop1']);
|
|
Assert.areEqual('value2', lDict['prop2']);
|
|
Assert.areEqual('changed', lDict['fromserver']);
|
|
finally
|
|
lDict.Free;
|
|
end;
|
|
finally
|
|
lSer.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedAll;
|
|
var
|
|
res: IRESTResponse;
|
|
lJObj: System.JSON.TJSONObject;
|
|
begin
|
|
// ----------------------'/typed/all/($ParString)/($ParInteger)/($ParInt64)/($ParSingle)/($ParDouble)/($ParExtended)')', []);
|
|
res := RESTClient.doGET('/typed/all/mystring/1234/12345678/12.3/1234.5678/1234.5678', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
lJObj := TSystemJSON.StringAsJSONObject(res.BodyAsString);
|
|
try
|
|
Assert.areEqual('mystring', lJObj.GetValue('ParString').Value, 'ParString');
|
|
Assert.areEqual(1234, TJSONNumber(lJObj.GetValue('ParInteger')).AsInt, 'ParInteger');
|
|
Assert.areEqual(int64(12345678), TJSONNumber(lJObj.GetValue('ParInt64')).AsInt64, 'ParInt64');
|
|
Assert.areEqual(12.3, RoundTo(TJSONNumber(lJObj.GetValue('ParSingle')).AsDouble, -1), 'ParSingle');
|
|
Assert.areEqual(1234.5678, RoundTo(TJSONNumber(lJObj.GetValue('ParDouble')).AsDouble, -4), 'ParDouble');
|
|
Assert.areEqual(1234.5678, RoundTo(TJSONNumber(lJObj.GetValue('ParExtended')).AsDouble, -4), 'ParExtended');
|
|
finally
|
|
lJObj.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedBooleans;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/booleans/true/false/1/0', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('true.false.true.false', res.BodyAsString.ToLower);
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedDouble1;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/double1/1234.5678', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('1234.5678 modified from server', res.BodyAsString);
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedExtended1;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/extended1/1234.5678', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('1234.5678 modified from server', res.BodyAsString);
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedInt641;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/int641/12345678', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('12345678 modified from server', res.BodyAsString);
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedInteger1;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/integer1/1234', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('1234 modified from server', res.BodyAsString);
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedIntegerWrongParam1;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/integer1/boom', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.BadRequest, 'Cannot route');
|
|
Assert.Contains(res.BodyAsString, 'EConvertError');
|
|
Assert.Contains(res.BodyAsString, '''boom'' is not a valid');
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedSingle1;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/single1/1234.5', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('1234.5 modified from server', res.BodyAsString);
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedString1;
|
|
var
|
|
res: IRESTResponse;
|
|
lValues: array [0 .. 7] of string;
|
|
S: string;
|
|
begin
|
|
lValues[0] := 'daniele';
|
|
lValues[1] := 'dan''iele';
|
|
lValues[2] := '"daniele"';
|
|
lValues[3] := '"daniele teti"';
|
|
lValues[4] := '"daniele" "teti"';
|
|
lValues[5] := '"daniele" "teti"!';
|
|
lValues[6] := ' _\"daniele" "teti"!_ ';
|
|
|
|
for S in lValues do
|
|
begin
|
|
res := RESTClient.doGET('/typed/string1', [S]);
|
|
Assert.areEqual(HTTP_STATUS.OK, res.ResponseCode, 'Cannot route when param is ' + S);
|
|
Assert.areEqual('*' + S + '*', res.BodyAsString);
|
|
end;
|
|
|
|
// res := RESTClient.doGET('/typed/string1/daniele', []);
|
|
// Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
// Assert.areEqual('daniele modified from server', res.BodyAsString);
|
|
//
|
|
// res := RESTClient.doGET('/typed/string1/dan''iele', []);
|
|
// Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
// Assert.areEqual('dan''iele modified from server', res.BodyAsString);
|
|
//
|
|
// res := RESTClient.doGET('/typed/string1/"the value"', []);
|
|
// Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
// Assert.areEqual('"the value" modified from server', res.BodyAsString);
|
|
//
|
|
// res := RESTClient.doGET('/typed/string1/"the:value"', []);
|
|
// Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
// Assert.areEqual('"the value" modified from server', res.BodyAsString);
|
|
//
|
|
// res := RESTClient.doGET('/typed/string1/"the:value!"', []);
|
|
// Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
// Assert.areEqual('"the value" modified from server', res.BodyAsString);
|
|
//
|
|
// res := RESTClient.doGET('/typed/string1/"the:value!?"', []);
|
|
// Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
// Assert.areEqual('"the value" modified from server', res.BodyAsString);
|
|
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedTGuid1;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/typed/tguid1/{161BEA56-480B-40A8-AF0E-7FDF6B08E121}', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('{161BEA56-480B-40A8-AF0E-7FDF6B08E121} modified from server', res.BodyAsString);
|
|
|
|
res := RESTClient.doGET('/typed/tguid1/161BEA56-480B-40A8-AF0E-7FDF6B08E121', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('{161BEA56-480B-40A8-AF0E-7FDF6B08E121} modified from server', res.BodyAsString);
|
|
|
|
res := RESTClient.doGET('/typed/tguid1/161BEA56480B40A8AF0E7FDF6B08E121', []);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Cannot route');
|
|
Assert.areEqual('{161BEA56-480B-40A8-AF0E-7FDF6B08E121} modified from server', res.BodyAsString);
|
|
end;
|
|
|
|
procedure TServerTest.TestViewDataViewDataSet;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.Accept(TMVCMediaType.TEXT_PLAIN).doGET('/website/list', []);
|
|
Assert.areEqual(HTTP_STATUS.OK, lRes.ResponseCode, lRes.BodyAsString);
|
|
var
|
|
lLines := lRes.BodyAsString.Split([sLineBreak]);
|
|
var
|
|
lCount: Integer := 1001;
|
|
for var lLine in lLines do
|
|
begin
|
|
var
|
|
lLinePieces := lLine.Split(['|']);
|
|
if Length(lLinePieces) = 1 then
|
|
begin
|
|
lCount := 1001;
|
|
Continue;
|
|
end;
|
|
Assert.areEqual(9, Length(lLinePieces));
|
|
Assert.areEqual(lCount, lLinePieces[0].ToInteger);
|
|
Inc(lCount);
|
|
end;
|
|
end;
|
|
|
|
procedure TServerTest.TestWrongJSONBody;
|
|
var
|
|
lRes: IRESTResponse;
|
|
begin
|
|
lRes := RESTClient.doPOST('/stringdictionary', [], '{"prop1","value1"}');
|
|
Assert.areEqual(HTTP_STATUS.BadRequest, lRes.ResponseCode);
|
|
end;
|
|
|
|
procedure TServerTest.TestTypedDateTimeTypes;
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
// TDate, wrong and correct
|
|
res := RESTClient.doGET('/typed/tdate1/20161012', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, res.ResponseCode, 'wrong TDate');
|
|
|
|
res := RESTClient.doGET('/typed/tdate1/2016-10-12', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual('2016-10-12 modified from server', res.BodyAsString);
|
|
|
|
// TDateTime, wrong and correct
|
|
res := RESTClient.doGET('/typed/tdatetime1/20161', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, res.ResponseCode, 'wrong TDateTime (1)');
|
|
|
|
// Wrong
|
|
res := RESTClient.doGET('/typed/tdatetime1/20161012121212', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, res.ResponseCode, 'wrong TDateTime (2)');
|
|
|
|
// Correct without 'T'
|
|
res := RESTClient.doGET('/typed/tdatetime1/2016-10-12 12:12:12', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode, 'wrong TDateTime (3)');
|
|
Assert.areEqual('2016-10-12T12:12:12.000Z modified from server', res.BodyAsString);
|
|
|
|
// Correct in extended form
|
|
res := RESTClient.doGET('/typed/tdatetime1/2016-10-12T12:12:12', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual('2016-10-12T12:12:12.000Z modified from server', res.BodyAsString);
|
|
|
|
// Correct in extended form with timezone
|
|
res := RESTClient.doGET('/typed/tdatetime1/2016-10-12T12:12:12.000Z', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual('2016-10-12T12:12:12.000Z modified from server', res.BodyAsString);
|
|
|
|
// TTime, wrong and correct
|
|
res := RESTClient.doGET('/typed/ttime1/121212', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.BadRequest, res.ResponseCode, 'wrong TTime');
|
|
|
|
res := RESTClient.doGET('/typed/ttime1/12:12:12', []);
|
|
Assert.areEqual<Integer>(HTTP_STATUS.OK, res.ResponseCode);
|
|
Assert.areEqual('12:12:12 modified from server', res.BodyAsString);
|
|
|
|
end;
|
|
|
|
procedure TBaseServerTest.DoLoginWith(UserName: string);
|
|
var
|
|
res: IRESTResponse;
|
|
begin
|
|
res := RESTClient.doGET('/login', [UserName]);
|
|
Assert.isTrue(res.ResponseCode = HTTP_STATUS.OK, 'Login Failed');
|
|
end;
|
|
|
|
{ TJSONRPCServerTest }
|
|
|
|
procedure TJSONRPCServerTest.Setup;
|
|
begin
|
|
FExecutor := TMVCJSONRPCExecutor.Create('http://' + TEST_SERVER_ADDRESS + ':9999/jsonrpc', false);
|
|
FExecutor2 := TMVCJSONRPCExecutor.Create('http://' + TEST_SERVER_ADDRESS + ':9999/jsonrpcclass', false);
|
|
FExecutor3 := TMVCJSONRPCExecutor.Create('http://' + TEST_SERVER_ADDRESS + ':9999/jsonrpcclass1', false);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooks;
|
|
begin
|
|
var lRequest1: IJSONRPCRequest := TJSONRPCRequest.Create(1234, 'request1');
|
|
var
|
|
lResp := FExecutor3.ExecuteRequest(lRequest1);
|
|
Assert.areEqual('OnBeforeRoutingHook|OnBeforeCallHook|OnAfterCallHook',
|
|
FExecutor3.HTTPResponse.HeaderValue['x-history']);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksNotif;
|
|
var
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
var lNotif: IJSONRPCNotification := TJSONRPCNotification.Create('Notif1');
|
|
lResp := FExecutor3.ExecuteNotification(lNotif);
|
|
Assert.areEqual('OnBeforeRoutingHook|OnBeforeCallHook|OnAfterCallHook',
|
|
FExecutor3.HTTPResponse.HeaderValue['x-history']);
|
|
Assert.isFalse(lResp.IsError);
|
|
Assert.WillRaise(
|
|
procedure
|
|
begin
|
|
lResp.AsJSONString;
|
|
end, EMVCJSONRPCException);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksNotifWhenOnAfterCallHookRaisesError;
|
|
var
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
var lNotif: IJSONRPCNotification := TJSONRPCNotification.Create('error_OnAfterCallHook');
|
|
lResp := FExecutor3.ExecuteNotification(lNotif);
|
|
Assert.areEqual('', FExecutor3.HTTPResponse.HeaderValue['x-history']);
|
|
Assert.isTrue(lResp.IsError);
|
|
Assert.WillNotRaise(
|
|
procedure
|
|
begin
|
|
lResp.AsJSONString;
|
|
end, EMVCJSONRPCException);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksNotifWhenOnBeforeCallHookRaisesError;
|
|
var
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
var lNotif: IJSONRPCNotification := TJSONRPCNotification.Create('error_OnBeforeCallHook');
|
|
lResp := FExecutor3.ExecuteNotification(lNotif);
|
|
Assert.areEqual('', FExecutor3.HTTPResponse.HeaderValue['x-history']);
|
|
Assert.isTrue(lResp.IsError);
|
|
Assert.WillNotRaise(
|
|
procedure
|
|
begin
|
|
lResp.AsJSONString;
|
|
end, EMVCJSONRPCException);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksNotifWhenOnBeforeRoutingHookRaisesError;
|
|
var
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
var lNotif: IJSONRPCNotification := TJSONRPCNotification.Create('error_OnBeforeRoutingHook');
|
|
lResp := FExecutor3.ExecuteNotification(lNotif);
|
|
Assert.areEqual('', FExecutor3.HTTPResponse.HeaderValue['x-history']);
|
|
Assert.isTrue(lResp.IsError);
|
|
Assert.WillNotRaise(
|
|
procedure
|
|
begin
|
|
lResp.AsJSONString;
|
|
end, EMVCJSONRPCException);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksWhenMethodRaisesError;
|
|
var
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
var lRequest1: IJSONRPCRequest := TJSONRPCRequest.Create(1234, 'RequestWithError');
|
|
lResp := FExecutor3.ExecuteRequest(lRequest1);
|
|
Assert.areEqual('OnBeforeRoutingHook|OnBeforeCallHook|OnAfterCallHook|error',
|
|
FExecutor3.HTTPResponse.HeaderValue['x-history']);
|
|
Assert.isTrue(lResp.IsError, 'Method raised error but response is not an error');
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksWhenOnAfterCallHookRaisesError;
|
|
begin
|
|
var lRequest1: IJSONRPCRequest := TJSONRPCRequest.Create(1234, 'error_OnAfterCallHook');
|
|
var
|
|
lResp := FExecutor3.ExecuteRequest(lRequest1);
|
|
Assert.isTrue(lResp.IsError, lResp.ToString(true));
|
|
Assert.areEqual(lResp.Error.ErrMessage, 'error_OnAfterCallHook');
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksWhenOnBeforeCallHookRaisesError;
|
|
begin
|
|
var lRequest1: IJSONRPCRequest := TJSONRPCRequest.Create(1234, 'error_OnBeforeCallHook');
|
|
var
|
|
lResp := FExecutor3.ExecuteRequest(lRequest1);
|
|
Assert.isTrue(lResp.IsError, lResp.ToString(true));
|
|
Assert.areEqual(lResp.Error.ErrMessage, 'error_OnBeforeCallHook');
|
|
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestHooksWhenOnBeforeRoutingHookRaisesError;
|
|
begin
|
|
var lRequest1: IJSONRPCRequest := TJSONRPCRequest.Create(1234, 'error_OnBeforeRoutingHook');
|
|
var
|
|
lResp := FExecutor3.ExecuteRequest(lRequest1);
|
|
Assert.isTrue(lResp.IsError, lResp.ToString(true));
|
|
Assert.areEqual(lResp.Error.ErrMessage, 'error_OnBeforeRoutingHook');
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestNotificationWhichRaisesError;
|
|
var
|
|
lReq: IJSONRPCNotification;
|
|
begin
|
|
lReq := TJSONRPCNotification.Create;
|
|
lReq.Method := 'NotifWithError';
|
|
var
|
|
lResp := FExecutor3.ExecuteNotification(lReq);
|
|
Assert.isTrue(lResp.IsError);
|
|
Assert.Contains(lResp.Error.ErrMessage, 'BOOM NOTIF');
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestNotificationWithoutParams;
|
|
var
|
|
lReq: IJSONRPCNotification;
|
|
begin
|
|
lReq := TJSONRPCNotification.Create;
|
|
lReq.Method := 'mynotify';
|
|
FExecutor.ExecuteNotification(lReq);
|
|
FExecutor2.ExecuteNotification(lReq);
|
|
Assert.Pass();
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestToNotFoundMethod;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'nonexist';
|
|
lReq.RequestID := 1234;
|
|
lResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.IsNotNull(lResp.Error);
|
|
Assert.areEqual(-32601, lResp.Error.Code);
|
|
Assert.isTrue(lResp.Error.ErrMessage.StartsWith('Method [nonexist] not found.'));
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithParams_DT_T_ret_DT;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
lRes: TDateTime;
|
|
lYear: Word;
|
|
lMonth: Word;
|
|
lDay: Word;
|
|
lHour: Word;
|
|
lMinute: Word;
|
|
lSecond: Word;
|
|
lMillisecond: Word;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'addtimetodatetime';
|
|
lReq.Params.Add(EncodeDate(2000, 10, 1) + EncodeTime(12, 0, 0, 0), TJSONRPCParamDataType.pdtDateTime);
|
|
lReq.Params.Add(EncodeTime(1, 0, 0, 0), TJSONRPCParamDataType.pdtTime);
|
|
lReq.RequestID := 1234;
|
|
|
|
lRPCResp := FExecutor2.ExecuteRequest(lReq);
|
|
lRes := ISOTimeStampToDateTime(lRPCResp.Result.AsString());
|
|
DecodeDateTime(lRes, lYear, lMonth, lDay, lHour, lMinute, lSecond, lMillisecond);
|
|
Assert.areEqual(2000, lYear);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithWrongNamedParams;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'add';
|
|
lReq.Params.AddByName('wrongname1', 3);
|
|
lReq.Params.AddByName('wrongname2', 4);
|
|
lReq.Params.AddByName('wrongname3', 5);
|
|
lReq.RequestID := 1234;
|
|
|
|
lRPCResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.isTrue(lRPCResp.IsError);
|
|
Assert.Contains(lRPCResp.Error.ErrMessage, 'cannot find parameter', true);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithNamedParams_I_I_I_ret_O;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
lS: string;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'add';
|
|
lReq.Params.AddByName('value1', 3);
|
|
lReq.Params.AddByName('value2', 4);
|
|
lReq.Params.AddByName('value3', 5);
|
|
lReq.RequestID := 1234;
|
|
|
|
lRPCResp := FExecutor.ExecuteRequest(lReq);
|
|
lS := (lRPCResp.Result.AsObject as TJDOJsonObject).ToJSON();
|
|
Assert.areEqual(12, TJDOJsonObject(lRPCResp.Result.AsObject).I['res']);
|
|
|
|
lRPCResp := FExecutor2.ExecuteRequest(lReq);
|
|
lS := (lRPCResp.Result.AsObject as TJDOJsonObject).ToJSON();
|
|
Assert.areEqual(12, TJDOJsonObject(lRPCResp.Result.AsObject).I['res']);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithNamedParams_I_I_ret_I;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.RequestID := 1234;
|
|
lReq.Method := 'subtract';
|
|
lReq.Params.AddByName('Value1', 18);
|
|
lReq.Params.AddByName('Value2', 8);
|
|
|
|
lResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.areEqual(10, lResp.Result.AsInteger);
|
|
Assert.areEqual(1234, lResp.RequestID.AsInteger);
|
|
|
|
lResp := FExecutor2.ExecuteRequest(lReq);
|
|
Assert.areEqual(10, lResp.Result.AsInteger);
|
|
Assert.areEqual(1234, lResp.RequestID.AsInteger);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithoutParams;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'MyRequest';
|
|
lReq.RequestID := 1234;
|
|
lResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.isFalse(lResp.IsError);
|
|
Assert.isTrue(lResp.Result.AsBoolean);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithParams_I_I_ret_I;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.RequestID := 1234;
|
|
lReq.Method := 'subtract';
|
|
lReq.Params.Add(18);
|
|
lReq.Params.Add(8);
|
|
|
|
lResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.areEqual(10, lResp.Result.AsInteger);
|
|
Assert.areEqual(1234, lResp.RequestID.AsInteger);
|
|
|
|
lResp := FExecutor2.ExecuteRequest(lReq);
|
|
Assert.areEqual(10, lResp.Result.AsInteger);
|
|
Assert.areEqual(1234, lResp.RequestID.AsInteger);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithParams_I_I_ret_A;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
lArr: TJDOJsonArray;
|
|
I: Integer;
|
|
x: Integer;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'GetListFromTo';
|
|
lReq.Params.Add(1);
|
|
lReq.Params.Add(5);
|
|
lReq.RequestID := 1234;
|
|
|
|
lRPCResp := FExecutor.ExecuteRequest(lReq);
|
|
lArr := TJDOJsonArray(lRPCResp.Result.AsObject);
|
|
x := 1;
|
|
for I := 0 to lArr.Count - 1 do
|
|
begin
|
|
Assert.areEqual(x, lArr[I].IntValue);
|
|
Inc(x);
|
|
end;
|
|
|
|
lRPCResp := FExecutor2.ExecuteRequest(lReq);
|
|
lArr := TJDOJsonArray(lRPCResp.Result.AsObject);
|
|
x := 1;
|
|
for I := 0 to lArr.Count - 1 do
|
|
begin
|
|
Assert.areEqual(x, lArr[I].IntValue);
|
|
Inc(x);
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequestWithParams_I_I_I_ret_O;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
lS: string;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'add';
|
|
lReq.Params.Add(3);
|
|
lReq.Params.Add(4);
|
|
lReq.Params.Add(5);
|
|
lReq.RequestID := 1234;
|
|
|
|
lRPCResp := FExecutor.ExecuteRequest(lReq);
|
|
lS := (lRPCResp.Result.AsObject as TJDOJsonObject).ToJSON();
|
|
Assert.areEqual(12, TJDOJsonObject(lRPCResp.Result.AsObject).I['res']);
|
|
|
|
lRPCResp := FExecutor2.ExecuteRequest(lReq);
|
|
lS := (lRPCResp.Result.AsObject as TJDOJsonObject).ToJSON();
|
|
Assert.areEqual(12, TJDOJsonObject(lRPCResp.Result.AsObject).I['res']);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequest_NamedParams_S_I_ret_S;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'MultiplyString';
|
|
lReq.Params.AddByName('aString', 'Daniele');
|
|
lReq.Params.AddByName('Multiplier', 4);
|
|
lReq.RequestID := 1234;
|
|
lRPCResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.isFalse(lRPCResp.IsError);
|
|
Assert.areEqual('DanieleDanieleDanieleDaniele', lRPCResp.Result.AsString);
|
|
|
|
lRPCResp := FExecutor2.ExecuteRequest(lReq);
|
|
Assert.areEqual('DanieleDanieleDanieleDaniele', lRPCResp.Result.AsString);
|
|
end;
|
|
|
|
procedure TJSONRPCServerTest.TestRequest_S_I_ret_S;
|
|
var
|
|
lReq: IJSONRPCRequest;
|
|
lRPCResp: IJSONRPCResponse;
|
|
begin
|
|
lReq := TJSONRPCRequest.Create;
|
|
lReq.Method := 'MultiplyString';
|
|
lReq.Params.Add('Daniele');
|
|
lReq.Params.Add(4);
|
|
lReq.RequestID := 1234;
|
|
lRPCResp := FExecutor.ExecuteRequest(lReq);
|
|
Assert.areEqual('DanieleDanieleDanieleDaniele', lRPCResp.Result.AsString);
|
|
|
|
lRPCResp := FExecutor2.ExecuteRequest(lReq);
|
|
Assert.areEqual('DanieleDanieleDanieleDaniele', lRPCResp.Result.AsString);
|
|
end;
|
|
|
|
initialization
|
|
|
|
TDUnitX.RegisterTestFixture(TServerTest);
|
|
TDUnitX.RegisterTestFixture(TJSONRPCServerTest);
|
|
|
|
end.
|