PageRenderTime 13ms CodeModel.GetById 11ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

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

https://github.com/slibre/freepascal
Unknown | 28 lines | 20 code | 8 blank | 0 comment | 0 complexity | 08446f8865b9a4067f6579219ad0969e MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 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.