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

     2 

     3 SimpleTestResourceTestCase subclass:#FailingTestResourceTestCase

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'SUnit-Tests'

     8 !

     9 

    10 

    11 !FailingTestResourceTestCase methodsFor:'utility'!

    12 

    13 clearOuterResourceStateDuring: aBlock

    14 	"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)."

    15 

    16 	^super clearOuterResourceStateDuring:

    17 		[SimpleTestResource preventAvailabilityDuring:

    18 			[self should: aBlock raise: TestResult failure]]

    19 ! !

    20 

    21 !FailingTestResourceTestCase class methodsFor:'documentation'!

    22 

    23 version_SVN

    24     ^ '§Id: FailingTestResourceTestCase.st 214 2011-03-14 12:22:21Z vranyj1 §'

    25 ! !