#DOCUMENTATION by cg
class: TestCase class
comment/format in: #coveredClasses
category of: #coveredClasses
--- a/TestCase.st Wed Jul 26 12:46:18 2017 +0200
+++ b/TestCase.st Wed Aug 30 15:16:04 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"{ Package: 'stx:goodies/sunit' }"
"{ NameSpace: Smalltalk }"
@@ -354,6 +352,33 @@
"Modified: / 21-04-2010 / 23:19:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+coveredClasses
+ "return a collection of classes which are tested by this suite/case.
+ Do not redefine this; redefine either coveredClassNames or
+ coveredPackageNames
+ (these return names, to avoid creating
+ a package dependecy due to the class references)
+
+ These classes can be instrumented for coverage analysis,
+ before running the suite to provide coverage analysis/report"
+
+ |names|
+
+ (names := self coveredPackageNames) notEmptyOrNil ifTrue:[
+ ^ names
+ collectAll:[:eachPackageOrPattern |
+ eachPackageOrPattern includesMatchCharacters ifTrue:[
+ Smalltalk allClassesForWhich:[:cls | (cls package ?'') matches:eachPackageOrPattern].
+ ] ifFalse:[
+ Smalltalk allClassesInPackage:eachPackageOrPattern
+ ]
+ ].
+ ].
+ ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each]
+
+ "Modified (comment): / 30-08-2017 / 11:09:22 / cg"
+!
+
lastTestRunResultChanged: selector
Smalltalk changed:#lastTestRunResult with:(Array with:self with:selector).
@@ -389,31 +414,6 @@
"Created: / 06-07-2011 / 21:27:03 / cg"
!
-coveredClasses
- "return a collection of classes which are tested by this suite/case.
- Do not redefine this; redefine either coveredClassNames or
- coveredPackageNames
- (these return names, to avoid creating
- a package dependecy due to the class references)
-
- These classes can be instrumented for coverage analysis,
- before running the suite to provide coverage analysis/report"
-
- |names|
-
- (names := self coveredPackageNames) notEmptyOrNil ifTrue:[
- ^ names
- collectAll:[:eachPackageOrPattern |
- eachPackageOrPattern includesMatchCharacters ifTrue:[
- Smalltalk allClassesForWhich:[:cls | (cls package ?'') matches:eachPackageOrPattern].
- ] ifFalse:[
- Smalltalk allClassesInPackage:eachPackageOrPattern
- ]
- ].
- ].
- ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each]
-!
-
coveredPackageNames
"redefine this in a concrete testCase class to return non-nil,
to return a collection of packages which are tested by this suite/case.