t_id
646
t_adddate
2003/10/03
t_result
0
t_knownrunerror
2
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ %KNOWNRUNERROR=2 On some OS invalid date are converted to valid ones, thus test fails} uses Dos; var f : file; l : longint; dt : datetime; begin assign(f,'tb0432.tmp'); rewrite(f); close(f); { Set Invalid date } dt.year:=2001; dt.month:=2; dt.day:=30; packtime(dt,l); SetFTime(f,l); writeln(doserror); if doserror<>13 then begin Writeln('Wrong doserror'); if doserror=0 then runerror(2) else halt(1); end; end.