Browse Source

* don't try to run tests for shouldfail tests

git-svn-id: trunk@6305 -
peter 18 years ago
parent
commit
0e54433c75
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/utils/dotest.pp

+ 2 - 2
tests/utils/dotest.pp

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