TestFailure.st
author Claus Gittinger <cg@exept.de>
Fri, 08 May 2015 12:28:56 +0200
changeset 610 756214d7dcca
parent 304 08842173015f
child 613 5a546630cfcf
child 651 81ed51d0c324
permissions -rw-r--r--
class: TestCaseOutcome changed: #=
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/sunit' }"
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Exception subclass:#TestFailure
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
6
78bb1397e43d added rerun-defect tests; fixed button enable bug
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
     7
	category:'SUnit-Preload'
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    10
!TestFailure class methodsFor:'documentation'!
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    11
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    12
documentation
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    13
"
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    14
    'TestFailure is raised when the boolean parameter of an assert: ... or deny: ... call is the opposite of what the assertion claims.
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    15
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    16
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    17
"
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    18
! !
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    19
304
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    20
!TestFailure class methodsFor:'others'!
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    21
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    22
version_CVS
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    23
    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.7 2011-08-03 16:44:53 vrany Exp $'
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    24
! !
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    25
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    26
!TestFailure methodsFor:'Camp Smalltalk'!
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    27
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    28
sunitAnnounce: aTestCase toResult: aTestResult
304
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    29
        aTestResult addFailure: aTestCase detail: self.
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    30
        self sunitExitWith: false.
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    31
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    32
    "Modified: / 03-08-2011 / 17:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    33
! !
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    34
104
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    35
!TestFailure methodsFor:'handling'!
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    36
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    37
handleFailureWith:something
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    38
    "non-resumable test failure. Abort the test suite"
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    39
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    40
    ^ self returnWith:something
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    41
! !
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    42
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    43
!TestFailure class methodsFor:'documentation'!
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    44
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    45
version
304
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    46
    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.7 2011-08-03 16:44:53 vrany Exp $'
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    47
!
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    48
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    49
version_SVN
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    50
    ^ '§Id: TestFailure.st 204 2010-09-11 15:21:51Z vranyj1 §'
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    51
! !