source upload

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