hg/stx-goodies-sunit: SUnitTests2.st@7c5c1bc3be7b (annotated)

439 c61cd2a45ee0 initial checkin vrany parents: diff changeset	1	"{ Package: 'stx:goodies/sunit' }"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	2
664 e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 449 diff changeset	3	"{ NameSpace: Smalltalk }"
e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 449 diff changeset	4
439 c61cd2a45ee0 initial checkin vrany parents: diff changeset	5	TestCase subclass:#SUnitTests2
c61cd2a45ee0 initial checkin vrany parents: diff changeset	6	instanceVariableNames:''
c61cd2a45ee0 initial checkin vrany parents: diff changeset	7	classVariableNames:''
c61cd2a45ee0 initial checkin vrany parents: diff changeset	8	poolDictionaries:''
c61cd2a45ee0 initial checkin vrany parents: diff changeset	9	category:'SUnit-Smalltalk/X-Tests'
c61cd2a45ee0 initial checkin vrany parents: diff changeset	10	!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	11
c61cd2a45ee0 initial checkin vrany parents: diff changeset	12	TestCase subclass:#TestCaseWithErrorInTearDown
c61cd2a45ee0 initial checkin vrany parents: diff changeset	13	instanceVariableNames:''
c61cd2a45ee0 initial checkin vrany parents: diff changeset	14	classVariableNames:''
c61cd2a45ee0 initial checkin vrany parents: diff changeset	15	poolDictionaries:''
c61cd2a45ee0 initial checkin vrany parents: diff changeset	16	privateIn:SUnitTests2
c61cd2a45ee0 initial checkin vrany parents: diff changeset	17	!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	18
c61cd2a45ee0 initial checkin vrany parents: diff changeset	19	!SUnitTests2 class methodsFor:'documentation'!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	20
c61cd2a45ee0 initial checkin vrany parents: diff changeset	21	documentation
c61cd2a45ee0 initial checkin vrany parents: diff changeset	22	"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	23	More tests for SUnit. Uses St/X private classes.
c61cd2a45ee0 initial checkin vrany parents: diff changeset	24
c61cd2a45ee0 initial checkin vrany parents: diff changeset	25	[author:]
c61cd2a45ee0 initial checkin vrany parents: diff changeset	26	Jan Vrany <jan.vrany@fit.cvut.cz>
c61cd2a45ee0 initial checkin vrany parents: diff changeset	27
c61cd2a45ee0 initial checkin vrany parents: diff changeset	28	[instance variables:]
c61cd2a45ee0 initial checkin vrany parents: diff changeset	29
c61cd2a45ee0 initial checkin vrany parents: diff changeset	30	[class variables:]
c61cd2a45ee0 initial checkin vrany parents: diff changeset	31
c61cd2a45ee0 initial checkin vrany parents: diff changeset	32	[see also:]
c61cd2a45ee0 initial checkin vrany parents: diff changeset	33
c61cd2a45ee0 initial checkin vrany parents: diff changeset	34	"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	35	! !
c61cd2a45ee0 initial checkin vrany parents: diff changeset	36
c61cd2a45ee0 initial checkin vrany parents: diff changeset	37	!SUnitTests2 methodsFor:'tests'!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	38
c61cd2a45ee0 initial checkin vrany parents: diff changeset	39	testErrorInTearDown
c61cd2a45ee0 initial checkin vrany parents: diff changeset	40
c61cd2a45ee0 initial checkin vrany parents: diff changeset	41	\| result \|
c61cd2a45ee0 initial checkin vrany parents: diff changeset	42
c61cd2a45ee0 initial checkin vrany parents: diff changeset	43	result := TestCaseWithErrorInTearDown buildSuite run.
c61cd2a45ee0 initial checkin vrany parents: diff changeset	44	self assert: result errors size == 2.
c61cd2a45ee0 initial checkin vrany parents: diff changeset	45
c61cd2a45ee0 initial checkin vrany parents: diff changeset	46	"Created: / 16-01-2012 / 20:07:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	47	! !
c61cd2a45ee0 initial checkin vrany parents: diff changeset	48
c61cd2a45ee0 initial checkin vrany parents: diff changeset	49	!SUnitTests2::TestCaseWithErrorInTearDown class methodsFor:'testing'!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	50
c61cd2a45ee0 initial checkin vrany parents: diff changeset	51	isAbstract
c61cd2a45ee0 initial checkin vrany parents: diff changeset	52
c61cd2a45ee0 initial checkin vrany parents: diff changeset	53	"HACK: To prevent it being run by normal tools..."
c61cd2a45ee0 initial checkin vrany parents: diff changeset	54
449 398e6eaf8de5 Fix in isAbstract vrany parents: 439 diff changeset	55	^(thisContext sender selector == #buildSuite) not.
439 c61cd2a45ee0 initial checkin vrany parents: diff changeset	56
c61cd2a45ee0 initial checkin vrany parents: diff changeset	57	"Created: / 16-01-2012 / 20:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	58	! !
c61cd2a45ee0 initial checkin vrany parents: diff changeset	59
c61cd2a45ee0 initial checkin vrany parents: diff changeset	60	!SUnitTests2::TestCaseWithErrorInTearDown methodsFor:'running'!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	61
c61cd2a45ee0 initial checkin vrany parents: diff changeset	62	tearDown
c61cd2a45ee0 initial checkin vrany parents: diff changeset	63
c61cd2a45ee0 initial checkin vrany parents: diff changeset	64	10 perform: ' zork '
c61cd2a45ee0 initial checkin vrany parents: diff changeset	65
c61cd2a45ee0 initial checkin vrany parents: diff changeset	66	"Created: / 16-01-2012 / 19:55:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	67	! !
c61cd2a45ee0 initial checkin vrany parents: diff changeset	68
c61cd2a45ee0 initial checkin vrany parents: diff changeset	69	!SUnitTests2::TestCaseWithErrorInTearDown methodsFor:'tests'!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	70
c61cd2a45ee0 initial checkin vrany parents: diff changeset	71	testFail
c61cd2a45ee0 initial checkin vrany parents: diff changeset	72
c61cd2a45ee0 initial checkin vrany parents: diff changeset	73	self assert: false
c61cd2a45ee0 initial checkin vrany parents: diff changeset	74
c61cd2a45ee0 initial checkin vrany parents: diff changeset	75	"Created: / 16-01-2012 / 19:54:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	76	!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	77
c61cd2a45ee0 initial checkin vrany parents: diff changeset	78	testPass
c61cd2a45ee0 initial checkin vrany parents: diff changeset	79
c61cd2a45ee0 initial checkin vrany parents: diff changeset	80	self assert: true
c61cd2a45ee0 initial checkin vrany parents: diff changeset	81
c61cd2a45ee0 initial checkin vrany parents: diff changeset	82	"Created: / 16-01-2012 / 19:54:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c61cd2a45ee0 initial checkin vrany parents: diff changeset	83	! !
c61cd2a45ee0 initial checkin vrany parents: diff changeset	84
c61cd2a45ee0 initial checkin vrany parents: diff changeset	85	!SUnitTests2 class methodsFor:'documentation'!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	86
c61cd2a45ee0 initial checkin vrany parents: diff changeset	87	version
449 398e6eaf8de5 Fix in isAbstract vrany parents: 439 diff changeset	88	^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTests2.st,v 1.2 2012-08-02 20:56:07 vrany Exp $'
439 c61cd2a45ee0 initial checkin vrany parents: diff changeset	89	!
c61cd2a45ee0 initial checkin vrany parents: diff changeset	90
c61cd2a45ee0 initial checkin vrany parents: diff changeset	91	version_CVS
449 398e6eaf8de5 Fix in isAbstract vrany parents: 439 diff changeset	92	^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTests2.st,v 1.2 2012-08-02 20:56:07 vrany Exp $'
439 c61cd2a45ee0 initial checkin vrany parents: diff changeset	93	! !
664 e31b2e7b658d FIX: Do not treat skipped test as passed! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 449 diff changeset	94

author	HG Automerge
	Thu, 24 Nov 2016 21:56:23 +0000
branch	jv
changeset 673	7c5c1bc3be7b
parent 664	e31b2e7b658d
permissions	-rw-r--r--