equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/sunit' }" |
1 "{ Package: 'stx:goodies/sunit' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#TestAsserter |
5 Object subclass:#TestAsserter |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
206 description: aString. |
208 description: aString. |
207 |
209 |
208 "Modified: / 05-12-2009 / 18:18:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
210 "Modified: / 05-12-2009 / 18:18:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
209 ! |
211 ! |
210 |
212 |
|
213 skip |
|
214 "skip this test" |
|
215 |
|
216 self logSkipped: 'Skipped'. |
|
217 TestResult skipped sunitSignalWith:'Unconditionally skipped' |
|
218 ! |
|
219 |
211 skipIf:aCondition description:aString |
220 skipIf:aCondition description:aString |
212 aCondition value ifTrue: |
221 "skip this test, if some condition is met" |
213 [self logSkipped: 'Skipped - ',aString. |
222 |
214 TestResult skipped sunitSignalWith: aString]. |
223 aCondition value ifTrue: [ |
|
224 self logSkipped: 'Skipped - ',aString. |
|
225 TestResult skipped sunitSignalWith: aString |
|
226 ]. |
215 ! ! |
227 ! ! |
216 |
228 |
217 !TestAsserter methodsFor:'convenience'! |
229 !TestAsserter methodsFor:'convenience'! |
218 |
230 |
219 assert: anObject equals: anotherObject |
231 assert: anObject equals: anotherObject |
257 ! ! |
269 ! ! |
258 |
270 |
259 !TestAsserter class methodsFor:'documentation'! |
271 !TestAsserter class methodsFor:'documentation'! |
260 |
272 |
261 version |
273 version |
262 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestAsserter.st,v 1.17 2013-04-03 23:43:29 cg Exp $' |
274 ^ '$Header$' |
263 ! |
275 ! |
264 |
276 |
265 version_CVS |
277 version_CVS |
266 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestAsserter.st,v 1.17 2013-04-03 23:43:29 cg Exp $' |
278 ^ '$Header$' |
267 ! |
279 ! |
268 |
280 |
269 version_SVN |
281 version_SVN |
270 ^ '§Id: TestAsserter.st 217 2011-05-05 19:33:11Z vranyj1 §' |
282 ^ '$Id$' |
271 ! ! |
283 ! ! |
272 |
284 |