소스 검색

+ signal doserror equal to zero as a known problem

pierre 22 년 전
부모
커밋
5d96f16f52
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  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.