paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49: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
begin
SQL.Clear;
SQL.Add('select * from FPDEV where name=''test '''' and :ThisIsNotAParameter ''');
open;
close;
SQL.Add('select * from FPDEV where NAME=''test '''' and :ThisIsNotAParameter ''');
Open;
Close;
end;
end;
@ -1381,33 +1381,33 @@ begin
with TSQLDBConnector(DBConnector).Query do
begin
sql.clear;
sql.append('insert into FPDEV2 (field1) values (:field1)');
sql.append('insert into FPDEV2 (FIELD1) values (:field1)');
Params.ParamByName('field1').AsInteger := 1;
ExecSQL;
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('field2').DataType := ftInteger;
Params.ParamByName('field2').Value := Null;
ExecSQL;
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('field2').AsInteger := 2;
Params.ParamByName('field3').AsInteger := 3;
ExecSQL;
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('field2').AsInteger := 2;
Params.ParamByName('field3').AsInteger := 3;
ExecSQL;
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('field2').AsInteger := 2;
ExecSQL;
@ -2255,7 +2255,7 @@ end;
procedure TTestFieldTypes.TestEmptyUpdateQuery;
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;
procedure TTestFieldTypes.TestTemporaryTable;