#UI_ENHANCEMENT by cg
class: Tools::TestRunnerMini
changed:
#debug
#run:debug:coverageContext:
--- 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