Test suite results for test file webtbs/tw2812.pp

Test run data :

Test file "webtbs/tw2812.pp" information:

t_id 1206
t_adddate 2003/11/30
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948160.

Source:

var
  f:file;
  p:pointer;
  i : integer;
begin

  Assign(f,'blockwritetest.tmp');
  {$I-}
  Rewrite(f,1);
  p:=nil;
  BlockWrite(f,p^,12345);
  Close(f);
  {$I+}
  i:=ioresult;
  writeln('IOResult: ',i);
  if i=101 then
    halt(1);
end.

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