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

fcl-db: tests: test DATE and TIME data types for Sybase and MS SQL Server (requires version >= 2008)

Browse Source 
git-svn-id: trunk@39011 -
This commit is contained in:
lacak 2018-05-17 10:07:07 +00:00
parent 0fcec04382
commit 815172ac47
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -245,14 +245,10 @@ begin
ssMSSQL, ssSybase: ssMSSQL, ssSybase:
// todo: Sybase: copied over MSSQL; verify correctness // todo: Sybase: copied over MSSQL; verify correctness
// note: test database should have case-insensitive collation // note: test database should have case-insensitive collation
// todo: SQL Server 2008 and later supports DATE, TIME and DATETIME2 data types,
// but these are not supported by FreeTDS yet
begin begin
FieldtypeDefinitions[ftBoolean] := 'BIT'; FieldtypeDefinitions[ftBoolean] := 'BIT';
FieldtypeDefinitions[ftFloat] := 'FLOAT'; FieldtypeDefinitions[ftFloat] := 'FLOAT';
FieldtypeDefinitions[ftCurrency]:= 'MONEY'; FieldtypeDefinitions[ftCurrency]:= 'MONEY';
FieldtypeDefinitions[ftDate] := 'DATETIME';
FieldtypeDefinitions[ftTime] := '';
FieldtypeDefinitions[ftDateTime]:= 'DATETIME'; FieldtypeDefinitions[ftDateTime]:= 'DATETIME';
FieldtypeDefinitions[ftBytes] := 'BINARY(5)'; FieldtypeDefinitions[ftBytes] := 'BINARY(5)';
FieldtypeDefinitions[ftVarBytes]:= 'VARBINARY(10)'; FieldtypeDefinitions[ftVarBytes]:= 'VARBINARY(10)';
@ -392,10 +388,7 @@ begin
if SQLServerType in [ssMSSQL, ssSybase] then if SQLServerType in [ssMSSQL, ssSybase] then
// Some DB's do not support datetime values before 1753-01-01 // Some DB's do not support datetime values before 1753-01-01
for i := 18 to testValuesCount-1 do for i := 18 to testValuesCount-1 do
begin
testValues[ftDate,i] := testValues[ftDate,0];
testValues[ftDateTime,i] := testValues[ftDateTime,0]; testValues[ftDateTime,i] := testValues[ftDateTime,0];
end;
// DecimalSeparator must correspond to monetary locale (lc_monetary) set on PostgreSQL server // DecimalSeparator must correspond to monetary locale (lc_monetary) set on PostgreSQL server
// Here we assume, that locale on client side is same as locale on server // Here we assume, that locale on client side is same as locale on server