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

* Fixed some tests, testValues is already set in InitializeConnection, so has to be adapted also

Browse Source 
git-svn-id: trunk@17688 -
This commit is contained in:
joost 2011-06-07 20:07:12 +00:00
parent 81bd7867b3
commit f48c1d7d79
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,7 +125,10 @@ begin
begin
// Some DB's do not support milliseconds in time-fields.
for t := 0 to testValuesCount-1 do
begin
testTimeValues[t] := copy(testTimeValues[t],1,8)+'.000';
testValues[ftTime,t] := copy(testTimeValues[t],1,8)+'.000';
end;
end;
if SQLDbType = MYSQL50 then Fconnection := tMySQL50Connection.Create(nil);
if SQLDbType = MYSQL51 then Fconnection := tMySQL51Connection.Create(nil);
@ -148,11 +151,13 @@ begin
Fconnection := tIBConnection.Create(nil);
// Firebird does not support time = 24:00:00
testTimeValues[2]:='23:00:00.000';
testValues[ftTime,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';
testValues[ftTime,3]:='13:25:15.000';
end;
if SQLDbType = ODBC then Fconnection := tODBCConnection.Create(nil);
if SQLDbType = ORACLE then Fconnection := TOracleConnection.Create(nil);