TestCase.st
changeset 421 9b8b2a70d775
parent 420 84e640399605
child 430 8347cb8a1b84
equal deleted inserted replaced
420:84e640399605 421:9b8b2a70d775
    62 allTestSelectors
    62 allTestSelectors
    63     | answer pivotClass lookupRoot |
    63     | answer pivotClass lookupRoot |
    64 
    64 
    65     answer := Set withAll: self testSelectors.
    65     answer := Set withAll: self testSelectors.
    66     self shouldInheritSelectors ifTrue:[
    66     self shouldInheritSelectors ifTrue:[
    67         pivotClass := self.
    67         pivotClass := self superclass.
    68         lookupRoot := self lookupHierarchyRoot.
    68         lookupRoot := self lookupHierarchyRoot.
    69         [pivotClass == lookupRoot] whileFalse:[
    69         [pivotClass == lookupRoot] whileFalse:[
       
    70             answer addAll: pivotClass testSelectors.
    70             pivotClass := pivotClass superclass.
    71             pivotClass := pivotClass superclass.
    71             answer addAll: pivotClass testSelectors
       
    72         ]
    72         ]
    73     ].
    73     ].
    74     ^answer asSortedCollection asOrderedCollection
    74     ^answer asSortedCollection asOrderedCollection
    75 
    75 
    76     "Modified: / 21-08-2011 / 15:01:47 / cg"
    76     "Modified: / 21-08-2011 / 15:06:11 / cg"
    77 !
    77 !
    78 
    78 
    79 forgetLastTestRunResult
    79 forgetLastTestRunResult
    80 
    80 
    81     Smalltalk changed:#lastTestRunResult with:(Array with:self with:nil).
    81     Smalltalk changed:#lastTestRunResult with:(Array with:self with:nil).
   784 ! !
   784 ! !
   785 
   785 
   786 !TestCase class methodsFor:'documentation'!
   786 !TestCase class methodsFor:'documentation'!
   787 
   787 
   788 version
   788 version
   789     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.80 2011-08-21 13:03:34 cg Exp $'
   789     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.81 2011-08-21 13:06:47 cg Exp $'
   790 !
   790 !
   791 
   791 
   792 version_CVS
   792 version_CVS
   793     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.80 2011-08-21 13:03:34 cg Exp $'
   793     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.81 2011-08-21 13:06:47 cg Exp $'
   794 !
   794 !
   795 
   795 
   796 version_SVN
   796 version_SVN
   797     ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §'
   797     ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §'
   798 ! !
   798 ! !