TestFailure.st
author Claus Gittinger <cg@exept.de>
Sun, 01 Jul 2018 12:52:19 +0200
changeset 719 2c96860ad5cb
parent 651 81ed51d0c324
permissions -rw-r--r--
#FEATURE by cg class: TestCase::Should class definition added: #assertSelector #beInstanceOf: #equal: #not #raise: changed: #be:
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
651
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
     3
"{ NameSpace: Smalltalk }"
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
     4
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
Exception subclass:#TestFailure
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     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
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    12
!TestFailure class methodsFor:'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
documentation
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
    '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
    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
"
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    20
! !
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    21
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    22
!TestFailure methodsFor:'Camp Smalltalk'!
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    23
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 104
diff changeset
    24
sunitAnnounce: aTestCase toResult: aTestResult
304
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    25
        aTestResult addFailure: aTestCase detail: self.
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    26
        self sunitExitWith: false.
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    27
08842173015f - doRunCase: renamed to performCase:
vrany
parents: 222
diff changeset
    28
    "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
    29
! !
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    30
104
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    31
!TestFailure methodsFor:'handling'!
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    32
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    33
handleFailureWith:something
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    34
    "non-resumable test failure. Abort the test suite"
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    35
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    36
    ^ self returnWith:something
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    37
! !
974f57e122c1 Merge SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    38
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    39
!TestFailure class methodsFor:'documentation'!
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    40
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    41
version
651
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    42
    ^ '$Header$'
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    43
!
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    44
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    45
version_CVS
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    46
    ^ '$Header$'
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
651
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    50
    ^ '$Id$'
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    51
! !
651
81ed51d0c324 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    52