paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 23:20:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix misnamed field in lookup related test, mantis #22113, patch by Lacak2.

Browse Source 
git-svn-id: trunk@21683 -
This commit is contained in:
marco 2012-06-22 19:16:42 +00:00
parent 40d26638a7
commit 31371eade1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/tests/testdbbasics.pas
View File

@ -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;