equal
deleted
inserted
replaced
24 ! ! |
24 ! ! |
25 |
25 |
26 !TestSuite methodsFor:'Dependencies'! |
26 !TestSuite methodsFor:'Dependencies'! |
27 |
27 |
28 addDependentToHierachy: anObject |
28 addDependentToHierachy: anObject |
29 self sunitAddDependent: anObject. |
29 self addDependent: anObject. |
30 self tests do: [:each | each addDependentToHierachy: anObject] |
30 self tests do: [:each | each addDependentToHierachy: anObject] |
31 |
31 |
32 "Modified: / 21.6.2000 / 10:13:35 / Sames" |
32 "Modified: / 21.6.2000 / 10:13:35 / Sames" |
33 ! |
33 ! |
34 |
34 |
35 removeDependentFromHierachy: anObject |
35 removeDependentFromHierachy: anObject |
36 self sunitRemoveDependent: anObject. |
36 self removeDependent: anObject. |
37 self tests do: [:each | each removeDependentFromHierachy: anObject] |
37 self tests do: [:each | each removeDependentFromHierachy: anObject] |
38 |
38 |
39 "Modified: / 21.6.2000 / 10:13:27 / Sames" |
39 "Modified: / 21.6.2000 / 10:13:27 / Sames" |
40 ! ! |
40 ! ! |
41 |
41 |
42 !TestSuite methodsFor:'Running'! |
42 !TestSuite methodsFor:'Running'! |
47 self run: result. |
47 self run: result. |
48 ^result |
48 ^result |
49 ! |
49 ! |
50 |
50 |
51 run: aResult |
51 run: aResult |
52 self tests do: |
52 self tests do: |
53 [:each | |
53 [:each | |
54 self sunitChanged: each. |
54 self changed: each. |
55 each run: aResult] |
55 each run: aResult] |
56 |
56 |
57 "Modified: / 21.6.2000 / 10:14:01 / Sames" |
57 "Modified: / 21.6.2000 / 10:14:01 / Sames" |
58 ! ! |
58 ! ! |
59 |
59 |
60 !TestSuite class methodsFor:'documentation'! |
60 !TestSuite class methodsFor:'documentation'! |
61 |
61 |
62 version |
62 version |
63 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.3 2000-12-10 13:21:20 cg Exp $' |
63 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.4 2001-09-04 13:07:06 cg Exp $' |
64 ! ! |
64 ! ! |