"{ Package: 'stx:goodies/sunit' }"
SimpleTestResourceTestCase subclass:#FailingTestResourceTestCase
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'SUnit-Tests'
!
!FailingTestResourceTestCase methodsFor:'utility'!
clearOuterResourceStateDuring: aBlock
"Make the resource impossible to make available, then ensure that every test raises a failure but not an error (which its setUp would do if it reached it and the resource were nil)."
^super clearOuterResourceStateDuring:
[SimpleTestResource preventAvailabilityDuring:
[self should: aBlock raise: TestResult failure]]
! !
!FailingTestResourceTestCase class methodsFor:'documentation'!
version_SVN
^ '§Id: FailingTestResourceTestCase.st 214 2011-03-14 12:22:21Z vranyj1 §'
! !