blob: 7617beef883c160d9b8d72e8b4469139ca94e61d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
PROGRAM tbug1092;
USES Dos;
const
{$Ifdef Unix}
path='/etc';
{$else}
path='c:\';
{$endif}
var
t : text;
BEGIN
{ create a file }
assign(t,'tbug1092.tmp');
rewrite(t);
close(t);
if FSearch('tbug1092.tmp',path)<>'tbug1092.tmp' then
begin
writeln('FSearch didn''t find file in the current dir!');
halt(1);
end;
erase(t);
END.
|
