/packages/fcl-db/tests/testsqlscanner.lpr

 1program testsqlscanner;
 2
 3{$mode objfpc}{$H+}
 4
 5uses
 6  Classes, consoletestrunner, tcsqlscanner, 
 7  fpsqltree, fpsqlscanner, fpsqlparser,
 8  tcparser, tcgensql;
 9
10type
11
12  { TLazTestRunner }
13
14  TMyTestRunner = class(TTestRunner)
15  protected
16  // override the protected methods of TTestRunner to customize its behavior
17  end;
18
19var
20  Application: TMyTestRunner;
21
22
23begin
24  Application := TMyTestRunner.Create(nil);
25  Application.Initialize;
26  Application.Run;
27  Application.Free;
28end.