hg/stx-goodies-sunit: SUnitTest.st@e107aeb7b5b7 (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
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	!SUnitTest methodsFor:'Accessing'!
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	hasRun
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	20	^hasRun
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	21	!
0 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	hasSetup
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	24	^hasSetup
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	25	! !
0 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	!SUnitTest methodsFor:'Private'!
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	error
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	3 zork
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:22:18 / 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	fail
52 e107aeb7b5b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 41 diff changeset	36	"force a failure"
e107aeb7b5b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 41 diff changeset	37	self assert: false
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	38	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	40	noop
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	41	!
0 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	setRun
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	44	hasRun := true
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	45	! !
0 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	!SUnitTest methodsFor:'Running'!
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	setUp
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	50	hasSetup := true
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	51	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	!SUnitTest methodsFor:'Testing'!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	testAssert
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56	self assert: true.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	57	self deny: false
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	testDebugUI
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	"This should break"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62	3 zork
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	"Modified: / 21.6.2000 / 10:22:50 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67	testDefects
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68	\| result suite error failure \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69	suite := TestSuite new.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	70	suite addTest: (error := self class selector: #error).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71	suite addTest: (failure := self class selector: #fail).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72	result := suite run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	self assert: result defects asArray = (Array with: error with: 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:04 / 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	testDialectLocalizedException
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	79	self should: [TestResult signalFailureWith: 'Foo'] raise: TestResult failure.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	80	self should: [TestResult signalErrorWith: 'Foo'] raise: TestResult error.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	81	self shouldnt: [TestResult signalErrorWith: 'Foo'] raise: TestResult failure.
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	"Modified: / 21.6.2000 / 10:23:20 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	84	!
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	testError
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	87	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	88	case := self class selector: #error.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	89	result := case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	90	self assert: result correctCount = 0.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	91	self assert: result failureCount = 0.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	92	self assert: result runCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	93	self assert: result errorCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	94	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	95
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	96	testException
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	97	self should: [self error: 'foo'] raise: TestResult error
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	"Modified: / 21.6.2000 / 10:23:39 / Sames"
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	100	!
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	101
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	102	testFail
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	104	case := self class selector: #fail.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	105	result := case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	106	self assert: result correctCount = 0.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107	self assert: result failureCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	108	self assert: result runCount = 1
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	111	testFailureDebugUI
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	112	"This should fail !!"
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	113	self fail
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	testIsNotRerunOnDebug
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	117	\| case \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118	case := self class selector: #testRanOnlyOnce.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119	case run.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	120	case debug
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	testRan
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124	\| case \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125	case := self class selector: #setRun.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	self assert: case hasSetup.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	128	self assert: case hasRun
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	129	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	131	testRanOnlyOnce
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132	self assert: hasRanOnce ~= true.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	133	hasRanOnce := true.
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	testResult
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	137	\| case result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	case := self class selector: #noop.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139	result := case run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140	self assert: result runCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	141	self assert: result correctCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	142	!
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	testRunning
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	145	(SUnitDelay forSeconds: 2) wait
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	"Modified: / 21.6.2000 / 10:24:41 / Sames"
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
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	150	testShould
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	151	self should: [true].
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	152	self shouldnt: [false]
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	153	!
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	154
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	155	testSuite
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	156	\| suite result \|
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	157	suite := TestSuite new.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	158	suite addTest: (self class selector: #noop).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	159	suite addTest: (self class selector: #fail).
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	160	result := suite run.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	161	self assert: result runCount = 2.
9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	self assert: result correctCount = 1.
6 78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	163	self assert: result failureCount = 1
78bb1397e43d added rerun-defect tests; fixed button enable bug Claus Gittinger <cg@exept.de> parents: 0 diff changeset	164	! !
0 9365d5753f11 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	165
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	166	!SUnitTest class methodsFor:'documentation'!
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	167
a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	168	version
52 e107aeb7b5b7 * empty log message * Claus Gittinger <cg@exept.de> parents: 41 diff changeset	169	^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTest.st,v 1.6 2001-12-13 22:50:27 cg Exp $'
14 a4a5478621e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 9 diff changeset	170	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 13 Dec 2001 23:50:27 +0100
changeset 52	e107aeb7b5b7
parent 41	9828e423824b
child 58	6fc01534c854
permissions	-rw-r--r--