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

fcl-db: tests: improve TestSQLInterval + comments

Browse Source 
(MySQL ODBC driver does not correctly handles TIME values >= '100:00:00')

git-svn-id: trunk@23112 -
This commit is contained in:
lacak 2012-12-04 12:18:59 +00:00
parent b36aa216e5
commit a49dc1d262
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -187,7 +187,7 @@ begin
AFld3.FieldName := 'CALCFLD';
AFld3.DataSet := ds;
Afld3.FieldKind := fkCalculated;
AFld3.ProviderFlags := [];
AFld3.ProviderFlags := []; // do not include calculated fields into generated sql insert/update
Open;
Edit;
@ -1912,7 +1912,7 @@ begin
end;
var testIntervalValuesCount: integer;
const testIntervalValues: array[0..4] of shortstring = ('00:00:00.000','00:00:01.000','23:59:59.000','838:59:59.000','1000:00:00.000');
const testIntervalValues: array[0..5] of shortstring = ('00:00:00.000','00:00:01.000','23:59:59.000','99:59:59.000','838:59:59.000','1000:00:00.000');
// Placed here, as long as bug 18702 is not solved
function TestSQLInterval_GetSQLText(const a: integer) : string;
begin
@ -1934,7 +1934,7 @@ begin
if SQLConnType = postgresql then
begin
datatype:='INTERVAL';
testIntervalValuesCount := 5;
testIntervalValuesCount := 6;
end
else
begin
@ -1942,9 +1942,10 @@ begin
if datatype = '' then
Ignore(STestNotApplicable);
if SQLServerType = ssSQLite then
testIntervalValuesCount := 5
testIntervalValuesCount := 6
else if SQLServerType = ssMySQL then
testIntervalValuesCount := 4
// MySQL ODBC driver does not correctly handles time values >= '100:00:00'
testIntervalValuesCount := 5
else
testIntervalValuesCount := 3;
end;