delphimvcframework/unittests/general/Several/StandaloneServerTestU.pas

unit StandaloneServerTestU;

interface

uses
  DUnitX.TestFramework,
  System.Classes,
  System.SysUtils,
  System.Generics.Collections,
  MVCFramework,
  MVCFramework.Commons,
  MVCFramework.Server,
  MVCFramework.Server.Impl;

type

  [MVCPath('/')]
  TTestController = class(TMVCController)
  public
    [MVCPath('/hello')]
    [MVCHTTPMethod([httpGET])]
    procedure HelloWorld(ctx: TWebContext);
  end;

  [TestFixture]
  TTestServerContainer = class(TObject)
  protected
    [SetUp]
    procedure SetUp;
    [TearDown]
    procedure TearDown;
  public
    [Test]
    procedure TestListener;
    [Test]
    procedure TestListenerContext;
    [Test]
    procedure TestServerListenerAndClient;
  end;

implementation

uses
  MVCFramework.RESTClient,
  MVCFramework.RESTClient.Intf,
  StandAloneServerWebModuleTest;

{ TTestServerContainer }

procedure TTestServerContainer.SetUp;
begin
  inherited;

end;

procedure TTestServerContainer.TearDown;
begin
  inherited;

end;

procedure TTestServerContainer.TestListener;
var
  lListener: IMVCListener;
begin
  lListener := TMVCListener.Create(TMVCListenerProperties.New.SetName('Listener1').SetPort(5000).SetMaxConnections(512)
    .SetWebModuleClass(TestWebModuleClass));

  Assert.IsTrue(Assigned(lListener));

  lListener.Start;
  Assert.IsTrue(lListener.Active);

  lListener.Stop;
  Assert.IsFalse(lListener.Active);
end;

procedure TTestServerContainer.TestServerListenerAndClient;
var
  lListener: IMVCListener;
  LClient: IMVCRESTClient;
begin
  lListener := TMVCListener.Create(TMVCListenerProperties.New.SetName('Listener1').SetPort(6000).SetMaxConnections(1024)
    .SetWebModuleClass(TestWebModuleClass));

  Assert.IsTrue(Assigned(lListener));

  lListener.Start;
  Assert.IsTrue(lListener.Active);

  LClient := TMVCRESTClient.New.BaseURL('localhost', 6000);
  LClient.SetBasicAuthorization('dmvc', '123');
  Assert.AreEqual('Hello World called with GET', LClient.Get('/hello').Content);

  lListener.Stop;
  Assert.IsFalse(lListener.Active);
end;

procedure TTestServerContainer.TestListenerContext;
var
  LListenerCtx: IMVCListenersContext;
begin
  LListenerCtx := TMVCListenersContext.Create;

  LListenerCtx.Add(TMVCListenerProperties.New.SetName('Listener2').SetPort(6000).SetMaxConnections(1024)
    .SetWebModuleClass(TestWebModuleClass));

  LListenerCtx.Add(TMVCListenerProperties.New.SetName('Listener3').SetPort(7000).SetMaxConnections(1024)
    .SetWebModuleClass(TestWebModuleClass2));

  Assert.IsTrue(Assigned(LListenerCtx.FindByName('Listener2')));
  Assert.IsTrue(Assigned(LListenerCtx.FindByName('Listener3')));

  LListenerCtx.StartAll;

  Assert.IsTrue(LListenerCtx.Count = 2);
  Assert.IsTrue(LListenerCtx.FindByName('Listener2').Active);
  Assert.IsTrue(LListenerCtx.FindByName('Listener3').Active);

  LListenerCtx.StopAll;

  Assert.IsFalse(LListenerCtx.FindByName('Listener2').Active);
  Assert.IsFalse(LListenerCtx.FindByName('Listener3').Active);

  LListenerCtx.Remove('Listener2').Remove('Listener3');

  Assert.IsTrue(LListenerCtx.Count = 0);
end;

{ TTestController }

procedure TTestController.HelloWorld(ctx: TWebContext);
begin
  Render('Hello World called with GET');
end;

initialization

TDUnitX.RegisterTestFixture(TTestServerContainer);

end.