소스 검색

* don't try to run tests for shouldfail tests

git-svn-id: trunk@6305 -
peter 18 년 전
부모
커밋
0e54433c75
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      tests/utils/dotest.pp

+ 2 - 2
tests/utils/dotest.pp

@@ -1177,7 +1177,7 @@ begin
       Res:=RunCompiler;
    end;
 
-  if Res then
+  if Res and (not Config.ShouldFail) then
    begin
      if (Config.NoRun) then
       begin
@@ -1195,7 +1195,7 @@ begin
       end
      else
       begin
-        if (not Config.ShouldFail) and DoExecute then
+        if DoExecute then
          begin
            if FileExists(TestOutputFilename(PPFile,'ppu')) or
               FileExists(TestOutputFilename(PPFile,'ppo')) or