* Fixed TestSupportLargeintFields

 * Disabled TestBug9744 for Interbase/firebird

git-svn-id: trunk@8880 -

packages/fcl-db/tests/sqldbtoolsunit.pas

@@ -117,7 +117,11 @@ begin
     FieldtypeDefinitions[ftGraphic] := '';
     FieldtypeDefinitions[ftCurrency] := 'MONEY';
     end;
-  if SQLDbType = INTERBASE then Fconnection := tIBConnection.Create(nil);
+  if SQLDbType = INTERBASE then
+    begin
+    Fconnection := tIBConnection.Create(nil);
+    FieldtypeDefinitions[ftLargeint] := 'BIGINT';
+    end;
   if SQLDbType = ODBC then Fconnection := tODBCConnection.Create(nil);
   if SQLDbType = ORACLE then Fconnection := TOracleConnection.Create(nil);
 

packages/fcl-db/tests/testsqlfieldtypes.pas

@@ -995,6 +995,8 @@ end;
 procedure TTestFieldTypes.TestBug9744;
 var i : integer;
 begin
+  AssertTrue('This test does not apply to Interbase/Firebird, since it has no double field-type',SQLDbType<>interbase);
+
   with TSQLDBConnector(DBConnector) do
     begin
     try

packages/fcl-db/tests/toolsunit.pas

@@ -229,6 +229,7 @@ begin
     testValues[ftFloat,i] := FloatToStr(testFloatValues[i]);
     testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]);
     testValues[ftInteger,i] := IntToStr(testIntValues[i]);
+    testValues[ftLargeint,i] := IntToStr(testLargeIntValues[i]);
     DecimalSeparator:=',';
     testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i]);
     DecimalSeparator:='.';