27 lines
872 B
ObjectPascal
27 lines
872 B
ObjectPascal
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.
|
|
|