From fa11cf2dabcf77d0ec4f0b59381fe38cac34df3f Mon Sep 17 00:00:00 2001 From: vincents Date: Tue, 26 Oct 2010 07:40:14 +0000 Subject: [PATCH] fpc unit gui testrunner: update progressbar before starting all tests, so that progres is cleared/shown before the first test has been finished. git-svn-id: trunk@27871 - --- components/fpcunit/guitestrunner.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/fpcunit/guitestrunner.pas b/components/fpcunit/guitestrunner.pas index 541225641b..4955063739 100644 --- a/components/fpcunit/guitestrunner.pas +++ b/components/fpcunit/guitestrunner.pas @@ -405,7 +405,7 @@ begin Canvas.Font.Color := clWhite; if Assigned(TestSuite) then begin - if TestsCounter <> 0 then + if alltests - skipsCounter <> 0 then begin alltests := TestSuite.CountTestCases; if FailureCounter + ErrorCounter = 0 then @@ -416,7 +416,6 @@ begin skipsCounter)]); msg := Format(rsErrors, [msg, IntToStr(ErrorCounter)]); msg := Format(rsFailures, [msg, IntToStr(FailureCounter)]); - //Canvas.Brush.Color := clNone; OldStyle := Canvas.Brush.Style; Canvas.Brush.Style := bsClear; Canvas.Textout(10, 10, msg); @@ -697,6 +696,7 @@ begin SkipUncheckedTests(testResult, TestTree.Selected); skipsCounter := testResult.NumberOfSkippedTests; testResult.AddListener(self); + pbBar.Invalidate; w := TXMLResultsWriter.Create(nil); w.FileName := 'null'; // prevents output to the console testResult.AddListener(w);