equal
deleted
inserted
replaced
86 setupForPackages:packages |
86 setupForPackages:packages |
87 |
87 |
88 packages do: [:pkg | |
88 packages do: [:pkg | |
89 |def | |
89 |def | |
90 |
90 |
|
91 self loadPackageIfNotAlready: pkg. |
91 def := ProjectDefinition definitionClassForPackage:pkg. |
92 def := ProjectDefinition definitionClassForPackage:pkg. |
92 def isNil ifTrue:[ |
93 |
93 Smalltalk loadPackage:pkg asSymbol. |
|
94 def := ProjectDefinition definitionClassForPackage:pkg. |
|
95 ]. |
|
96 (def respondsTo:#testSuite) ifTrue:[ |
94 (def respondsTo:#testSuite) ifTrue:[ |
97 suite addTest:def testSuite |
95 suite addTest:def testSuite |
98 ] ifFalse:[ |
96 ] ifFalse:[ |
99 | classes psuite | |
97 | classes psuite | |
100 psuite := TestSuite named:pkg. |
98 psuite := TestSuite named:pkg. |
114 ]. |
112 ]. |
115 suite addTest: psuite. |
113 suite addTest: psuite. |
116 ] |
114 ] |
117 ]. |
115 ]. |
118 |
116 |
119 "Modified: / 07-11-2011 / 09:43:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
117 "Modified: / 13-01-2012 / 13:00:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120 ! |
118 ! |
121 |
119 |
122 setupForSuite: suite |
120 setupForSuite: suite |
123 |
121 |
124 suite addTest: suite. |
122 suite addTest: suite. |