source upload

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/ReadMe.md

@@ -0,0 +1,23 @@
+
+  Practical Domain Driven Design
+ ================================
+ 
+Welcome to the Progressive samples folders!
+  
+In the sub-folders, we will write a almost-complete DDD sample, using TDD.
+Folders are enumerated to follow the iterations on the project: 01, 02, 03...
+  
+Since it was started during EKON 21 conferences, it will modelize a conference booking system.
+
+Don't forget to check out the associated Slides from https://synopse.info/files/ekon21
+
+
+01 iteration
+------------
+
+Contains the core units, following the "Clean Architecture" patterns.
+
+Implements 
+  * TestAll.dpr to run the regression tests;
+  * ServBook.dpr to run a Booking service, using the Conference Domain objects.
+  

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/dom/DomConferenceDepend.pas

@@ -0,0 +1,21 @@
+/// Conference Domain dependencies interface definition
+unit DomConferenceDepend;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  DomConferenceTypes;
+
+
+implementation
+
+initialization
+  TJSONSerializer.RegisterObjArrayForJSON([
+    ]);
+  TInterfaceFactory.RegisterInterfaces([
+    ]);
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/dom/DomConferenceInterfaces.pas

@@ -0,0 +1,21 @@
+/// Conference Domain services interfaces definition
+unit DomConferenceInterfaces;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  DomConferenceTypes;
+
+
+implementation
+
+initialization
+  TJSONSerializer.RegisterObjArrayForJSON([
+    ]);
+  TInterfaceFactory.RegisterInterfaces([
+    ]);
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/dom/DomConferenceServices.pas

@@ -0,0 +1,18 @@
+/// Conference Domain services implementation
+unit DomConferenceServices;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  DomConferenceTypes,
+  DomConferenceInterfaces;
+
+
+implementation
+
+initialization
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/dom/DomConferenceTest.pas

@@ -0,0 +1,40 @@
+/// Conference Domain unit tests
+unit DomConferenceTest;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  SynTests,
+  mORMot,
+  DomConferenceTypes,
+  DomConferenceInterfaces,
+  DomConferenceServices;
+
+type
+  TTestConference = class(TSynTestCase)
+  protected
+  published
+    procedure DomainTypes;
+    procedure DomainBooking;
+  end;
+
+
+implementation
+
+{ TConferenceTest }
+
+procedure TTestConference.DomainTypes;
+begin
+
+end;
+
+procedure TTestConference.DomainBooking;
+begin
+
+end;
+
+initialization
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/dom/DomConferenceTypes.pas

@@ -0,0 +1,18 @@
+/// entities, values, aggregates for the Conference domain
+unit DomConferenceTypes;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot;
+
+
+implementation
+
+initialization
+  TJSONSerializer.RegisterObjArrayForJSON([
+    ]);
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/infra/InfraConferenceRepository.pas

@@ -0,0 +1,19 @@
+/// Conference Repository implementation
+unit InfraConferenceRepository;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  DomConferenceTypes,
+  DomConferenceDepend;
+
+
+implementation
+
+initialization
+  // TDDDRepositoryRestFactory.ComputeSQLRecord(); from mORMotDDD
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/serv/ServBook.dpr

@@ -0,0 +1,60 @@
+program ServBook;
+
+{$APPTYPE CONSOLE}
+
+uses
+  {$I SynDprUses.inc} // includes FastMM4
+  SysUtils,
+  SynLog,
+  mORMot,
+  SynSQLite3Static,
+  mORMotSQLite3,
+  mORMotService,     // cross-platform service/daemon skeleton with settings
+  // domain
+  DomConferenceTypes in '..\dom\DomConferenceTypes.pas',
+  DomConferenceInterfaces in '..\dom\DomConferenceInterfaces.pas',
+  DomConferenceDepend in '..\dom\DomConferenceDepend.pas',
+  DomConferenceServices in '..\dom\DomConferenceServices.pas',
+  // infrastructure
+  InfraConferenceRepository in '..\infra\InfraConferenceRepository.pas',
+  // servers
+  ServBookMain in '..\serv\ServBookMain.pas';
+
+type
+  TBookSettings = class(TSynDaemonSettings)
+  private
+    fProcess: TBookProcessSettings;
+  published
+    property Process: TBookProcessSettings read fProcess;
+  end;
+
+  TBookDaemon = class(TSynDaemon)
+  protected
+    fProcess: TBookProcess;
+  public
+    procedure Start; override;
+    procedure Stop; override;
+  end;
+
+
+{ TBookDaemon }
+
+procedure TBookDaemon.Start;
+begin
+  if fProcess = nil then
+    fProcess := TBookProcess.Create((fSettings as TBookSettings).Process);
+end;
+
+procedure TBookDaemon.Stop;
+begin
+  FreeAndNil(fProcess);
+end;
+
+begin
+  with TBookDaemon.Create(TBookSettings, '', '', '') do
+  try
+    CommandLine(true);
+  finally
+    Free;
+  end;
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/serv/ServBookMain.pas

@@ -0,0 +1,40 @@
+/// Booking server implementation
+unit ServBookMain;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  mORMot,
+  DomConferenceTypes,
+  DomConferenceInterfaces,
+  DomConferenceServices,
+  InfraConferenceRepository;
+
+type
+  TBookProcessSettings = class(TSynAutoCreateFields)
+  published
+  end;
+
+  TBookProcess = class(TSynPersistent)
+  protected
+    fSettings: TBookProcessSettings;
+  public
+    constructor Create(aSettings: TBookProcessSettings); reintroduce;
+    property Settings: TBookProcessSettings read fSettings;
+  end;
+
+implementation
+
+{ TBookProcess }
+
+constructor TBookProcess.Create(aSettings: TBookProcessSettings);
+begin
+  inherited Create;
+  fSettings := aSettings;
+end;
+
+initialization
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/serv/ServBookTest.pas

@@ -0,0 +1,46 @@
+/// unit tests for the Booking server
+unit ServBookTest;
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  SynCommons,
+  SynTests,
+  mORMot,
+  DomConferenceTypes,
+  DomConferenceInterfaces,
+  DomConferenceServices,
+  InfraConferenceRepository,
+  ServBookMain;
+
+type
+  TTestBookingApplication = class(TSynTestCase)
+  published
+    procedure RunService;
+    procedure ApplicationTest;
+    procedure ShutdownService;
+  end;
+
+implementation
+
+{ TTestBookingApplication }
+
+procedure TTestBookingApplication.RunService;
+begin
+
+end;
+
+procedure TTestBookingApplication.ApplicationTest;
+begin
+
+end;
+
+procedure TTestBookingApplication.ShutdownService;
+begin
+
+end;
+
+initialization
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/test/TestAll.dpr

@@ -0,0 +1,28 @@
+program TestAll;
+
+uses
+  {$I SynDprUses.inc} // cross-platform, cross-compiler (includes FastMM4)
+  SynCommons,         // shared types for the whole framework
+  SynLog,             // logging
+  SynTests,           // unitary tests
+  mORMot,             // ORM + SOA
+  SynSQLite3Static,   // statically linked SQLite3 engine
+  mORMotSQLite3,      // use SQlite3 as ORM core
+  // domain
+  DomConferenceTypes in '..\dom\DomConferenceTypes.pas',
+  DomConferenceInterfaces in '..\dom\DomConferenceInterfaces.pas',
+  DomConferenceDepend in '..\dom\DomConferenceDepend.pas',
+  DomConferenceServices in '..\dom\DomConferenceServices.pas',
+  DomConferenceTest in '..\dom\DomConferenceTest.pas',
+  // infrastructure
+  InfraConferenceRepository in '..\infra\InfraConferenceRepository.pas',
+  // servers
+  ServBookMain in '..\serv\ServBookMain.pas',
+  ServBookTest in '..\serv\ServBookTest.pas',
+  // tests
+  TestAllMain in 'TestAllMain.pas';
+
+begin
+  TSynLogTestLog := TSQLLog; // share the same log file with the whole mORMot
+  TTestEKON.RunAsConsole('EKON Automated Tests', LOG_VERBOSE);
+end.

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/01/test/TestAllMain.pas

@@ -0,0 +1,38 @@
+unit TestAllMain;
+
+interface
+
+uses
+  SynCommons,
+  SynTests,
+  DomConferenceTest,
+  ServBookTest;
+
+type
+  TTestEkon = class(TSynTestsLogged)
+  published
+    procedure Infrastructure;
+    procedure Domain;
+    procedure Applications;
+  end;
+
+implementation
+
+{ TTestEkon }
+
+procedure TTestEkon.Infrastructure;
+begin
+
+end;
+
+procedure TTestEkon.Domain;
+begin
+  AddCase([TTestConference]);
+end;
+
+procedure TTestEkon.Applications;
+begin
+  AddCase([TTestBookingApplication]);
+end;
+
+end.