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

fcl-db: tests: more complex test for r25036

Browse Source 
git-svn-id: trunk@25061 -
This commit is contained in:
lacak 2013-07-08 06:55:15 +00:00
parent 58610af9f0
commit 87a0868606
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -342,13 +342,19 @@ begin
with TSQLDBConnector(DBConnector) do with TSQLDBConnector(DBConnector) do
begin begin
Query.Open;
for i := 0 to testValuesCount-1 do
Query.AppendRecord([testValues[i]]);
Query.ApplyUpdates;
Query.Close;
for i := 0 to testValuesCount-1 do for i := 0 to testValuesCount-1 do
ExecuteDirect('insert into FPDEV2 (FT) values (' + inttostr(testValues[i]) + ')'); ExecuteDirect('insert into FPDEV2 (FT) values (' + inttostr(testValues[i]) + ')');
Query.Open; Query.Open;
for i := 0 to testValuesCount-1 do for i := 0 to testValuesCount*2-1 do
begin begin
AssertEquals(testValues[i], Query.Fields[0].AsInteger); AssertEquals(testValues[i mod testValuesCount], Query.Fields[0].AsInteger);
Query.Next; Query.Next;
end; end;
Query.Close; Query.Close;