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

* Adapted time-field tests for some differences between databases

Browse Source 
git-svn-id: trunk@17427 -
This commit is contained in:
joost 2011-05-10 12:10:39 +00:00
parent c906f78b4a
commit 8def31ec0c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -121,7 +121,7 @@ begin
// Downside is that fields defined as 'TIMESTAMP' aren't tested
FieldtypeDefinitions[ftDateTime] := 'DATETIME';
end;
if SQLDbType in [odbc,mysql40,mysql41,mysql50,mysql51] then
if SQLDbType in [odbc,mysql40,mysql41,mysql50,mysql51,interbase] then
begin
// Some DB's do not support milliseconds in time-fields.
for t := 0 to testValuesCount-1 do
@ -146,6 +146,13 @@ begin
if SQLDbType = INTERBASE then
begin
Fconnection := tIBConnection.Create(nil);
// Firebird does not support time = 24:00:00
testTimeValues[2]:='23:00:00.000';
end;
if SQLDbType in [postgresql,interbase] then
begin
// Some db's do not support times > 24:00:00
testTimeValues[3]:='13:25:15.000';
end;
if SQLDbType = ODBC then Fconnection := tODBCConnection.Create(nil);
if SQLDbType = ORACLE then Fconnection := TOracleConnection.Create(nil);