equal
deleted
inserted
replaced
530 |
530 |
531 testRunAction := [ |
531 testRunAction := [ |
532 "/ debug run is synchronous |
532 "/ debug run is synchronous |
533 [ |
533 [ |
534 self runningHolder value:true. |
534 self runningHolder value:true. |
|
535 self windowGroup repairDamage. |
535 |
536 |
536 suite tests do:[:test | |
537 suite tests do:[:test | |
537 [ |
538 [ |
538 test debug. |
539 test debug. |
539 ] ifCurtailed:[ |
540 ] ifCurtailed:[ |
553 "/ result failures add: test. |
554 "/ result failures add: test. |
554 "/ suiteAndResult := SuiteAndResult suite: suite result: result. |
555 "/ suiteAndResult := SuiteAndResult suite: suite result: result. |
555 result failureOutcomes add: test. |
556 result failureOutcomes add: test. |
556 resultHolder value:suiteAndResult; changed. |
557 resultHolder value:suiteAndResult; changed. |
557 ] |
558 ] |
558 ] |
559 ]. |
|
560 self windowGroup repairDamage |
559 ]. |
561 ]. |
560 ] ensure:[ |
562 ] ensure:[ |
561 self runningHolder value:false. |
563 self runningHolder value:false. |
562 ]. |
564 ]. |
563 ]. |
565 ]. |
658 afterEachDo:[:test :result | |
660 afterEachDo:[:test :result | |
659 run := run + 1. |
661 run := run + 1. |
660 self progressHolder value:(incr * run) truncated "rounded". |
662 self progressHolder value:(incr * run) truncated "rounded". |
661 infoHolder notNil ifTrue:[ |
663 infoHolder notNil ifTrue:[ |
662 infoHolder value:('Done.') |
664 infoHolder value:('Done.') |
663 ] |
665 ]. |
|
666 resultHolder setValue:nil; value:suiteAndResult; changed. |
664 ] |
667 ] |
665 debug: debug. |
668 debug: debug. |
666 suiteAndResult := SuiteAndResult suite:suite result:result. |
669 suiteAndResult := SuiteAndResult suite:suite result:result. |
667 ] ensure:[ |
670 ] ensure:[ |
668 self progressIndicatorShownHolder value:false. |
671 self progressIndicatorShownHolder value:false. |