* Merging revisions 43035 from trunk:

    ------------------------------------------------------------------------
    r43035 | michael | 2019-09-19 09:40:26 +0200 (Thu, 19 Sep 2019) | 1 line
    
    * Added test for bug ID #36086 (lookup on empty dataset)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43242 -

packages/fcl-db/tests/testspecifictbufdataset.pas

@@ -53,6 +53,7 @@ type
     procedure TestAutoIncFieldStreamingXML;
     Procedure TestLocateScrollEventCount;
     Procedure TestLookupScrollEventCount;
+    procedure TestLookupEmpty;
     Procedure TestRecordCount;
     Procedure TestClear;
     procedure TestCopyFromDataset; //is copied dataset identical to original?
@@ -304,6 +305,22 @@ begin
 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;
 
 Var