From 25079c936002895eb758c5287418a2ca0e32a9e3 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 6 Jul 2012 13:23:38 +0000
Subject: [PATCH] FPCUnit: Fis a SIGFPE in GUITestRunner. Issue #22375, patch
 from Ludo Brands

git-svn-id: trunk@37890 -
---
 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 9e18eb73f9..ec857dfb7b 100644
--- a/components/fpcunit/guitestrunner.pas
+++ b/components/fpcunit/guitestrunner.pas
@@ -405,9 +405,9 @@ begin
     Canvas.Font.Color := clWhite;
     if Assigned(TestSuite) then
     begin
+      alltests := TestSuite.CountTestCases;
       if alltests - skipsCounter <> 0 then
       begin
-        alltests := TestSuite.CountTestCases;
         if FailureCounter + ErrorCounter = 0 then
           barColor := clGreen;
         Canvas.Brush.Color := barColor;