소스 검색

* Change writeln+exit to ignore

Michaël Van Canneyt 3 년 전
부모
커밋
c6e9c7c1f8
1개의 변경된 파일1개의 추가작업 그리고 4개의 파일을 삭제
  1. 1 4
      packages/fcl-db/tests/testfieldtypes.pas

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

@@ -470,10 +470,7 @@ var
   I: Integer;
 begin
   if SQLServerType<>ssMSSQL then
-  begin
-    WriteLn('TestMSSQLLargeStrings is suitable only for MSSQL');
-    Exit;
-  end;
+    Ignore('TestMSSQLLargeStrings is suitable only for MSSQL');
   Q := TSQLQuery.Create(nil);
   try
     Q.SQLConnection := TSQLDBConnector(DBConnector).Connection;