--- a/TestCase.st Sun Feb 01 03:38:55 2015 +0100
+++ b/TestCase.st Tue Feb 03 20:49:57 2015 +0100
@@ -356,10 +356,11 @@
coveredClassNames
"should be redefined to return a collection of classes which are tested by
- this suite/case. If not redefined, coveredPackageNames should be.
+ this suite/case.
+ If not redefined, coveredPackageNames should be.
These classes can be instrumented for coverage analysis,
- before running the suite"
+ before running the suite to provide coverage analysis/report"
^ #()
@@ -367,12 +368,14 @@
!
coveredClasses
- "return a collection of classes which are tested by this suite/case,
- from either the coveredPackageNames or coveredClassNames
- (which ever returns non-nil.
+ "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"
+ before running the suite to provide coverage analysis/report"
self coveredPackageNames notNil ifTrue:[
^ self coveredPackageNames
@@ -387,7 +390,7 @@
If not redefined, coveredClassNames should be redefined.
These classes can be instrumented for coverage analysis,
- before running the suite"
+ before running the suite to provide coverage analysis/report"
^ nil
! !
@@ -957,15 +960,15 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.106 2015-02-01 02:38:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.107 2015-02-03 19:49:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.106 2015-02-01 02:38:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.107 2015-02-03 19:49:57 cg Exp $'
!
version_SVN
- ^ '$Id: TestCase.st,v 1.106 2015-02-01 02:38:55 cg Exp $'
+ ^ '$Id: TestCase.st,v 1.107 2015-02-03 19:49:57 cg Exp $'
! !