hg/stx-goodies-sunit: TestResult.st@3eac160a3c2f (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:#TestResult
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	4	instanceVariableNames:'runCount passed failures errors'
3eac160a3c2f error -> exError tm parents: 100 diff changeset	5	classVariableNames:''
3eac160a3c2f error -> exError tm parents: 100 diff changeset	6	poolDictionaries:''
3eac160a3c2f error -> exError tm parents: 100 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
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	10
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	11	!TestResult class methodsFor:'exceptions'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	error
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^self exError
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	"Modified: / 21.6.2000 / 10:07:16 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	exError
74 0338bcb7bd2f fail on exception Claus Gittinger <cg@exept.de> parents: 70 diff changeset	20	"Change for Dialect"
0338bcb7bd2f fail on exception Claus Gittinger <cg@exept.de> parents: 70 diff changeset	21	Smalltalk dialectName = 'SmalltalkX' ifTrue:[
0338bcb7bd2f fail on exception Claus Gittinger <cg@exept.de> parents: 70 diff changeset	22	^ Exception
0338bcb7bd2f fail on exception Claus Gittinger <cg@exept.de> parents: 70 diff changeset	23	].
0338bcb7bd2f fail on exception Claus Gittinger <cg@exept.de> parents: 70 diff changeset	24	^Error
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	"Modified: / 21.6.2000 / 10:10:45 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	failure
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	^TestFailure
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	"Modified: / 21.6.2000 / 10:07:03 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	signalErrorWith: aString
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	36	self exError raiseErrorString: aString
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	"Modified: / 21.6.2000 / 10:11:07 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	signalFailureWith: aString
33 1a5d44e6c9c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 32 diff changeset	42	self failure raiseErrorString: aString
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	"Modified: / 21.6.2000 / 10:11:20 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	47	!TestResult class methodsFor:'init / release'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	new
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	50	^super new initialize
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52	"Modified: / 21.6.2000 / 10:11:50 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	55	!TestResult methodsFor:'accessing'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	correctCount
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	58	"depreciated - use #passedCount"
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	59	^self passedCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	60	"/ ^self runCount - self failureCount - self errorCount
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	defects
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	64	^self errors, self failures
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	65
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	66	"Modified: / 21.6.2000 / 10:07:56 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69	errorCount
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	70	^self errors size
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	71	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	errors
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	74	errors isNil ifTrue: [errors := OrderedCollection new].
3eac160a3c2f error -> exError tm parents: 100 diff changeset	75	^errors
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	76	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	77
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	78	failureCount
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	79	^self failures size
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	80
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	81	"Modified: / 21.6.2000 / 10:08:34 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	82	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	83
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	84	failures
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	85	failures isNil ifTrue: [failures := OrderedCollection new].
3eac160a3c2f error -> exError tm parents: 100 diff changeset	86	^failures
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	87	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	88
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	89	passed
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	90	passed isNil ifTrue: [passed := OrderedCollection new].
3eac160a3c2f error -> exError tm parents: 100 diff changeset	91	^passed
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	92	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	93
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	94	passedCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	95	^ self passed size
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	96	"/ ^self runCount - self failureCount - self errorCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	97
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	98	"Modified: / 21.6.2000 / 10:07:48 / Sames"
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	99	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	100
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	101	runCount
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	102	(self passedCount + self failureCount + self errorCount) ~~ runCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	103	ifTrue:[
70 2ff4508f476d * empty log message * Claus Gittinger <cg@exept.de> parents: 68 diff changeset	104	Transcript showCR:'oops - inconsistent runCount (errors in cleanup-ensures)'.
2ff4508f476d * empty log message * Claus Gittinger <cg@exept.de> parents: 68 diff changeset	105	"/ self halt:'oops - inconsistent runCount (errors in cleanup-ensures)'
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	106	].
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	107
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	108	"/ ^self passedCount + self failureCount + self errorCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	109	^runCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	110	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	111
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	112	tests
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	113	^(OrderedCollection new: self runCount)
3eac160a3c2f error -> exError tm parents: 100 diff changeset	114	addAll: self passed;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	115	addAll: self errors;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	116	addAll: self defects;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	117	yourself
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	118	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	120	!TestResult methodsFor:'init / release'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	121
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	122	initialize
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	123	runCount := 0
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	124	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	126	!TestResult methodsFor:'printing'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	128	printOn: aStream
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	129	aStream
3eac160a3c2f error -> exError tm parents: 100 diff changeset	130	nextPutAll: self runCount printString;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	131	nextPutAll: ' run, ';
3eac160a3c2f error -> exError tm parents: 100 diff changeset	132	nextPutAll: self passedCount printString;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	133	nextPutAll: ' passed, ';
3eac160a3c2f error -> exError tm parents: 100 diff changeset	134	nextPutAll: self failureCount printString;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	135	nextPutAll: ' failed, ';
3eac160a3c2f error -> exError tm parents: 100 diff changeset	136	nextPutAll: self errorCount printString;
3eac160a3c2f error -> exError tm parents: 100 diff changeset	137	nextPutAll:' error'.
3eac160a3c2f error -> exError tm parents: 100 diff changeset	138	self errorCount ~= 1
3eac160a3c2f error -> exError tm parents: 100 diff changeset	139	ifTrue: [aStream nextPut: $s].
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	142	!TestResult methodsFor:'running'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	143
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	144	runCase: aTestCase
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	145	\|testCasePassed\|
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	146
18 0bcd227dc1c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 14 diff changeset	147	runCount := runCount + 1.
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	148	[
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	149	[aTestCase runCase.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	150	testCasePassed := true.]
18 0bcd227dc1c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 14 diff changeset	151	on: self class failure
100 472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	152	do:[:ex \|
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	153	self failures add: aTestCase.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	154	testCasePassed := false.
100 472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	155	ex returnWith: false]
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	156	]
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	157	on: self class exError
100 472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	158	do:[:ex \|
472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	159	ex signal isQuerySignal ifTrue:[
472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	160	ex proceed.
472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	161	].
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	162	self errors add: aTestCase.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	163	testCasePassed := false.
100 472b7bea9cad dont catch queries Claus Gittinger <cg@exept.de> parents: 74 diff changeset	164	ex returnWith: false].
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	165
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	166	testCasePassed ifTrue: [self passed add: aTestCase]
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	167
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	168	"Modified: / 21.6.2000 / 10:10:06 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	169	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	170
68 9fd111438d60 category renames (lower case) Claus Gittinger <cg@exept.de> parents: 53 diff changeset	171	!TestResult methodsFor:'testing'!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	172
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	173	hasErrors
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	174
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	175	^self errors size > 0
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	176	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	177
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	178	hasFailures
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	179
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	180	^self failures size > 0
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	181	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	182
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	183	hasPassed
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	184	^self hasErrors not and: [self hasFailures not]
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	185	"/ ^self runCount = self correctCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	186	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	187
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	188	isError: aTestCase
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	189
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	190	^self errors includes: aTestCase
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	191	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	192
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	193	isFailure: aTestCase
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	194	^self failures includes: aTestCase
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	195	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	196
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	197	isPassed: aTestCase
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	198
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	199	^self passed includes: aTestCase
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	200	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	201
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	202	!TestResult class methodsFor:'documentation'!
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	203
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	204	version
101 3eac160a3c2f error -> exError tm parents: 100 diff changeset	205	^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.13 2003-08-25 11:43:57 tm Exp $'
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	206	! !

author	tm
	Mon, 25 Aug 2003 13:44:02 +0200
changeset 101	3eac160a3c2f
parent 100	472b7bea9cad
child 104	974f57e122c1
permissions	-rw-r--r--