瀏覽代碼

* Refactored test

git-svn-id: trunk@10752 -
joost 17 年之前
父節點
當前提交
5ce1eb0dcb
共有 1 個文件被更改,包括 1 次插入1 次删除
  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
   with TSQLDBConnector(DBConnector) do
     begin
-    if sqQuoteFieldnames in Connection.ConnOptions then
+    if not (SQLDbType in MySQLdbTypes) then
       Connection.ExecuteDirect('create table FPDEV2 (         ' +
                                 '  "2ID" INT NOT NULL            , ' +
                                 '  "3TEST" VARCHAR(10),     ' +