Test suite results for test file webtbs/tw0912.pp

Test run data :

View Test suite results

Test file "webtbs/tw0912.pp" information:

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

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

const
  BufSize = 2048;

var
  f : file;
  res : longint;
  buf : array [0..BufSize-1] of byte;
  result : word;
begin
assign(f,paramstr(0));
{$I-}
reset(f,1);
res:=IOResult;
{$I+}
if res=0 then
  Writeln('It is possible to open the executable in Read/Write mode')
else
  begin
    filemode:=0;
    {$I-}
    reset(f,1);
    res:=IOResult;
    {$I+}
    if res=0 then
      Writeln('It is only possible to open the executable in Read mode')
    else
      Writeln('It is not possible to open the executable in Read mode');
  end;
if res=0 then
  begin
{$I-}
    blockread(f,buf,sizeof(buf),result);
    res:=IOResult;
{$I+}
    if res<>0 then
      Writeln('Problem reading executable');
    if res=0 then
      close(f)
    else
      RunError(res);
  end
else
  RunError(res);
end.

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