delphimvcframework/unittests/general/Several/JSONRPCTestsU.pas

// ***************************************************************************
//
// Delphi MVC Framework
//
// Copyright (c) 2010-2017 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 JSONRPCTestsU;

interface

uses
  DUnitX.TestFramework;

type

  [TestFixture]
  TTestJSONRPC = class(TObject)
  public
    [Test]
    procedure TestRequestWithArrayParameters;
    [Test]
    procedure TestRequestWithNoParameters;
    [Test]
    procedure TestRequestWithMalformedJSON;
    [Test]
    procedure TestNotificationWithNoParameters;
  end;

implementation

{ TJSONRPCTest }

uses MVCFramework.JSONRPC;

procedure TTestJSONRPC.TestNotificationWithNoParameters;
var
  lReq: TJSONRPCRequest;
begin
  lReq := TJSONRPCRequest.Create; // FromString('{"jsonrpc": "2.0", "method": "subtract"}');
  try
    lReq.Method := 'subtract';
    Assert.AreEqual(TJSONRPCRequestType.Notification, lReq.RequestType);
    Assert.AreEqual(0, lReq.Params.Count);
    Assert.AreEqual('subtract', lReq.Method);
  finally
    lReq.Free;
  end;
end;

procedure TTestJSONRPC.TestRequestWithArrayParameters;
var
  lReq: TJSONRPCRequest;
begin
  lReq := TJSONRPCRequest.Create;
  // FromString('{"jsonrpc": "2.0", "method": "subtract", "params": [42, 23], "id": 1}');
  try
    lReq.Method := 'subtract';
    lReq.Params.Add(42);
    lReq.Params.Add(23);
    lReq.ID := 1;
    Assert.AreEqual(1, lReq.ID.AsInteger);
    Assert.AreEqual(42, lReq.Params[0].AsInteger);
    Assert.AreEqual(23, lReq.Params[1].AsInteger);
    Assert.AreEqual('subtract', lReq.Method);
    // Assert.AreNotEqual(tjsonrpc lReq.IsNotification);
  finally
    lReq.Free;
  end;
end;

procedure TTestJSONRPC.TestRequestWithMalformedJSON;
begin
  Assert.WillRaise(
    procedure
    var
      lReq: TJSONRPCRequest;
    begin
      lReq := TJSONRPCRequest.Create;
      try
        lReq.AsJSONString := '{"jsonrpc": "2.0", this is wrong}';
      finally
        lReq.Free;
      end;
    end, EMVCJSONRPCParseError);
end;

procedure TTestJSONRPC.TestRequestWithNoParameters;
var
  lReq: TJSONRPCRequest;
begin
  lReq := TJSONRPCRequest.Create;
  try
    lReq.AsJSONString := '{"jsonrpc": "2.0", "method": "subtract", "id": 1}';
    Assert.AreEqual(1, lReq.ID.AsInteger);
    Assert.AreEqual(0, lReq.Params.Count);
    Assert.AreEqual('subtract', lReq.Method);
    Assert.AreEqual(TJSONRPCRequestType.Request, lReq.RequestType);
  finally
    lReq.Free;
  end;
end;

initialization

TDUnitX.RegisterTestFixture(TTestJSONRPC);

finalization

end.