TestCase.st
changeset 417 b111f3cb1beb
parent 391 fb104ea5136f
child 420 84e640399605
equal deleted inserted replaced
416:6788fd0e9e1e 417:b111f3cb1beb
   275 
   275 
   276 testSelectors
   276 testSelectors
   277         "The API method is allTestSelectors which now includes #shouldInheritSelectors and so handles all cases.  Unlike that method, this does not guarantee to return a sorted ordered collection."
   277         "The API method is allTestSelectors which now includes #shouldInheritSelectors and so handles all cases.  Unlike that method, this does not guarantee to return a sorted ordered collection."
   278 
   278 
   279         ^self sunitSelectors select: [:each | 'test*' sunitMatch: each]
   279         ^self sunitSelectors select: [:each | 'test*' sunitMatch: each]
       
   280 ! !
       
   281 
       
   282 !TestCase class methodsFor:'queries'!
       
   283 
       
   284 coveredClassNames
       
   285     "should be redefined to return a collection of classes which are tested by
       
   286      this suite/case. These classes can be instrumented for coverage analysis,
       
   287      before running the suite"
       
   288 
       
   289     ^ #()
       
   290 
       
   291     "Created: / 06-07-2011 / 21:27:03 / cg"
       
   292 !
       
   293 
       
   294 coveredClasses
       
   295     "return a collection of classes which are tested by this suite/case. 
       
   296      These classes can be instrumented for coverage analysis,
       
   297      before running the suite"
       
   298 
       
   299     ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each]
       
   300 
       
   301     "Created: / 04-07-2011 / 18:16:08 / cg"
   280 ! !
   302 ! !
   281 
   303 
   282 !TestCase class methodsFor:'quick testing'!
   304 !TestCase class methodsFor:'quick testing'!
   283 
   305 
   284 assert: aBoolean
   306 assert: aBoolean
   760 ! !
   782 ! !
   761 
   783 
   762 !TestCase class methodsFor:'documentation'!
   784 !TestCase class methodsFor:'documentation'!
   763 
   785 
   764 version
   786 version
   765     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.78 2011-08-20 15:20:00 vrany Exp $'
   787     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.79 2011-08-20 18:09:12 cg Exp $'
   766 !
   788 !
   767 
   789 
   768 version_CVS
   790 version_CVS
   769     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.78 2011-08-20 15:20:00 vrany Exp $'
   791     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.79 2011-08-20 18:09:12 cg Exp $'
   770 !
   792 !
   771 
   793 
   772 version_SVN
   794 version_SVN
   773     ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §'
   795     ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §'
   774 ! !
   796 ! !