hg/stx-goodies-sunit: SUnitTest.st@6fc01534c854 (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	TestCase subclass:#SUnitTest
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'hasRun hasSetup hasRanOnce'
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-Tests'
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
9 e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	10	!SUnitTest class methodsFor:'documentation'!
e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	11
e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	12	description
e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	13	^ 'Tests SUnit itself
e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	14	Two tests should fail.'
e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	15	! !
e4ecc750aa38 * empty log message * Claus Gittinger <cg@exept.de> parents: 6 diff changeset	16
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	17	!SUnitTest class methodsFor:'Testing'!
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	18
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	19	shouldInheritSelectors
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	20	"answer true to inherit selectors from superclasses"
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	21
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	22	^false
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	23	! !
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	24
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	!SUnitTest methodsFor:'Accessing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	hasRun
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	28	^hasRun
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	29	!
0 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	hasSetup
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	32	^hasSetup
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	33	! !
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	!SUnitTest methodsFor:'Private'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	37	assertForTestResult: aResult runCount: aRunCount passed: aPassedCount failed: aFailureCount errors: anErrorCount
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	38
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	39	self
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	40	assert: aResult runCount = aRunCount;
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	41	assert: aResult passedCount = aPassedCount;
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	42	assert: aResult failureCount = aFailureCount;
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	43	assert: aResult errorCount = anErrorCount
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	44	!
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	45
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	error
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	3 zork
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:22:18 / 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	fail
52 e107aeb7b5b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 41 diff changeset	53	"force a failure"
e107aeb7b5b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 41 diff changeset	54	self assert: false
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	55	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	57	noop
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	58	!
0 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	setRun
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	61	hasRun := true
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	62	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64	!SUnitTest methodsFor:'Running'!
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	setUp
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	67	hasSetup := true
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	!SUnitTest methodsFor:'Testing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72	testAssert
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	self assert: true.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	74	self deny: false
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	75	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	77	testDebugUI
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	78	"This should break"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	79	3 zork
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:22:50 / 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	testDefects
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	85	\| result suite error failure \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	86	suite := TestSuite new.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	87	suite addTest: (error := self class selector: #error).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	88	suite addTest: (failure := self class selector: #fail).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	89	result := suite run.
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	90	self assert: result defects asArray = (Array with: error with: failure).
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	91	self
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	92	assertForTestResult: result
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	93	runCount: 2
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	94	passed: 0
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	95	failed: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	96	errors: 1
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	97	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	98
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	99	testDialectLocalizedException
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	100	self should: [TestResult signalFailureWith: 'Foo'] raise: TestResult failure.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	101	self should: [TestResult signalErrorWith: 'Foo'] raise: TestResult error.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	102	self shouldnt: [TestResult signalErrorWith: 'Foo'] raise: TestResult failure.
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	"Modified: / 21.6.2000 / 10:23:20 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	105	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	106
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107	testError
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	108	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	109	case := self class selector: #error.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	110	result := case run.
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	111	self
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	112	assertForTestResult: result
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	113	runCount: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	114	passed: 0
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	115	failed: 0
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	116	errors: 1
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	117	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119	testException
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	120	self should: [self error: 'foo'] raise: TestResult error
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	"Modified: / 21.6.2000 / 10:23:39 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125	testFail
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	case := self class selector: #fail.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	128	result := case run.
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	129	self
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	130	assertForTestResult: result
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	131	runCount: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	132	passed: 0
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	133	failed: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	134	errors: 0
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	135	!
0 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	testFailureDebugUI
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	"This should fail !!"
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	139	self fail
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	140	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	142	testIsNotRerunOnDebug
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	143	\| case \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	144	case := self class selector: #testRanOnlyOnce.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	145	case run.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	146	case debug
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	147	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	148
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	149	testRan
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	150	\| case \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	151	case := self class selector: #setRun.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	152	case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	153	self assert: case hasSetup.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	154	self assert: case hasRun
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	155	!
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	testRanOnlyOnce
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	158	self assert: hasRanOnce ~= true.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	159	hasRanOnce := true.
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	160	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	161
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	testResult
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	163	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	164	case := self class selector: #noop.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	165	result := case run.
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	166	self
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	167	assertForTestResult: result
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	168	runCount: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	169	passed: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	170	failed: 0
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	171	errors: 0
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	172	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	173
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	174	testRunning
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	175	(SUnitDelay forSeconds: 2) wait
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	176
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	177	"Modified: / 21.6.2000 / 10:24:41 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	178	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	179
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	180	testShould
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	181	self should: [true].
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	182	self shouldnt: [false]
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	183	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	184
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	185	testSuite
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	186	\| suite result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	187	suite := TestSuite new.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	188	suite addTest: (self class selector: #noop).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	189	suite addTest: (self class selector: #fail).
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	190	suite addTest: (self class selector: #error).
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	191	result := suite run.
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	192	self
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	193	assertForTestResult: result
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	194	runCount: 3
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	195	passed: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	196	failed: 1
6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	197	errors: 1
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	198	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	199
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	200	!SUnitTest class methodsFor:'documentation'!
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	201
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	202	version
58 6fc01534c854 rel3.0 Claus Gittinger <cg@exept.de> parents: 52 diff changeset	203	^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTest.st,v 1.7 2001-12-13 23:40:21 cg Exp $'
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	204	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 14 Dec 2001 00:40:21 +0100
changeset 58	6fc01534c854
parent 52	e107aeb7b5b7
child 68	9fd111438d60
permissions	-rw-r--r--