Test suite results for test file webtbs/tw1255.pp

Test run data :

Test file "webtbs/tw1255.pp" information:

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

Detailed test run results:

Record count: 1

No log of 729050.

Source:

{$mode objfpc}
uses
  sysutils;

procedure testff(const s: string);
var
  sr: tsearchrec;
  i : integer;
begin
  i:=0;
  if findfirst(s,faAnyFile,sr)=0 then
   repeat
     writeln(sr.name);
     inc(i);
   until findnext(sr)<>0;
  findclose(sr);
  if (i=0) then
   halt(1);
end;

begin
{$ifdef UNIX}
  testff('/etc/host*');
{$else}
  testff('c:autoexec.*');
{$endif}
end.

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