dbtestframework_gui.lpr 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. program dbtestframework_gui;
  2. {$mode objfpc}{$H+}
  3. // Note that this Lazarus project by default re-compiles all DB-units! This eases
  4. // developing, but asks some attention from the developer.
  5. // If you want to use the default, installed db-units, simply clear the search path
  6. // in the compiler-options.
  7. // It could also be that after compiling this project, you have to manually clean
  8. // the .ppu files before you can build fcl-db in the regular way. (Using fpmake)
  9. uses
  10. Interfaces, Forms,
  11. // GUI:
  12. GuiTestRunner, inieditor,
  13. // Generic DB test framework units
  14. ToolsUnit,
  15. // Connectors for different database-types
  16. sqldbtoolsunit,
  17. dbftoolsunit,
  18. bufdatasettoolsunit,
  19. memdstoolsunit,
  20. SdfDSToolsUnit,
  21. tcsdfdata,
  22. // DB unittest
  23. testbasics,
  24. TestFieldTypes,
  25. TestDBBasics,
  26. TestDatasources,
  27. TestBufDatasetStreams,
  28. TestSpecificTBufDataset,
  29. TestDBExport;
  30. {$R *.res}
  31. var
  32. DBSelectForm: TFormIniEditor;
  33. begin
  34. Application.Initialize;
  35. DBSelectForm:=TFormIniEditor.Create(nil);
  36. try
  37. DBSelectForm.INIFile:='database.ini';
  38. DBSelectForm.ProfileSelectSection:='Database';
  39. DBSelectForm.ProfileSelectKey:='type';
  40. // We can ignore resulting db selection as the file is saved already:
  41. DBSelectForm.ShowModal;
  42. finally
  43. DBSelectForm.Free;
  44. end;
  45. Application.CreateForm(TGuiTestRunner, TestRunner);
  46. Application.Run;
  47. end.