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

+ FCL-DB: db test framework: add test for issue #23509: locate must ignore lopartialkey for non-string fields

Browse Source 
git-svn-id: trunk@23192 -
This commit is contained in:
reiniero 2012-12-19 15:58:58 +00:00
parent e4ed8ea35b
commit c9e838e2f9
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -141,6 +141,7 @@ type
procedure TestLocate;
procedure TestLocateCaseIns;
procedure TestLocateCaseInsInts;
procedure TestFirst;
procedure TestIntFilter;
@ -910,6 +911,8 @@ begin
end;
procedure TTestCursorDBBasics.TestLocateCaseIns;
// Tests case insensitive locate, also partial key locate, both against string fields.
// Together with TestLocateCaseInsInts, checks 23509 DBF: locate with loPartialkey behaviour differs depending on index use
begin
with DBConnector.GetNDataset(true,13) do
begin
@ -927,6 +930,41 @@ begin
end;
end;
procedure TTestCursorDBBasics.TestLocateCaseInsInts;
// Tests case insensitive locate, also partial key locate, both against integer fields.
// Together with TestLocateCaseIns, checks 23509 DBF: locate with loPartialkey behaviour differs depending on index use
begin
with DBConnector.GetNDataset(true,13) do
begin
open;
// To really test bug 23509: we should first have a record that matches greater than for non-string locate:
first;
insert;
fieldbyname('id').AsInteger:=55;
fieldbyname('name').AsString:='TestName55';
post;
first;
CheckTrue(Locate('id',vararrayof([5]),[]));
CheckEquals(5,FieldByName('id').AsInteger);
first;
CheckTrue(Locate('id',vararrayof([5]),[loCaseInsensitive]));
CheckEquals(5,FieldByName('id').AsInteger);
first;
// Check specifying partial key doesn't influence search results
CheckTrue(Locate('id',vararrayof([5]),[loPartialKey]));
CheckEquals(5,FieldByName('id').AsInteger);
first;
CheckTrue(Locate('id',vararrayof([5]),[loPartialKey, loCaseInsensitive]));
CheckEquals(5,FieldByName('id').AsInteger);
close;
end;
end;
procedure TTestDBBasics.TestSetFieldValues;
var PassException : boolean;
begin