Test suite results for test file webtbs/tw0803.pp

Test run data :

Test file "webtbs/tw0803.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940837.

Source:

{$MODE objfpc}
program FileExc;
uses SysUtils, Classes;
var
  f: TFileStream;
begin
  try
    f := TFileStream.Create('a nonexistent file', fmOpenRead);
  except
    on e: Exception do begin
      f.Free;
      halt(0);
    end;
  end;
  writeln('Error');
  halt(1);
end.

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