Test suite results for test file webtbs/tw1081.pp

Test run data :

Test file "webtbs/tw1081.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934948.

Source:

uses dos;
var dirinfo:searchrec;

function IntToStr(I: Longint): String;
{ Convert any integer type to a string }
var
  S: string[11];
begin
  Str(I, S);
  IntToStr := S;
end;

procedure write_error(errorstring:string);
var
h,m,s,j,mo,ta,dummy:word;
stri:string;
begin
  gettime(h,m,s,dummy);
  getdate(j,mo,ta,dummy);
  stri:=inttostr(j)+':'+inttostr(mo)+':'+inttostr(ta)+' '+inttostr(h)+':'+inttostr(m)+':'+inttostr(s);
  writeln(stri,' ',errorstring);
end;

procedure readprgfiles;
var i:word;
begin
  FindFirst('*.pp',anyfile, DirInfo);
 while doserror = 0 do
  begin
    inc(i);
    writeln(dirinfo.name);
    write_error(dirinfo.name); {without this function the program works}
    FindNext(DirInfo);
  end;
  write_error('fertig');
end;


BEGIN
readprgfiles;
END.

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