src/UnitTests/test_libraries.lpr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

program Test_Libraries;

{$mode objfpc}{$H+}

uses
  Classes,
  consoletestrunner,
  TestSQLLite,
  SQLite3 in '../lib/SQLite/SQLite3.pas',

  SQLiteTable3 in '../lib/SQLite/SQLiteTable3.pas';

type

  { TLazTestRunner }

  TMyTestRunner = class(TTestRunner)
  protected
  // override the protected methods of TTestRunner to customize its behavior
  end;

var
  Application: TMyTestRunner;

begin
  Application := TMyTestRunner.Create(nil);
  Application.Initialize;
  Application.Title := 'FPCUnit Console test runner';
  Application.Run;
  Application.Free;
end.