blob: e1e9b93b18b1107960a66cac7f2adc5c29e74c20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{ %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.
|
