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

fcl-db: tests: memds: check if null values are copied correctly. Bug #32537

Browse Source 
git-svn-id: trunk@37522 -
This commit is contained in:
lacak 2017-10-26 11:37:25 +00:00
parent 8a0d8f025b
commit 5c98c93500
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/tests/testspecifictmemdataset.pas
View File

@ -96,12 +96,18 @@ end;
procedure TTestSpecificTMemDataset.TestCopyFromDataset; procedure TTestSpecificTMemDataset.TestCopyFromDataset;
var memds1, memds2: TMemDataset; var memds1, memds2: TMemDataset;
i: integer;
begin begin
memds1:=DBConnector.GetFieldDataset as TMemDataset; memds1:=DBConnector.GetFieldDataset as TMemDataset;
memds2:=DBConnector.GetNDataset(0) as TMemDataset; memds2:=DBConnector.GetNDataset(0) as TMemDataset;
memds1.Open; memds1.Open;
// insert 1st row with all NULL values
memds1.Insert; memds1.Post;
memds2.CopyFromDataset(memds1); memds2.CopyFromDataset(memds1);
// check if 1st row has all NULL values
for i:=0 to memds2.FieldCount-1 do CheckTrue(memds2.Fields[i].IsNull, 'IsNull');
memds2.Delete;
CheckFieldDatasetValues(memds2); CheckFieldDatasetValues(memds2);
end; end;