summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2015-02-26 11:07:20 +0000
committerGraeme Geldenhuys <graemeg@gmail.com>2015-02-26 11:07:20 +0000
commitfa5b0fac1f187cc3fd6c1f342e9575b3b744f2c6 (patch)
treef4b078cff2a885da982ba43eaad7d3a4d6fcc11b
parent62e66eb3df4848919d3e564b2818b90cc8e1c874 (diff)
downloadfpGUI-fa5b0fac1f187cc3fd6c1f342e9575b3b744f2c6.tar.xz
fpcunit: on running the tests, first expand the tree
This means we can observe how the tests are progressing.
-rw-r--r--examples/apps/fpcunit/fpg_guitestrunner.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/apps/fpcunit/fpg_guitestrunner.pas b/examples/apps/fpcunit/fpg_guitestrunner.pas
index ecd8e9d5..400fa0d1 100644
--- a/examples/apps/fpcunit/fpg_guitestrunner.pas
+++ b/examples/apps/fpcunit/fpg_guitestrunner.pas
@@ -309,6 +309,7 @@ end;
procedure TGUITestRunnerForm.btnRunClicked(Sender: TObject);
begin
+ tvTests.FullExpand;
if tvTests.Selection = nil then
begin
TfpgMessageDialog.Critical('No selection', 'Please select a test case first.');