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

* Test for bug #15456

Browse Source 
git-svn-id: trunk@15197 -
This commit is contained in:
joost 2010-04-28 21:18:47 +00:00
parent 6ba6be6b2b
commit 6f148501ca
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-db/tests/testfieldtypes.pas
View File

@ -36,6 +36,7 @@ type
procedure TestInsertLargeStrFields; // bug 9600
procedure TestNumericNames; // Bug9661
procedure TestApplyUpdFieldnames; // Bug 12275;
procedure TestLimitQuery; // bug 15456
procedure Test11Params;
procedure TestRowsAffected; // bug 9758
procedure TestStringsReplace;
@ -1321,6 +1322,23 @@ begin
end;
end;
procedure TTestFieldTypes.TestLimitQuery;
begin
with TSQLDBConnector(DBConnector) do
begin
with query do
begin
SQL.Text:='select NAME from FPDEV where NAME=''TestName21'' limit 1';
Open;
close;
ServerFilter:='ID=21';
ServerFiltered:=true;
open;
close;
end;
end;
end;
procedure TTestFieldTypes.TestRowsAffected;
begin
with TSQLDBConnector(DBConnector) do