Test suite results for test file tbs/tb0051.pp

Test run data :

Test file "tbs/tb0051.pp" information:

t_id 1029
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 934979.

Source:

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

{ Old file: tbs0057.pp }
{  Graph, shows a crash with switch graph/text/graph    OK 0.99.9 (PM) }

uses
   graph,crt;

var
   gd,gm : integer;

begin
   gd:=detect;
   gm:=$103;
   initgraph(gd,gm,'');
   setcolor(white);
   line(1,1,100,100);
   {readkey;}delay(1000);
   closegraph;
   initgraph(gd,gm,'');
   line(100,100,1,100);
   {readkey;}delay(1000);
   closegraph;
   writeln('OK');
end.

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