equal
deleted
inserted
replaced
382 a package dependecy due to the class references) |
382 a package dependecy due to the class references) |
383 |
383 |
384 These classes can be instrumented for coverage analysis, |
384 These classes can be instrumented for coverage analysis, |
385 before running the suite to provide coverage analysis/report" |
385 before running the suite to provide coverage analysis/report" |
386 |
386 |
387 self coveredPackageNames notNil ifTrue:[ |
387 |names| |
388 ^ self coveredPackageNames |
388 |
389 collectAll:[:eachPackage | Smalltalk allClassesInPackage:eachPackage]. |
389 (names := self coveredPackageNames) notEmptyOrNil ifTrue:[ |
|
390 ^ names |
|
391 collectAll:[:eachPackageOrPattern | |
|
392 eachPackageOrPattern includesMatchCharacters ifTrue:[ |
|
393 Smalltalk allClassesForWhich:[:cls | (cls package ?'') matches:eachPackageOrPattern]. |
|
394 ] ifFalse:[ |
|
395 Smalltalk allClassesInPackage:eachPackageOrPattern |
|
396 ] |
|
397 ]. |
390 ]. |
398 ]. |
391 ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each] |
399 ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each] |
392 ! |
400 ! |
393 |
401 |
394 coveredPackageNames |
402 coveredPackageNames |
975 ! ! |
983 ! ! |
976 |
984 |
977 !TestCase class methodsFor:'documentation'! |
985 !TestCase class methodsFor:'documentation'! |
978 |
986 |
979 version |
987 version |
980 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $' |
988 ^ '$Header$' |
981 ! |
989 ! |
982 |
990 |
983 version_CVS |
991 version_CVS |
984 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $' |
992 ^ '$Header$' |
985 ! |
993 ! |
986 |
994 |
987 version_SVN |
995 version_SVN |
988 ^ '$Id: TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $' |
996 ^ '$Id$' |
989 ! ! |
997 ! ! |
990 |
998 |
991 |
999 |
992 TestCase initialize! |
1000 TestCase initialize! |