* TestGetTables test added

 * tablename in TestGetFieldNames case sensitive for mysql

git-svn-id: trunk@9070 -

packages/fcl-db/tests/testsqlfieldtypes.pas

@@ -34,6 +34,7 @@ type
     procedure TestBug9744;
     procedure TestCrossStringDateParam;
     procedure TestGetFieldNames;
+    procedure TestGetTables;
     procedure TestUpdateIndexDefs;
     procedure TestSetBlobAsMemoParam;
     procedure TestSetBlobAsStringParam;
@@ -1048,7 +1049,10 @@ begin
     begin
     FieldNames := TStringList.Create;
     try
-      Connection.GetFieldNames('FpDEv',FieldNames);
+      if SQLDbType in MySQLdbTypes then
+        Connection.GetFieldNames('FPDEV',FieldNames)
+      else
+        Connection.GetFieldNames('fpDEv',FieldNames);
       AssertEquals(2,FieldNames.Count);
       AssertEquals('ID',UpperCase(FieldNames[0]));
       AssertEquals('NAME',UpperCase(FieldNames[1]));
@@ -1058,6 +1062,23 @@ begin
     end;
 end;
 
+procedure TTestFieldTypes.TestGetTables;
+var TableNames : TStringList;
+begin
+  with TSQLDBConnector(DBConnector) do
+    begin
+    TableNames := TStringList.Create;
+    try
+      Connection.GetTableNames(TableNames);
+      AssertTrue(TableNames.Count>0);
+      AssertTrue(TableNames.IndexOf('FPDEV')>-1);
+      AssertTrue(TableNames.IndexOf('FPDEV_FIELD')>-1);
+    finally
+      TableNames.Free;
+      end;
+    end;
+end;
+
 procedure TTestFieldTypes.TestUpdateIndexDefs;
 var ds : TSQLQuery;
 begin