equal
deleted
inserted
replaced
30 AbstractTestRunner subclass:#TestRunnerEmbedded |
30 AbstractTestRunner subclass:#TestRunnerEmbedded |
31 instanceVariableNames:'runnerPanel selectedClassesHolder selectedProtocolsHolder |
31 instanceVariableNames:'runnerPanel selectedClassesHolder selectedProtocolsHolder |
32 selectedMethodsHolder methodGeneratorHolder resultHolder |
32 selectedMethodsHolder methodGeneratorHolder resultHolder |
33 resultInfoHolder resultBackgroundColorHolder runningHolder |
33 resultInfoHolder resultBackgroundColorHolder runningHolder |
34 progressHolder progressIndicatorShownHolder infoHolder |
34 progressHolder progressIndicatorShownHolder infoHolder |
35 testProcess allTestCases' |
35 testProcess allTestCases progressIndicator' |
36 classVariableNames:'' |
36 classVariableNames:'' |
37 poolDictionaries:'' |
37 poolDictionaries:'' |
38 category:'SUnit-UI' |
38 category:'SUnit-UI' |
39 ! |
39 ! |
40 |
40 |
202 collection: ( |
202 collection: ( |
203 (ProgressIndicatorSpec |
203 (ProgressIndicatorSpec |
204 name: 'RunningProgress' |
204 name: 'RunningProgress' |
205 layout: (LayoutFrame 5 0 -10 0.5 -5 1 10 0.5) |
205 layout: (LayoutFrame 5 0 -10 0.5 -5 1 10 0.5) |
206 model: progressHolder |
206 model: progressHolder |
|
207 postBuildCallback: postBuildProgressIndicator: |
207 ) |
208 ) |
208 ) |
209 ) |
209 |
210 |
210 ) |
211 ) |
211 ) |
212 ) |
448 ]. |
449 ]. |
449 |
450 |
450 self stop. |
451 self stop. |
451 |
452 |
452 testProcess := [ |
453 testProcess := [ |
453 |result incr run| |
454 |result incr run anyFail anyError| |
454 |
455 |
|
456 anyFail := anyError := false. |
455 [ |
457 [ |
|
458 |
456 self runningHolder value:true. |
459 self runningHolder value:true. |
457 self progressIndicatorShownHolder value:(numTests > 1). |
460 self progressIndicatorShownHolder value:(numTests > 1). |
458 self progressHolder value:0. |
461 self progressHolder value:0. |
459 incr := 100 / numTests. |
462 incr := 100 / numTests. |
460 run := 0. |
463 run := 0. |
469 afterEachDo:[:test :result | |
472 afterEachDo:[:test :result | |
470 run := run + 1. |
473 run := run + 1. |
471 self progressHolder value:(incr * run) truncated "rounded". |
474 self progressHolder value:(incr * run) truncated "rounded". |
472 infoHolder notNil ifTrue:[ |
475 infoHolder notNil ifTrue:[ |
473 infoHolder value:('Done.') |
476 infoHolder value:('Done.') |
474 ] |
477 ]. |
|
478 result hasPassed ifFalse:[ |
|
479 progressIndicator foregroundColor:(Color red) |
|
480 ]. |
475 ]. |
481 ]. |
476 suiteAndResult := SuiteAndResult suite:suite result:result. |
482 suiteAndResult := SuiteAndResult suite:suite result:result. |
477 ] ensure:[ |
483 ] ensure:[ |
|
484 progressIndicator initStyle. |
478 self progressIndicatorShownHolder value:false. |
485 self progressIndicatorShownHolder value:false. |
479 self resultHolder setValue:nil; value:suiteAndResult; changed. |
486 self resultHolder setValue:nil; value:suiteAndResult; changed. |
480 self runningHolder value:false. |
487 self runningHolder value:false. |
481 ] |
488 ] |
482 ] newProcess. |
489 ] newProcess. |
962 [(cls askFor: #isAbstract) not] |
969 [(cls askFor: #isAbstract) not] |
963 |
970 |
964 "Modified: / 04-03-2011 / 06:54:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
971 "Modified: / 04-03-2011 / 06:54:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
965 ! |
972 ! |
966 |
973 |
|
974 postBuildProgressIndicator:aWidget |
|
975 progressIndicator := aWidget |
|
976 ! |
|
977 |
967 show |
978 show |
968 |
979 |
969 self visibility: true height: 50 |
980 self visibility: true height: 50 |
970 |
981 |
971 "Created: / 11-03-2010 / 09:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
982 "Created: / 11-03-2010 / 09:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1251 ! ! |
1262 ! ! |
1252 |
1263 |
1253 !TestRunnerEmbedded class methodsFor:'documentation'! |
1264 !TestRunnerEmbedded class methodsFor:'documentation'! |
1254 |
1265 |
1255 version |
1266 version |
1256 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.34 2013-05-21 20:21:03 cg Exp $' |
1267 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $' |
1257 ! |
1268 ! |
1258 |
1269 |
1259 version_CVS |
1270 version_CVS |
1260 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.34 2013-05-21 20:21:03 cg Exp $' |
1271 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $' |
1261 ! |
1272 ! |
1262 |
1273 |
1263 version_SVN |
1274 version_SVN |
1264 ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.34 2013-05-21 20:21:03 cg Exp $' |
1275 ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $' |
1265 ! ! |
1276 ! ! |
1266 |
1277 |