Browse Source

* Refactored test

git-svn-id: trunk@10752 -
joost 17 years ago
parent
commit
5ce1eb0dcb
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/tests/testfieldtypes.pas

+ 1 - 1
packages/fcl-db/tests/testfieldtypes.pas

@@ -946,7 +946,7 @@ procedure TTestFieldTypes.TestNumericNames;
 begin
 begin
   with TSQLDBConnector(DBConnector) do
   with TSQLDBConnector(DBConnector) do
     begin
     begin
-    if sqQuoteFieldnames in Connection.ConnOptions then
+    if not (SQLDbType in MySQLdbTypes) then
       Connection.ExecuteDirect('create table FPDEV2 (         ' +
       Connection.ExecuteDirect('create table FPDEV2 (         ' +
                                 '  "2ID" INT NOT NULL            , ' +
                                 '  "2ID" INT NOT NULL            , ' +
                                 '  "3TEST" VARCHAR(10),     ' +
                                 '  "3TEST" VARCHAR(10),     ' +