equal
deleted
inserted
replaced
46 useHierachy := true] |
46 useHierachy := true] |
47 ifFalse: |
47 ifFalse: |
48 [realName := aString. |
48 [realName := aString. |
49 useHierachy := false]. |
49 useHierachy := false]. |
50 realName isEmpty ifTrue: [^nil]. |
50 realName isEmpty ifTrue: [^nil]. |
51 testCase := SUnitNameResolver classNamed: realName asSymbol. |
51 testCase := Smalltalk classNamed: realName asSymbol. |
52 testCase isNil ifTrue: [^nil]. |
52 testCase isNil ifTrue: [^nil]. |
53 ^useHierachy |
53 ^useHierachy |
54 ifTrue: [self hierachyOfTestSuitesFrom: testCase] |
54 ifTrue: [self hierachyOfTestSuitesFrom: testCase] |
55 ifFalse: [testCase suite] |
55 ifFalse: [testCase suite] |
56 |
56 |
117 ! ! |
117 ! ! |
118 |
118 |
119 !TestSuitesScripter class methodsFor:'documentation'! |
119 !TestSuitesScripter class methodsFor:'documentation'! |
120 |
120 |
121 version |
121 version |
122 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScripter.st,v 1.5 2001-11-21 15:04:36 cg Exp $' |
122 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScripter.st,v 1.6 2001-12-13 23:13:18 cg Exp $' |
123 ! ! |
123 ! ! |