freepascal.compiler/packages/fcl-sdo/tests/test_suite/projects/sdo_test_suite.lpr

program sdo_test_suite;

{$mode objfpc}{$H+}

uses
  Classes, consoletestrunner, sdo, sdo_datafactory, sdo_dataobject,
  sdo_dataobjectlist, sdo_field_imp, sdo_imp_utils, sdo_linked_list,
  sdo_property, sdo_type, test_type, test_field_imp, test_dataobjectlist,
  test_dataobject, test_utils, test_xsdhelper, test_serializer,
  test_equalityhelper, test_changesummary, test_suite_utils, sdo_xsd_helper,
  test_xpathhelper, sdo_xpath_helper, sdo_copyhelper, test_copyhelper,
  sdo_consts, sdo_equalityhelper, sdo_serialization, sdo_serialization_utils,
  sdo_types, sdo_utils, sdo_changesummary, sdo_convert_helper,
  sdo_serialization_xml, test_convert_helper, test_property;

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.Run;
  Application.Free;
end.