hg/stx-goodies-sunit: SimpleTestResource.st@e31b2e7b658d (annotated)

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
664 e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 222 diff changeset	3	"{ NameSpace: Smalltalk }"
e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 222 diff changeset	4
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestResource subclass:#SimpleTestResource
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'runningState hasRun hasSetup'
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'SUnit-Tests'
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
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	12	SimpleTestResource class instanceVariableNames:'preventAvailability'
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	13
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	14	"
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	15	The following class instance variables are inherited by this class:
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	16
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	17	TestResource - current
664 e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 222 diff changeset	18	TestAsserter -
e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 222 diff changeset	19	Object -
222 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	!
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
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	24	!SimpleTestResource class methodsFor:'accessing'!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	25
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	26	allowAvailability
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	27	^preventAvailability isNil
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	28	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	29
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	30	rawCurrentForTest
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	31	^current
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	32	! !
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	33
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	34	!SimpleTestResource class methodsFor:'utility'!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	35
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	36	preventAvailabilityDuring: aBlock
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	37	"Only setter of preventAvailability."
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	38
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	39	preventAvailability := false.
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	40	^aBlock ensure: [preventAvailability := nil]
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	41	! !
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	42
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	43	!SimpleTestResource methodsFor:'accessing'!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	44
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	45	runningState
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	46
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	47	^runningState
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	48	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	49
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	50	runningState: aSymbol
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	51
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	52	runningState := aSymbol
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	53	! !
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	54
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	55	!SimpleTestResource methodsFor:'running'!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	56
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	57	setRun
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	58	hasRun := true
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	59	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	60
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	61	setUp
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	62
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	63	self runningState: self startedStateSymbol.
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	64	hasSetup := true
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	65	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	66
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	67	startedStateSymbol
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	68
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	69	^#started
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	70	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	71
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	72	stoppedStateSymbol
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	73
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	74	^#stopped
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	75	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	76
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	77	tearDown
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	78
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	79	self runningState: self stoppedStateSymbol
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	80	! !
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	81
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	82	!SimpleTestResource methodsFor:'testing'!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	83
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	84	hasRun
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	85	^hasRun
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	86	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	87
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	88	hasSetup
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	89	^hasSetup
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	90	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	91
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	92	isAvailable
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	93	^self class allowAvailability and:
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	94	[self runningState == self startedStateSymbol]
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	95	! !
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	96
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	97	!SimpleTestResource class methodsFor:'documentation'!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	98
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	99	version_SVN
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	100	^ '�Id: SimpleTestResource.st 214 2011-03-14 12:22:21Z vranyj1 �'
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: diff changeset	101	! !
664 e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 222 diff changeset	102

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 03 Sep 2016 09:08:25 +0100
branch	jv
changeset 664	e31b2e7b658d
parent 222	8e6f482297fa
child 724	4dae63fce9f9
permissions	-rw-r--r--