From 31371eade1e977b91d415f8e099da09939f26523 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 22 Jun 2012 19:16:42 +0000
Subject: [PATCH]  * fix misnamed field in lookup related test, mantis #22113,
 patch by Lacak2.

git-svn-id: trunk@21683 -
---
 packages/fcl-db/tests/testdbbasics.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas
index 23e8fd0f21..4fa80f6410 100644
--- a/packages/fcl-db/tests/testdbbasics.pas
+++ b/packages/fcl-db/tests/testdbbasics.pas
@@ -678,8 +678,13 @@ begin
     CheckFalse(FieldByName('LookupFld').ReadOnly);
 
     CheckEquals(1,FieldByName('ID').AsInteger);
-    CheckEquals('name1',FieldByName('LookupFld').AsString);
-    close;
+    CheckEquals('TestName1',FieldByName('LookupFld').AsString);
+    Next;
+    Next;
+    CheckEquals(3,FieldByName('ID').AsInteger);
+    CheckEquals('TestName3',FieldByName('LookupFld').AsString);
+
+    Close;
     lds.Close;
     end;
 end;