Quellcode durchsuchen

* don't try to run tests for shouldfail tests

git-svn-id: trunk@6305 -
peter vor 18 Jahren
Ursprung
Commit
0e54433c75
1 geänderte Dateien mit 2 neuen und 2 gelöschten Zeilen
  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