Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.437.mcz
==================== Summary ====================
Name: KernelTests-ct.437 Author: ct Time: 7 November 2022, 8:51:49.281226 pm UUID: fc0ce7a3-e562-e741-a923-d825e2ff3b4e Ancestors: KernelTests-jar.436, KernelTests-ct.374
Merges KernelTests-ct.374: Tests #haltOnce and #haltOnceIf:. Refactors tests for #haltIf:. Complements Kernel-ct.1294. Revision: Minor refactoring.
=============== Diff against KernelTests-jar.436 ===============
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 shouldHalt: [self haltIf: [true]]. + self shouldntHalt: [self haltIf: [false]]. + + self shouldHalt: [self haltIf: #testHaltIf]. + self shouldntHalt: [self haltIf: #teadfasdfltIf]. + + self shouldHalt: [self a]. + self shouldntHalt: [self a1]. + + self shouldHalt: [self haltIf: [:o | o class = self class]]. + self shouldntHalt: [self haltIf: [:o | o class ~= self class]].! - self should: [self haltIf: true] raise: Halt. - self haltIf: false. - - self should: [self haltIf: [true]] raise: Halt. - self haltIf: [false]. - - self should: [self haltIf: #testHaltIf.] raise: Halt. - self haltIf: #teadfasdfltIf. - - self should: [self a] raise: Halt. - self a1. - - 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: [ + | tested | + 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. + tested := false. + self shouldHalt: [self haltOnceIf: [tested := true]]. + self assert: tested. + tested := false. + self shouldntHalt: [self haltOnceIf: [tested := true]]. + self deny: tested. + + self setHaltOnce. + tested := false. + self shouldntHalt: [self haltOnceIf: [(tested := true) not]]. + self assert: [self haltOnceEnabled]. + self assert: tested. + tested := false. + self shouldntHalt: [self haltOnceIf: [(tested := true) not]]. + self assert: [self haltOnceEnabled]. + self assert: tested].!
Item was changed: + ----- Method: ObjectTest>>testNotNil (in category 'tests - debugging') ----- - ----- Method: ObjectTest>>testNotNil (in category 'tests - testing') ----- testNotNil
self assert: Object new notNil!