paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 11:15:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: tests: fix of previous commit

Browse Source 
git-svn-id: trunk@28057 -
This commit is contained in:
lacak 2014-06-25 09:55:46 +00:00
parent 0d4edf118e
commit 96a3a667c5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/tests/testdbbasics.pas
View File

@ -20,7 +20,7 @@ type
TTestDBBasics = class(TDBBasicsTestCase)
private
procedure TestFieldDefinition(AFieldType : TFieldType; ADataSize : integer; out ADS : TDataset; out AFld: TField); overload;
procedure TestFieldDefinition(AFieldType : TFieldType; ADataSize : integer; out ADS : TDataset; out AFld : TField); overload;
procedure TestFieldDefinition(AFld: TField; AFieldType : TFieldType; ADataSize : integer); overload;
procedure TestCalculatedField_OnCalcfields(DataSet: TDataSet);
@ -1493,7 +1493,6 @@ end;
procedure TTestBufDatasetDBBasics.TestFileNameProperty;
var ds1,ds2: TDataset;
LoadDs: TCustomBufDataset;
begin
ds2 := nil;
ds1 := DBConnector.GetNDataset(true,5);
@ -2536,7 +2535,7 @@ var i : byte;
Fld : TField;
begin
TestFieldDefinition(ftFloat,-1,ds,Fld);
TestFieldDefinition(ftFloat,8,ds,Fld);
for i := 0 to testValuesCount-1 do
begin