Browse Source

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

git-svn-id: trunk@39011 -
lacak 7 years ago
parent
commit
815172ac47
1 changed files with 0 additions and 7 deletions
  1. 0 7
      packages/fcl-db/tests/sqldbtoolsunit.pas

+ 0 - 7
packages/fcl-db/tests/sqldbtoolsunit.pas

@@ -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