Test suite results for test file webtbs/tw1092.pp

Test run data :

Test file "webtbs/tw1092.pp" information:

t_id 761
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939748.

Source:

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;
END.

Link to SVN view of webtbs/tw1092.pp source.