paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 12:00:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpcUnit: Prevent a SIGSEGV in GUITestRunner app. Issue #28166.

Browse Source 
git-svn-id: trunk@49149 -
This commit is contained in:
juha 2015-05-23 15:24:36 +00:00
parent 1568077381
commit f1af3d13cc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpcunit/guitestrunner.pas
View File

@ -252,6 +252,7 @@ function TGUITestRunner.MakeTestPath(Node: TTreeNode): string;
begin
Result := Node.Text;
Node := Node.Parent;
If Node = Nil then Exit;
// We can now skip the unnecessary "All Tests" text
while Node.Parent <> nil do
begin