Test suite results for test file tbs/tb0032.pp

Test run data :

Test file "tbs/tb0032.pp" information:

t_id 1025
t_adddate 2003/10/14
Flag t_graph set
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940669.

Source:

{ %GRAPH }
{ %TARGET=go32v2,win32,linux }

{ Old file: tbs0037.pp }
{  tests missing graph.setgraphmode                    OK RTL (FK) }

uses
   graph,
   crt;

var
   gd,gm,res : integer;

begin
   gd:=detect;
   initgraph(gd,gm,'');
   res := graphresult;
   if res <> grOk then
     begin
       graphErrorMsg(res);
       halt(1);
     end;
   setviewport(0,0,getmaxx,getmaxy,clipon);
   line(1,1,100,100);
   {readkey;}
   setgraphmode(m1024x768);
   setviewport(0,0,getmaxx,getmaxy,clipon);
   res := graphresult;
   if res <> grOk then
     begin
       closegraph;
       graphErrorMsg(res);
       { no error, graph mode is simply not supported }
       halt(0);
     end;
   line(100,100,1024,800);
   {readkey;}
   delay(1000);
   closegraph;
end.

Link to SVN view of tbs/tb0032.pp source.