test[misc] definitions

Methods to automate testing and iteration

(Smalltalk includesKey: #U8Configuration) ifTrue: [
    U8Configuration default
].
(Object >> #testCount) notNil ifTrue: [ self cancelFileIn ]!

! Object methodsFor: #testing !
testCount
	" Return the test count cookie. "

	^self basicAt: '$$testCount' ifAbsent: [0]! !

! Object methodsFor: #testing !
testCount: aNumber
	" Set the test count cookie. "

	^self basicAt: '$$testCount' put: aNumber! !

! Object methodsFor: #testing !
newTestCount
	" Increment the test count cookie. "

	^self testCount: self testCount + 1! !