Tools__TestRunnerMini.st
changeset 18842 058cd94533d3
parent 18719 46dd4de8ae12
child 18843 ace2c3514658
--- a/Tools__TestRunnerMini.st	Tue Jun 25 11:19:38 2019 +0200
+++ b/Tools__TestRunnerMini.st	Wed Jun 26 15:21:24 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -554,6 +552,7 @@
             skipped := false.
             [
                 [
+self activityNotification:('running %1...' bindWith:test selector).
                     test debug. 
                 ] on:TestResult skipped do:[:ex |
                     ex proceed.
@@ -599,8 +598,7 @@
     "Modified: / 07-07-2011 / 11:33:48 / Jan Vrany <jan.vrant@fit.cvut,cz>"
     "Modified: / 03-12-2012 / 14:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 18-02-2016 / 16:49:14 / cg"
-    "Modified: / 23-03-2019 / 10:14:01 / Claus Gittinger"
-    "Modified (comment): / 23-03-2019 / 11:39:13 / Claus Gittinger"
+    "Modified: / 26-06-2019 / 15:17:02 / Claus Gittinger"
 !
 
 pin
@@ -696,6 +694,9 @@
                             beforeEachDo:[:test :result |
                                 currentTestCaseName := (' (run: ',test getTestName allBold,')').
                                 resultHolder changed.
+                                self activityNotification:('Running "%1-%2"...' 
+                                                    bindWith:test name
+                                                    with:test getTestName allBold).
                                 infoHolder notNil ifTrue:[
                                     infoHolder value:('Running "%1-%2"...' 
                                                     bindWith:test name
@@ -719,6 +720,7 @@
                 self progressIndicatorShownHolder value:false.
                 resultHolder setValue:nil; value:suiteAndResult; changed.
                 self runningHolder value:false.
+                self activityNotification:('Finished.'). 
             ]
         ].
 
@@ -735,7 +737,7 @@
 
     "Created: / 03-12-2012 / 13:59:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 18-02-2016 / 16:57:27 / cg"
-    "Modified: / 27-03-2019 / 16:25:24 / Claus Gittinger"
+    "Modified: / 26-06-2019 / 15:18:41 / Claus Gittinger"
 !
 
 runAll