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

https://github.com/danieleteti/delphimvcframework/issues/595

Browse Source
This commit is contained in:
Daniele Teti 2022-11-24 07:42:03 +01:00
parent 1473beb937
commit b1f838ece9
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/MVCFramework.JSONRPC.pas
View File

@ -2801,7 +2801,7 @@ end;
constructor EMVCJSONRPCRemoteException.Create(const ErrCode: Integer; const ErrMessage: String);
begin
Create(ErrCode, ErrMessage);
Create(ErrCode, ErrMessage, TValue.Empty);
end;
constructor EMVCJSONRPCRemoteException.Create(const ErrCode: Integer; const ErrMessage: String;

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

@ -46,6 +46,8 @@ type
procedure TestRequestWithMalformedJSON;
[Test]
procedure TestNotificationWithNoParameters;
[Test]
procedure TestIssue595;
end;
@ -56,6 +58,16 @@ implementation
uses MVCFramework.JSONRPC;
procedure TTestJSONRPC.TestIssue595;
begin
Assert.WillRaise(
procedure
begin
raise EMVCJSONRPCRemoteException.Create(100, 'ErrMessage');
end,
EMVCJSONRPCRemoteException);
end;
procedure TTestJSONRPC.TestNotificationWithNoParameters;
var
lReq: IJSONRPCRequest;