Mercurial Mercurial > hg > stx-goodies-sunit / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FailingTestResourceTestCase.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 09 Jul 2014 23:00:04 +0100
branchworking_v5_0
changeset 613 5a546630cfcf
parent 611 1eecc860f4a5
permissions -rw-r--r--
Reverted TestCase>>debug to original SUnit implementation and made TestFailure proceedable. The code in TestCase>>debug was too elaborate. The purpose was to be able to proceed to see what next assertion is failing. This could be easily achieved by making TestFailure a resumable exception (by means of #mayProceed)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
     1
 
"{ Package: 'stx:goodies/sunit' }"
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
     2
 












8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     3


SimpleTestResourceTestCase subclass:#FailingTestResourceTestCase













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     4


	instanceVariableNames:''













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     5


	classVariableNames:''













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     6


	poolDictionaries:''













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     7


	category:'SUnit-Tests'













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     8


!













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




     9














8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    10














8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    11


!FailingTestResourceTestCase methodsFor:'utility'!













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    12














8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    13


clearOuterResourceStateDuring: aBlock













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




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













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    15














8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    16


	^super clearOuterResourceStateDuring:













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    17


		[SimpleTestResource preventAvailabilityDuring:













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    18


			[self should: aBlock raise: TestResult failure]]













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    19


! !













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    20














8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    21


!FailingTestResourceTestCase class methodsFor:'documentation'!













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    22














8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    23


version_SVN













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    24


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













8e6f482297fa
Jan's 4.1 version



Claus Gittinger <cg@exept.de>


parents: 

diff
changeset




    25


! !








611






1eecc860f4a5
Project definition fixed and HG configured as for CVS mirror repository.



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
222

diff
changeset




    26
















hg/stx-goodies-sunit