Test suite results for test file webtbs/tw0803.pp

Test run data :

Run ID:
Operating system: linux
Processor: i386
Version: 3.3.1
Fails/OK/Total: 238/9417/9655
Version: 3.3.1
Full version: 3.3.1-15587-g490a8c68ea-unpushed
Comment: -XR/home/muller/sys-root/i386-linux -Xd -Xr/home/muller/sys-root/i386-linux
Machine: cfarm13
Category: 1
SVN revisions: 490a8c68ea:8b7dbb81b1:3f8bbd3b00:2f9ed0576e
Submitter: muller
Date: 2024/04/19 11:03:00
Previous run: 934303
Next run: 935638

Hide skipped tests

Hide successful tests

Test file "webtbs/tw0803.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
443816790934990TrueFalseSuccessfully run

Record count: 1

No log of 934990.

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.