source upload

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.