hg/stx-goodies-sunit: TestResult.st@51abd9fe4db2 (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
47 7ea89e89bad3 * empty log message * Claus Gittinger <cg@exept.de> parents: 33 diff changeset	4	instanceVariableNames:'runCount passed failures errors'
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
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	10
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	!TestResult class methodsFor:'Exceptions'!
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	"Change for Dialect"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	^Error
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	"Modified: / 21.6.2000 / 10:10:45 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	failure
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	^TestFailure
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	"Modified: / 21.6.2000 / 10:07:03 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	!
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	signalErrorWith: aString
33 1a5d44e6c9c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 32 diff changeset	33	self error raiseErrorString: aString
0 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	"Modified: / 21.6.2000 / 10:11:07 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	!
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	signalFailureWith: aString
33 1a5d44e6c9c5 * empty log message * Claus Gittinger <cg@exept.de> parents: 32 diff changeset	39	self failure raiseErrorString: aString
0 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	"Modified: / 21.6.2000 / 10:11:20 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	! !
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	!TestResult class methodsFor:'Init / Release'!
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	new
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	^super new initialize
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	"Modified: / 21.6.2000 / 10:11:50 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50	! !
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	!TestResult methodsFor:'Accessing'!
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	correctCount
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	55	"depreciated - use #passedCount"
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	56	^self passedCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	57	"/ ^self runCount - self failureCount - self errorCount
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	59
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	defects
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	^self errors, self failures
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	"Modified: / 21.6.2000 / 10:07:56 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64	!
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	errorCount
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	67	^self errors size
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	68	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	70	errors
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71	errors isNil ifTrue: [errors := OrderedCollection new].
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	72	^errors
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	73	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	74
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75	failureCount
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76	^self failures size
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	"Modified: / 21.6.2000 / 10:08:34 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	79	!
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	failures
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	82	failures isNil ifTrue: [failures := OrderedCollection new].
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	83	^failures
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	84	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	85
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	86	passed
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	87	passed isNil ifTrue: [passed := OrderedCollection new].
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	88	^passed
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	89	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	90
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	91	passedCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	92	^ self passed size
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	93	"/ ^self runCount - self failureCount - self errorCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	94
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	95	"Modified: / 21.6.2000 / 10:07:48 / Sames"
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	96	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	97
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	98	runCount
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	99	(self passedCount + self failureCount + self errorCount) ~~ runCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	100	ifTrue:[
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	101	self halt
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	102	].
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	103
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	104	"/ ^self passedCount + self failureCount + self errorCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	105	^runCount
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	tests
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	109	^(OrderedCollection new: self runCount)
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	110	addAll: self passed;
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	111	addAll: self errors;
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	112	addAll: self defects;
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	113	yourself
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	114	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	115
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	116	!TestResult methodsFor:'Init / Release'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	117
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118	initialize
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	119	runCount := 0
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	120	! !
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	!TestResult methodsFor:'Printing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124	printOn: aStream
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125	aStream
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	nextPutAll: self runCount printString;
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	nextPutAll: ' run, ';
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	128	nextPutAll: self passedCount printString;
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	129	nextPutAll: ' passed, ';
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130	nextPutAll: self failureCount printString;
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	131	nextPutAll: ' failed, ';
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132	nextPutAll: self errorCount printString;
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	133	nextPutAll:' error'.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	134	self errorCount ~= 1
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	135	ifTrue: [aStream nextPut: $s].
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	136	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	137
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	!TestResult methodsFor:'Running'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140	runCase: aTestCase
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	141	\|testCasePassed\|
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	142
18 0bcd227dc1c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 14 diff changeset	143	runCount := runCount + 1.
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	144	[
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	145	[aTestCase runCase.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	146	testCasePassed := true.]
18 0bcd227dc1c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 14 diff changeset	147	on: self class failure
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	148	do:[:signal \|
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	149	self failures add: aTestCase.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	150	testCasePassed := false.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	151	signal returnWith: false]
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	152	]
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	153	on: self class error
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	154	do:[:signal \|
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	155	self errors add: aTestCase.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	156	testCasePassed := false.
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	157	signal returnWith: false].
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	158
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	159	testCasePassed ifTrue: [self passed add: aTestCase]
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	160
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	161	"Modified: / 21.6.2000 / 10:10:06 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	! !
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	163
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	164	!TestResult methodsFor:'Testing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	165
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	166	hasErrors
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	167
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	168	^self errors size > 0
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	169	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	170
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	171	hasFailures
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	172
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	173	^self failures size > 0
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	174	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	175
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	176	hasPassed
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	177	^self hasErrors not and: [self hasFailures not]
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	178	"/ ^self runCount = self correctCount
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	179	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	180
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	181	isError: aTestCase
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	182
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	183	^self errors includes: aTestCase
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	184	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	185
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	186	isFailure: aTestCase
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	187	^self failures includes: aTestCase
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	188	!
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	189
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	190	isPassed: aTestCase
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	191
51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	192	^self passed includes: aTestCase
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	193	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	194
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	195	!TestResult class methodsFor:'documentation'!
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	196
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	197	version
53 51abd9fe4db2 switch to rel3.0 Claus Gittinger <cg@exept.de> parents: 47 diff changeset	198	^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.8 2001-12-13 23:08:20 cg Exp $'
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	199	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 14 Dec 2001 00:08:20 +0100
changeset 53	51abd9fe4db2
parent 47	7ea89e89bad3
child 68	9fd111438d60
permissions	-rw-r--r--