Browse Source

+ signal doserror equal to zero as a known problem

pierre 22 years ago
parent
commit
5d96f16f52
1 changed files with 5 additions and 1 deletions
  1. 5 1
      tests/tbs/tb0432.pp

+ 5 - 1
tests/tbs/tb0432.pp

@@ -1,3 +1,4 @@
+{ %KNOWNRUNERROR=2 On some OS invalid date are converted to valid ones, thus test fails}
 uses Dos;
 var
   f : file;
@@ -20,7 +21,10 @@ begin
   if doserror<>13 then
    begin
      Writeln('Wrong doserror');
-     halt(1);
+     if doserror=0 then
+       runerror(2)
+     else
+       halt(1);
    end;
 
 end.