Test suite results for test file webtbs/tw1295.pp

Test run data :

Test file "webtbs/tw1295.pp" information:

t_id 793
t_adddate 2003/10/03
Flag t_interactive set
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 946547.

Source:

{ %INTERACTIVE }
{ checking of invalid drive size }

USES DOS;
var
  d : longint;
BEGIN
   {$I-}
   d:=DISKSIZE(1);
   writeln(d);
   WRITELN(IORESULT);
   {$I+}
   if d<>-1 then
    halt(1);
END.

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