Explorar o código

+ signal doserror equal to zero as a known problem

pierre %!s(int64=22) %!d(string=hai) anos
pai
achega
5d96f16f52
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  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;
 uses Dos;
 var
 var
   f : file;
   f : file;
@@ -20,7 +21,10 @@ begin
   if doserror<>13 then
   if doserror<>13 then
    begin
    begin
      Writeln('Wrong doserror');
      Writeln('Wrong doserror');
-     halt(1);
+     if doserror=0 then
+       runerror(2)
+     else
+       halt(1);
    end;
    end;
 
 
 end.
 end.