hg/stx-goodies-sunit: TestSuite.st@31c7107b5edd (annotated)

0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/sunit' }"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	3	Object subclass:#TestSuite
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	4	instanceVariableNames:'tests resources name'
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	7	category:'SUnit-Base'
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	10	TestSuite comment:''
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	11	!
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	12
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	13
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	14	!TestSuite class methodsFor:'instance creation'!
56 d46bb69147a9 rel3.0 Claus Gittinger <cg@exept.de> parents: 49 diff changeset	15
d46bb69147a9 rel3.0 Claus Gittinger <cg@exept.de> parents: 49 diff changeset	16	named: aString
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	17
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	18	^self new
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	19	name: aString;
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	20	yourself
56 d46bb69147a9 rel3.0 Claus Gittinger <cg@exept.de> parents: 49 diff changeset	21	! !
d46bb69147a9 rel3.0 Claus Gittinger <cg@exept.de> parents: 49 diff changeset	22
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 62 diff changeset	23	!TestSuite methodsFor:'accessing'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	addTest: aTest
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	26	self tests add: aTest
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	27	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	29	addTests: aCollection
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	30	aCollection do: [:eachTest \| self addTest: eachTest]
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	31	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32
47 7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	33	defaultResources
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	34	^self tests
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	35	inject: OrderedCollection new
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	36	into:
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	37	[:coll :testCase \|
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	38	testCase resources do:
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	39	[:each \|
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	40	(coll includes: each) ifFalse: [coll add: each]].
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	41	coll]
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	42	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	43
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	44	getTestName
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	45	^self name
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	46
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	47	"Created: / 12-09-2006 / 11:38:09 / cg"
47 7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	48	!
7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	49
37 6da5b7e8e3ab better update (name) Claus Gittinger <cg@exept.de> parents: 32 diff changeset	50	name
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	51
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	52	^name
37 6da5b7e8e3ab better update (name) Claus Gittinger <cg@exept.de> parents: 32 diff changeset	53	!
6da5b7e8e3ab better update (name) Claus Gittinger <cg@exept.de> parents: 32 diff changeset	54
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	55	name: aString
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	56
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	57	name := aString
37 6da5b7e8e3ab better update (name) Claus Gittinger <cg@exept.de> parents: 32 diff changeset	58	!
6da5b7e8e3ab better update (name) Claus Gittinger <cg@exept.de> parents: 32 diff changeset	59
137 b6e0d451b091 * empty log message * boris parents: 122 diff changeset	60	nameOfTest
b6e0d451b091 * empty log message * boris parents: 122 diff changeset	61	^ self name
b6e0d451b091 * empty log message * boris parents: 122 diff changeset	62	!
b6e0d451b091 * empty log message * boris parents: 122 diff changeset	63
47 7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	64	resources
7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	65	resources isNil ifTrue: [resources := self defaultResources].
7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	66	^resources
7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	67	!
7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	68
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	69	resources: someOrderedTestResourceClasses
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	70	"The parameter should understand reverseDo: and should not contain duplicates."
47 7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 40 diff changeset	71
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	72	resources := someOrderedTestResourceClasses
140 d61c515f8a58 * empty log message * Claus Gittinger <cg@exept.de> parents: 137 diff changeset	73	!
d61c515f8a58 * empty log message * Claus Gittinger <cg@exept.de> parents: 137 diff changeset	74
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75	tests
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76	tests isNil ifTrue: [tests := OrderedCollection new].
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	77	^tests
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	78	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	79
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 62 diff changeset	80	!TestSuite methodsFor:'dependencies'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	81
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	82	addDependentToHierachy: anObject
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	83	self sunitAddDependent: anObject.
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	84	self tests do: [ :each \| each addDependentToHierachy: anObject]
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	85	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	86
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	87	removeDependentFromHierachy: anObject
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	88	self sunitRemoveDependent: anObject.
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	89	self tests do: [ :each \| each removeDependentFromHierachy: anObject]
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	90	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	91
122 61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	92	!TestSuite methodsFor:'queries'!
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	93
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	94	isTestCase
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	95	^ false
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	96	!
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	97
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	98	isTestSuite
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	99	^ true
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	100	! !
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	101
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 62 diff changeset	102	!TestSuite methodsFor:'running'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	104	run
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	105
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	106	^self run: TestResult new.
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	107
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	108	"Modified: / 29-07-2011 / 09:34:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	109	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	110
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	111	run:aTestResult
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	112
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	113	^self run: aTestResult
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	114	beforeEachDo: [:test :result\|]
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	115	afterEachDo: [:test :result\|]
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	116
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	117	"Modified: / 29-07-2011 / 09:59:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
40 b27893ae4b99 * empty log message * Claus Gittinger <cg@exept.de> parents: 37 diff changeset	118	!
b27893ae4b99 * empty log message * Claus Gittinger <cg@exept.de> parents: 37 diff changeset	119
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	120	run:result beforeEachDo: before afterEachDo: after
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	121
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	122	result name:name.
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	123	[
243 cbce69b15370 changed: #run:beforeEachDo:afterEachDo: Claus Gittinger <cg@exept.de> parents: 238 diff changeset	124	self tests do:[:each \|
cbce69b15370 changed: #run:beforeEachDo:afterEachDo: Claus Gittinger <cg@exept.de> parents: 238 diff changeset	125	self sunitChanged:each.
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	126	each run:result
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	127	beforeEachDo: before
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	128	afterEachDo: after
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	129	resetResources: false "I'll reset it, see the ensure below"
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	130	]
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	131	] sunitEnsure:[
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	132	TestResource resetResources: self resources
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	133	].
202 46947f02aaa4 changed #run:beforeEachDo:afterEachDo: fm parents: 164 diff changeset	134
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	135	^result
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	136
243 cbce69b15370 changed: #run:beforeEachDo:afterEachDo: Claus Gittinger <cg@exept.de> parents: 238 diff changeset	137	"Modified: / 06-07-2011 / 14:24:45 / cg"
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	138	"Modified: / 29-07-2011 / 12:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
122 61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	139	!
61e456491017 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	140
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	141	run:aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	142
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	143	<resource: #obsolete>
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	144
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	145	^self run: aResult beforeEachDo: block1 afterEachDo: block2
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	146
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	147	"Modified: / 29-07-2011 / 09:49:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
238 384805dcb5dd added: Claus Gittinger <cg@exept.de> parents: 222 diff changeset	148	!
384805dcb5dd added: Claus Gittinger <cg@exept.de> parents: 222 diff changeset	149
384805dcb5dd added: Claus Gittinger <cg@exept.de> parents: 222 diff changeset	150	runBeforeEachDo:block1 afterEachDo: block2
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	151
31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	152	^self run: TestResult new beforeEachDo: block1 afterEachDo: block2
238 384805dcb5dd added: Claus Gittinger <cg@exept.de> parents: 222 diff changeset	153
384805dcb5dd added: Claus Gittinger <cg@exept.de> parents: 222 diff changeset	154	"Created: / 05-07-2011 / 16:51:25 / cg"
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	155	"Modified: / 29-07-2011 / 09:51:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	156	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	157
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 62 diff changeset	158	!TestSuite methodsFor:'testing'!
49 91ba780c656f resource allocation from 3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	159
91ba780c656f resource allocation from 3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	160	areAllResourcesAvailable
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	161	^self resources
49 91ba780c656f resource allocation from 3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	162	inject: true
91ba780c656f resource allocation from 3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	163	into: [:total :each \| each isAvailable & total]
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	164	!
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	165
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	166	signalUnavailableResources
ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	167
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	168	self resources do:[:res \|
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	169	res isAvailable ifFalse:[
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	170	^ res signalInitializationError
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	171	]
103 ad6897ce99e0 Merge SUnit 3.1 changes Stefan Vogel <sv@exept.de> parents: 94 diff changeset	172	].
49 91ba780c656f resource allocation from 3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	173	! !
91ba780c656f resource allocation from 3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	174
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	175	!TestSuite class methodsFor:'documentation'!
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	176
243 cbce69b15370 changed: #run:beforeEachDo:afterEachDo: Claus Gittinger <cg@exept.de> parents: 238 diff changeset	177	version_CVS
263 31c7107b5edd TestSuite/TestCase run* method refactored (cleanup, possible bug fixes) vrany parents: 243 diff changeset	178	^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.22 2011-07-29 11:14:04 vrany Exp $'
222 8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	179	!
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	180
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	181	version_SVN
8e6f482297fa Jan's 4.1 version Claus Gittinger <cg@exept.de> parents: 202 diff changeset	182	^ '�Id: TestSuite.st 203 2010-09-11 14:49:03Z vranyj1 �'
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	183	! !

author	vrany
	Fri, 29 Jul 2011 13:14:04 +0200
changeset 263	31c7107b5edd
parent 243	cbce69b15370
child 271	6b971d5e95b8
permissions	-rw-r--r--