ExampleTestResource.st
author Claus Gittinger <cg@exept.de>
Wed, 29 May 2019 01:12:49 +0200
changeset 747 1dcb53cf964d
parent 222 8e6f482297fa
child 611 1eecc860f4a5
child 664 e31b2e7b658d
permissions -rw-r--r--
#FEATURE by cg class: TestCase added: #invokeTestMethod changed: #performTest support timeout annotation
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/sunit' }"
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
TestResource subclass:#ExampleTestResource
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'runningState'
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'SUnit-Tests'
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
68
9fd111438d60 category renames (lower case)
Claus Gittinger <cg@exept.de>
parents: 46
diff changeset
    11
!ExampleTestResource class methodsFor:'testing'!
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
isAvailable
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	^super isAvailable and: [self current isStarted]
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
! !
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
68
9fd111438d60 category renames (lower case)
Claus Gittinger <cg@exept.de>
parents: 46
diff changeset
    18
!ExampleTestResource methodsFor:'accessing'!
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
runningState
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	^runningState
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
runningState: aSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	runningState := aSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
! !
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
68
9fd111438d60 category renames (lower case)
Claus Gittinger <cg@exept.de>
parents: 46
diff changeset
    30
!ExampleTestResource methodsFor:'constants'!
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
startedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	^#started
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
stoppedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
	^#stopped
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
! !
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
68
9fd111438d60 category renames (lower case)
Claus Gittinger <cg@exept.de>
parents: 46
diff changeset
    42
!ExampleTestResource methodsFor:'running'!
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
setUp
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    45
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
	self runningState: self startedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
tearDown
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
	self runningState: self stoppedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
! !
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
68
9fd111438d60 category renames (lower case)
Claus Gittinger <cg@exept.de>
parents: 46
diff changeset
    54
!ExampleTestResource methodsFor:'testing'!
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
isAvailable
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    57
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
	^self runningState == self startedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
isStarted
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    62
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
	^self runningState == self startedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
isStopped
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    67
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
	^self runningState == self stoppedStateSymbol
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
! !
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
!ExampleTestResource class methodsFor:'documentation'!
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
version
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    74
    ^ '$Header: /cvs/stx/stx/goodies/sunit/ExampleTestResource.st,v 1.3 2011-06-29 19:15:49 cg Exp $'
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    75
!
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    76
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    77
version_SVN
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 68
diff changeset
    78
    ^ '§Id: ExampleTestResource.st 182 2009-12-05 18:12:17Z vranyj1 §'
46
eb19d69beb10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
! !