hg/stx-goodies-sunit: SUnitTest.st@78bb1397e43d (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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10	!SUnitTest methodsFor:'Accessing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12	hasRun
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	13	^hasRun
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	14	!
0 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	hasSetup
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	17	^hasSetup
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	18	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	!SUnitTest methodsFor:'Private'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	error
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	3 zork
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	"Modified: / 21.6.2000 / 10:22:18 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	fail
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	29	self assert: false
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	30	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	32	noop
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	setRun
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	36	hasRun := true
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	37	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	!SUnitTest methodsFor:'Running'!
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	setUp
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	42	hasSetup := true
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	43	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	!SUnitTest methodsFor:'Testing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	testAssert
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	self assert: true.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	49	self deny: false
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	50	!
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	testDebugUI
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	"This should break"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54	3 zork
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56	"Modified: / 21.6.2000 / 10:22:50 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	!
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	testDefects
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	\| result suite error failure \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	suite := TestSuite new.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62	suite addTest: (error := self class selector: #error).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	suite addTest: (failure := self class selector: #fail).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64	result := suite run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	65	self assert: result defects asArray = (Array with: error with: failure)
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	66
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67	"Modified: / 21.6.2000 / 10:23:04 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	70	testDialectLocalizedException
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71	self should: [TestResult signalFailureWith: 'Foo'] raise: TestResult failure.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72	self should: [TestResult signalErrorWith: 'Foo'] raise: TestResult error.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	self shouldnt: [TestResult signalErrorWith: 'Foo'] raise: TestResult failure.
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	"Modified: / 21.6.2000 / 10:23:20 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	78	testError
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	79	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	80	case := self class selector: #error.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	81	result := case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	82	self assert: result correctCount = 0.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	83	self assert: result failureCount = 0.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	84	self assert: result runCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	85	self assert: result errorCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	86	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	87
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	88	testException
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	89	self should: [self error: 'foo'] raise: TestResult error
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	"Modified: / 21.6.2000 / 10:23:39 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	92	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	93
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	94	testFail
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	95	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	96	case := self class selector: #fail.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	97	result := case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	98	self assert: result correctCount = 0.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	99	self assert: result failureCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	100	self assert: result runCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	101	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	102
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103	testFailureDebugUI
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	104	"This should fail !!"
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	105	self fail
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	106	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	108	testIsNotRerunOnDebug
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	109	\| case \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	110	case := self class selector: #testRanOnlyOnce.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	111	case run.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	112	case debug
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	113	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	114
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	115	testRan
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	116	\| case \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	117	case := self class selector: #setRun.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118	case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119	self assert: case hasSetup.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	120	self assert: case hasRun
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	121	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	122
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123	testRanOnlyOnce
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124	self assert: hasRanOnce ~= true.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	125	hasRanOnce := true.
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	126	!
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	testResult
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	129	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130	case := self class selector: #noop.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	131	result := case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132	self assert: result runCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	133	self assert: result correctCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	134	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	135
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	136	testRunning
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	137	(SUnitDelay forSeconds: 2) wait
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139	"Modified: / 21.6.2000 / 10:24:41 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	142	testShould
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	143	self should: [true].
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	144	self shouldnt: [false]
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	145	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	146
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	147	testSuite
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	148	\| suite result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	149	suite := TestSuite new.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	150	suite addTest: (self class selector: #noop).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	151	suite addTest: (self class selector: #fail).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	152	result := suite run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	153	self assert: result runCount = 2.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	154	self assert: result correctCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	155	self assert: result failureCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	156	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	157

author	Claus Gittinger <cg@exept.de>
	Wed, 06 Dec 2000 16:25:04 +0100
changeset 6	78bb1397e43d
parent 0	9365d5753f11
child 9	e4ecc750aa38
permissions	-rw-r--r--