source upload

contrib/mORMot/SQLite3/Samples/35 - Practical DDD/03/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/03/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.