author | Claus Gittinger <cg@exept.de> |
Wed, 29 May 2019 01:12:49 +0200 | |
changeset 747 | 1dcb53cf964d |
parent 651 | 81ed51d0c324 |
permissions | -rw-r--r-- |
0 | 1 |
"{ Package: 'stx:goodies/sunit' }" |
2 |
||
651 | 3 |
"{ NameSpace: Smalltalk }" |
4 |
||
0 | 5 |
Exception subclass:#TestFailure |
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
6
78bb1397e43d
added rerun-defect tests; fixed button enable bug
Claus Gittinger <cg@exept.de>
parents:
0
diff
changeset
|
9 |
category:'SUnit-Preload' |
0 | 10 |
! |
11 |
||
222 | 12 |
!TestFailure class methodsFor:'documentation'! |
13 |
||
14 |
documentation |
|
15 |
" |
|
16 |
'TestFailure is raised when the boolean parameter of an assert: ... or deny: ... call is the opposite of what the assertion claims. |
|
17 |
||
18 |
||
19 |
" |
|
20 |
! ! |
|
21 |
||
22 |
!TestFailure methodsFor:'Camp Smalltalk'! |
|
23 |
||
24 |
sunitAnnounce: aTestCase toResult: aTestResult |
|
304 | 25 |
aTestResult addFailure: aTestCase detail: self. |
26 |
self sunitExitWith: false. |
|
27 |
||
28 |
"Modified: / 03-08-2011 / 17:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
222 | 29 |
! ! |
14 | 30 |
|
104 | 31 |
!TestFailure methodsFor:'handling'! |
32 |
||
33 |
handleFailureWith:something |
|
34 |
"non-resumable test failure. Abort the test suite" |
|
35 |
||
36 |
^ self returnWith:something |
|
37 |
! ! |
|
38 |
||
14 | 39 |
!TestFailure class methodsFor:'documentation'! |
40 |
||
41 |
version |
|
651 | 42 |
^ '$Header$' |
43 |
! |
|
44 |
||
45 |
version_CVS |
|
46 |
^ '$Header$' |
|
222 | 47 |
! |
48 |
||
49 |
version_SVN |
|
651 | 50 |
^ '$Id$' |
14 | 51 |
! ! |
651 | 52 |