* fixed memory leak in DrawTest, when running more than one test

git-svn-id: trunk@16004 -

packages/graph/tests/drawtest.pas

@@ -49,6 +49,14 @@ begin
   end;
 end;
 
+procedure FreePixArray;
+var
+  Y: Integer;
+begin
+  for Y := 0 to YRes - 1 do
+    FreeMem(PixArray[Y], XRes * SizeOf(TPixelColor));
+end;
+
 procedure TestFinalResult;
 var
   X, Y: Integer;
@@ -162,6 +170,8 @@ begin
 
   TestFinalResult;
 
+  FreePixArray;
+
   CloseGraph;
   Writeln('Ok');
 end;