paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added Lazarus gui-frontend for db unit-tests.

Browse Source 
git-svn-id: trunk@21253 -
This commit is contained in:
joost 2012-05-08 10:22:39 +00:00
parent a5bfcb026d
commit e2d43a63b2
3 changed files with 118 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -2083,6 +2083,8 @@ packages/fcl-db/tests/dbfexporttest.lpr svneol=native#text/plain
packages/fcl-db/tests/dbfexporttestcase1.pas svneol=native#text/plain
packages/fcl-db/tests/dbftoolsunit.pas svneol=native#text/plain
packages/fcl-db/tests/dbtestframework.pas svneol=native#text/plain
packages/fcl-db/tests/dbtestframework_gui.lpi svneol=native#text/plain
packages/fcl-db/tests/dbtestframework_gui.lpr svneol=native#text/plain
packages/fcl-db/tests/memdstoolsunit.pas svneol=native#text/plain
packages/fcl-db/tests/sdfdstoolsunit.pas svneol=native#text/plain
packages/fcl-db/tests/sqldbtoolsunit.pas svneol=native#text/plain

79
packages/fcl-db/tests/dbtestframework_gui.lpi Normal file
View File

@ -0,0 +1,79 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="FPCUnitTestRunner"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
</Item3>
</RequiredPackages>
<Units Count="1">
<Unit0>
<Filename Value="dbtestframework_gui.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="dbtestframework_gui"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../src/base;../src/sqldb/odbc;../src/sqldb/mssql;../src/sqldb/sqlite;../src/sqldb/postgres;../src/sqldb/oracle;../src/memds;../src/sqldb;../src/sqldb/interbase;../src/sqldb/mysql;../src/dbase;../src/sdf"/>
</SearchPaths>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="4">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
<Item4>
<Name Value="EIBDatabaseError"/>
</Item4>
</Exceptions>
</Debugging>
</CONFIG>

37
packages/fcl-db/tests/dbtestframework_gui.lpr Normal file
View File

@ -0,0 +1,37 @@
program dbtestframework_gui;
{$mode objfpc}{$H+}
// Note that this Lazarus project by default re-compiles all DB-units! This eases
// developing, but asks some attention from the developer.
// If you want to use the default, installed db-units, simply clear the search path
// in the compiler-options.
// It could also be that after compiling this project, you have to manually clean
// the .ppu files before you can build fcl-db in the regular way. (Using fpmake)
uses
Interfaces, Forms, GuiTestRunner,
// Generic DB-testframework units
ToolsUnit,
// Connecors for different database-types
sqldbtoolsunit,
dbftoolsunit,
bufdatasettoolsunit,
memdstoolsunit,
SdfDSToolsUnit,
// DB unittest
testbasics,
TestFieldTypes,
TestDBBasics,
TestDatasources,
TestBufDatasetStreams,
TestSpecificTBufDataset;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TGuiTestRunner, TestRunner);
Application.Run;
end.