From 0a2e216da7cf92b414202fce91ec202cfe3fda48 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 21 Apr 2015 17:29:52 +0000
Subject: [PATCH] fpcunit: Save tree select on close, not on test run. Issue
 #27887, patch from Graeme Geldenhuys.

git-svn-id: trunk@48797 -
---
 components/fpcunit/guitestrunner.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpcunit/guitestrunner.pas b/components/fpcunit/guitestrunner.pas
index b90d395e7e..37dc69fba5 100644
--- a/components/fpcunit/guitestrunner.pas
+++ b/components/fpcunit/guitestrunner.pas
@@ -387,6 +387,7 @@ begin
   FConfStore.WriteInteger('WindowState', 'Top', Top);
   FConfStore.WriteInteger('WindowState', 'Width', Width);
   FConfStore.WriteInteger('WindowState', 'Height', Height);
+  SaveTree;
   FConfStore.Free;
 end;
 
@@ -854,7 +855,6 @@ var
   m: TMemoryStream;
 
 begin
-  SaveTree;
   barcolor := clGreen;
   ResetNodeColors;
   failureCounter := 0;