Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.374.mcz
==================== Summary ====================
Name: KernelTests-ct.374 Author: ct Time: 9 January 2020, 3:45:07.818555 pm UUID: a7466380-609b-8146-b983-af77736d55f0 Ancestors: KernelTests-nice.373
Tests #haltOnce and #haltOnceIf:. Refactors tests for #haltIf:. Complements Kernel-ct.1294.
=============== Diff against KernelTests-nice.373 ===============
Item was added: + ----- Method: ObjectTest>>resetHaltOnceAfter: (in category 'running') ----- + resetHaltOnceAfter: aBlock + + | outerState | + outerState := self haltOnceEnabled. + ^ aBlock ensure: [ + outerState + ifTrue: [self setHaltOnce] + ifFalse: [self clearHaltOnce] ]!
Item was added: + ----- Method: ObjectTest>>shouldHalt: (in category 'asserting') ----- + shouldHalt: aBlock + + ^ self + should: aBlock + raise: Halt!
Item was added: + ----- Method: ObjectTest>>shouldntHalt: (in category 'asserting') ----- + shouldntHalt: aBlock + + ^ self + shouldnt: aBlock + raise: Halt!
Item was changed: + ----- Method: ObjectTest>>testHaltIf (in category 'tests - debugging') ----- - ----- Method: ObjectTest>>testHaltIf (in category 'tests - testing') ----- testHaltIf
+ self shouldHalt: [self haltIf: true]. + self shouldntHalt: [self haltIf: false]. - self should: [self haltIf: true] raise: Halt. - self haltIf: false.
+ self shouldHalt: [self haltIf: [true]]. + self shouldntHalt: [self haltIf: [false]]. - self should: [self haltIf: [true]] raise: Halt. - self haltIf: [false].
+ self shouldHalt: [self haltIf: #testHaltIf]. + self shouldntHalt: [self haltIf: #teadfasdfltIf]. - self should: [self haltIf: #testHaltIf.] raise: Halt. - self haltIf: #teadfasdfltIf.
+ self shouldHalt: [self a]. + self shouldntHalt: [self a1]. - self should: [self a] raise: Halt. - self a1.
+ self shouldHalt: [self haltIf: [:o | o class = self class]]. + self shouldntHalt: [self haltIf: [:o | o class ~= self class]]. - self should: [self haltIf: [:o | o class = self class]] raise: Halt. - self haltIf: [:o | o class ~= self class]. !
Item was added: + ----- Method: ObjectTest>>testHaltOnce (in category 'tests - debugging') ----- + testHaltOnce + + self resetHaltOnceAfter: [ + self setHaltOnce. + self assert: [self haltOnceEnabled]. + self shouldHalt: [self haltOnce]. + self deny: [self haltOnceEnabled]. + self shouldntHalt: [self haltOnce]. + + self setHaltOnce. + self assert: [self haltOnceEnabled]. + self clearHaltOnce. + self deny: [self haltOnceEnabled]. + self shouldntHalt: [self haltOnce]].!
Item was added: + ----- Method: ObjectTest>>testHaltOnceIf (in category 'tests - debugging') ----- + testHaltOnceIf + + self resetHaltOnceAfter: [ + | requested | + self setHaltOnce. + self shouldHalt: [self haltOnceIf: true]. + self shouldntHalt: [self haltOnceIf: true]. + + self setHaltOnce. + self shouldntHalt: [self haltOnceIf: false]. + self assert: [self haltOnceEnabled]. + + self setHaltOnce. + requested := false. + self shouldHalt: [self haltOnceIf: [requested := true]]. + self assert: requested. + requested := false. + self shouldntHalt: [self haltOnceIf: [requested := true]]. + self deny: requested. + + self setHaltOnce. + requested := false. + self shouldntHalt: [self haltOnceIf: [(requested := true) not]]. + self assert: [self haltOnceEnabled]. + self assert: requested. + requested := false. + self shouldntHalt: [self haltOnceIf: [(requested := true) not]]. + self assert: [self haltOnceEnabled]. + self assert: requested].!
Item was changed: + ----- Method: ObjectTest>>testNotNil (in category 'tests - debugging') ----- - ----- Method: ObjectTest>>testNotNil (in category 'tests - testing') ----- testNotNil
self assert: Object new notNil!
squeak-dev@lists.squeakfoundation.org