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

* revert previous commit - was due to a misunderstanding: TestFloatParamQuery already covers the bug.

Browse Source 
git-svn-id: trunk@25216 -
This commit is contained in:
reiniero 2013-08-05 09:13:46 +00:00
parent 9ad462590a
commit 83a236f9b3
1 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
packages/fcl-db/tests/testfieldtypes.pas
View File

@ -67,7 +67,6 @@ type
procedure TestQueryAfterReconnect; // bug 16438
procedure TestParametersAndDates;
procedure TestParametersFloat;
procedure TestExceptOnsecClose;
procedure TestErrorOnEmptyStatement;
@ -2251,43 +2250,6 @@ begin
end
end;
procedure TTestFieldTypes.TestParametersFloat;
// Tests if using parameters with floats works
// See bug 24728
const
ParamName = 'floatparam';
var
i : byte;
begin
CreateTableWithFieldType(ftFloat,'FLOAT');
TestFieldDeclaration(ftFloat,sizeof(double));
with TSQLDBConnector(DBConnector).Query do
begin
// Test assigning parameter
SQL.Clear;
SQL.Add('insert into FPDEV2 (FT) values (:' + ParamName + ')');
for i := 0 to testValuesCount-1 do
begin
// Bug reports that SetAsFloat generates an AV
Params.Parambyname(ParamName).asfloat := i + i/2;
ExecSQL;
end;
SQL.Clear;
SQL.Add('select FT from FPDEV2');
Open;
for i := 0 to testValuesCount-1 do
begin
AssertEquals(i+i/2,fields[0].AsFloat);
Next;
end;
close;
end;
end;
procedure TTestFieldTypes.TestExceptOnsecClose;