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

fcl-db: tests: use column names in same char-case as they are typed in CREATE TABLE statement (used in tests). If "test database" on MS SQL Server has case-sensitive collation then char-case of table names and column names are also case-sensitive.

Browse Source 
(This does not negative affect other databases)

git-svn-id: trunk@27076 -
This commit is contained in:
lacak 2014-03-10 13:24:52 +00:00
parent 42d671ed51
commit eefead9990
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1322,9 +1322,9 @@ begin
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin
SQL.Clear; SQL.Clear;
SQL.Add('select * from FPDEV where name=''test '''' and :ThisIsNotAParameter '''); SQL.Add('select * from FPDEV where NAME=''test '''' and :ThisIsNotAParameter ''');
open; Open;
close; Close;
end; end;
end; end;
@ -1381,33 +1381,33 @@ begin
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin
sql.clear; sql.clear;
sql.append('insert into FPDEV2 (field1) values (:field1)'); sql.append('insert into FPDEV2 (FIELD1) values (:field1)');
Params.ParamByName('field1').AsInteger := 1; Params.ParamByName('field1').AsInteger := 1;
ExecSQL; ExecSQL;
sql.clear; sql.clear;
sql.append('insert into FPDEV2 (field1,field2,decoy) values (:field1,:field2,'''+DecoyFieldData1+''')'); sql.append('insert into FPDEV2 (FIELD1,FIELD2,DECOY) values (:field1,:field2,'''+DecoyFieldData1+''')');
Params.ParamByName('field1').AsInteger := 2; Params.ParamByName('field1').AsInteger := 2;
Params.ParamByName('field2').DataType := ftInteger; Params.ParamByName('field2').DataType := ftInteger;
Params.ParamByName('field2').Value := Null; Params.ParamByName('field2').Value := Null;
ExecSQL; ExecSQL;
sql.clear; sql.clear;
sql.append('insert into FPDEV2 (field1,field2,field3) values (:field1,:field2,:field3)'); sql.append('insert into FPDEV2 (FIELD1,FIELD2,FIELD3) values (:field1,:field2,:field3)');
Params.ParamByName('field1').AsInteger := 3; Params.ParamByName('field1').AsInteger := 3;
Params.ParamByName('field2').AsInteger := 2; Params.ParamByName('field2').AsInteger := 2;
Params.ParamByName('field3').AsInteger := 3; Params.ParamByName('field3').AsInteger := 3;
ExecSQL; ExecSQL;
sql.clear; sql.clear;
sql.append('insert into FPDEV2 (field1,field2,field3,decoy) values (:field1,:field2,:field3,'''+DecoyFieldData2+''')'); sql.append('insert into FPDEV2 (FIELD1,FIELD2,FIELD3,DECOY) values (:field1,:field2,:field3,'''+DecoyFieldData2+''')');
Params.ParamByName('field1').AsInteger := 4; Params.ParamByName('field1').AsInteger := 4;
Params.ParamByName('field2').AsInteger := 2; Params.ParamByName('field2').AsInteger := 2;
Params.ParamByName('field3').AsInteger := 3; Params.ParamByName('field3').AsInteger := 3;
ExecSQL; ExecSQL;
sql.clear; sql.clear;
sql.append('insert into FPDEV2 (field1,field2,field3) values (:field1,:field2,:field1)'); sql.append('insert into FPDEV2 (FIELD1,FIELD2,FIELD3) values (:field1,:field2,:field1)');
Params.ParamByName('field1').AsInteger := 5; Params.ParamByName('field1').AsInteger := 5;
Params.ParamByName('field2').AsInteger := 2; Params.ParamByName('field2').AsInteger := 2;
ExecSQL; ExecSQL;
@ -2255,7 +2255,7 @@ end;
procedure TTestFieldTypes.TestEmptyUpdateQuery; procedure TTestFieldTypes.TestEmptyUpdateQuery;
begin begin
TSQLDBConnector(DBConnector).Connection.ExecuteDirect('update FPDEV set name=''nothing'' where (1=0)'); TSQLDBConnector(DBConnector).Connection.ExecuteDirect('update FPDEV set NAME=''nothing'' where (1=0)');
end; end;
procedure TTestFieldTypes.TestTemporaryTable; procedure TTestFieldTypes.TestTemporaryTable;