equal
deleted
inserted
replaced
40456 (selectors := self selectedSelectors) isEmptyOrNil ifTrue:[ |
40456 (selectors := self selectedSelectors) isEmptyOrNil ifTrue:[ |
40457 selectors := OrderedCollection new. |
40457 selectors := OrderedCollection new. |
40458 self |
40458 self |
40459 selectedProtocolMethodsDo:[:cls :category :sel :mthd | |
40459 selectedProtocolMethodsDo:[:cls :category :sel :mthd | |
40460 (cls isTestCaseLike and:[ cls isAbstract not ]) ifTrue:[ |
40460 (cls isTestCaseLike and:[ cls isAbstract not ]) ifTrue:[ |
40461 (cls isTestSelector:sel) ifTrue:[ |
40461 (cls allTestSelectors includes:sel) ifTrue:[ |
40462 selectors add:sel |
40462 selectors add:sel |
40463 ]. |
40463 ]. |
40464 ]. |
40464 ]. |
40465 ]. |
40465 ]. |
40466 ]. |
40466 ]. |
40497 |
40497 |
40498 "Created: / 05-08-2006 / 17:32:06 / cg" |
40498 "Created: / 05-08-2006 / 17:32:06 / cg" |
40499 "Modified: / 06-07-2011 / 14:07:52 / cg" |
40499 "Modified: / 06-07-2011 / 14:07:52 / cg" |
40500 "Modified: / 21-08-2011 / 13:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
40500 "Modified: / 21-08-2011 / 13:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
40501 "Modified: / 26-12-2013 / 22:01:37 / f.urbach" |
40501 "Modified: / 26-12-2013 / 22:01:37 / f.urbach" |
|
40502 "Modified: / 07-09-2022 / 15:06:03 / Jan Vrany <jan.vrany@labware.com>" |
40502 ! |
40503 ! |
40503 |
40504 |
40504 selectedNonAbstractTestCaseClassesDo:aBlock |
40505 selectedNonAbstractTestCaseClassesDo:aBlock |
40505 "run selected testcases for coverage tests; |
40506 "run selected testcases for coverage tests; |
40506 First, compile all affected testee-classes with instrumentation, |
40507 First, compile all affected testee-classes with instrumentation, |