source upload

contrib/mORMot/SQLite3/Samples/37 - FishShop Service/TestFishShop.dpr

@@ -0,0 +1,26 @@
+program TestFishShop;
+
+{$APPTYPE CONSOLE}
+
+uses
+  {$I SynDprUses.inc}  // use FastMM4 on older Delphi, or set FPC threads
+  SysUtils,
+  SynCommons,          // framework core
+  SynLog,              // logging features
+  mORMot,              // RESTful server & ORM
+  mORMotSQLite3,       // SQLite3 engine as ORM core
+  SynSQLite3Static,    // staticaly linked SQLite3 engine
+  mORMotHttpServer,    // HTTP server for RESTful server
+  SynTests,            // tests features
+  ServFishShopTypes,   // definitions shared by Server and Clients
+  ServFishShopMain,    // the main implementation unit of our daemon
+  ServFishShopTests;   // where the tests are actually implemented
+
+begin
+  // set logging abilities
+  SQLite3Log.Family.Level := LOG_VERBOSE;
+  //SQLite3Log.Family.EchoToConsole := LOG_VERBOSE;
+  SQLite3Log.Family.PerThreadLog := ptIdentifiedInOnFile;
+  
+end.
+