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:

"{ Package: 'stx:goodies/sunit' }"

"{ NameSpace: Smalltalk }"

Exception subclass:#TestFailure
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'SUnit-Preload'
!

!TestFailure class methodsFor:'documentation'!

documentation
"
    'TestFailure is raised when the boolean parameter of an assert: ... or deny: ... call is the opposite of what the assertion claims.


"
! !

!TestFailure methodsFor:'Camp Smalltalk'!

sunitAnnounce: aTestCase toResult: aTestResult
        aTestResult addFailure: aTestCase detail: self.
        self sunitExitWith: false.

    "Modified: / 03-08-2011 / 17:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!TestFailure methodsFor:'handling'!

handleFailureWith:something
    "non-resumable test failure. Abort the test suite"

    ^ self returnWith:something
! !

!TestFailure class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
!

version_SVN
    ^ '$Id$'
! !