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

* Added test for bug ID #36086 (lookup on empty dataset)

Browse Source 
git-svn-id: trunk@43035 -
This commit is contained in:
michael 2019-09-19 07:40:26 +00:00
parent 18479fa113
commit b9e94a961d
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-db/tests/testspecifictbufdataset.pas
View File

@ -53,6 +53,7 @@ type
procedure TestAutoIncFieldStreamingXML; procedure TestAutoIncFieldStreamingXML;
Procedure TestLocateScrollEventCount; Procedure TestLocateScrollEventCount;
Procedure TestLookupScrollEventCount; Procedure TestLookupScrollEventCount;
procedure TestLookupEmpty;
Procedure TestRecordCount; Procedure TestRecordCount;
Procedure TestClear; Procedure TestClear;
procedure TestCopyFromDataset; //is copied dataset identical to original? procedure TestCopyFromDataset; //is copied dataset identical to original?
@ -304,6 +305,22 @@ begin
end; end;
procedure TTestSpecificTBufDataset.TestLookupEmpty;
// Test for issue 36086
Var
V : Variant;
begin
with DBConnector.GetNDataset(0) as TBufDataset do
begin
Open;
V:=Lookup('ID',5,'NAME');
AssertTrue('Null',Null=V);
end;
end;
procedure TTestSpecificTBufDataset.TestLookupScrollEventCount; procedure TTestSpecificTBufDataset.TestLookupScrollEventCount;
Var Var