mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 16:48:29 +02:00
31 lines
480 B
ObjectPascal
31 lines
480 B
ObjectPascal
{ %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.
|