Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.457.mcz
==================== Summary ====================
Name: KernelTests-ct.457 Author: ct Time: 3 March 2024, 7:54:10.139958 pm UUID: 47913553-ecfa-2943-a05e-bc27cfebac31 Ancestors: KernelTests-ct.456
Complements Kernel-ct.1559 (merges SimulationSideEffectWarning.5.cs, step 2/2).
=============== Diff against KernelTests-ct.456 ===============
Item was added: + ----- Method: ContextTest>>invokeSimulationGuard (in category 'private') ----- + invokeSimulationGuard + <simulationGuard> + "Nothing to see here, please move along!!" + ^ 42!
Item was added: + ----- Method: ContextTest>>testSimulationSideEffectWarningControl (in category 'tests - simulation') ----- + testSimulationSideEffectWarningControl + + self + should: [Context runSimulated: [[] fork]] + raise: SimulationSideEffectWarning + withExceptionDo: [:warning | + self assert: warning notNil. + self assert: warning isControlPrimitive. + self assert: warning suppressed].!
Item was added: + ----- Method: ContextTest>>testSimulationSideEffectWarningGuard (in category 'tests - simulation') ----- + testSimulationSideEffectWarningGuard + + self + should: + [Context runSimulated: + [self invokeSimulationGuard]] + raise: SimulationSideEffectWarning + withExceptionDo: [:warning | + self assert: warning notNil. + self assert: warning isSimulationGuard. + self deny: warning suppressed].!
Item was added: + ----- Method: ContextTest>>testSimulationSideEffectWarningGuardResume (in category 'tests - simulation') ----- + testSimulationSideEffectWarningGuardResume + + self + assert: self invokeSimulationGuard + equals: + ([Context runSimulated: + [self invokeSimulationGuard]] + on: SimulationSideEffectWarning + do: [:ex | ex resume]).!
Item was added: + ----- Method: ContextTest>>testSimulationSideEffectWarningGuardSkip (in category 'tests - simulation') ----- + testSimulationSideEffectWarningGuardSkip + + self + assert: self + equals: + ([Context runSimulated: + [self invokeSimulationGuard]] + on: SimulationSideEffectWarning + do: [:ex | ex skipPrimitive]).!
Item was added: + ----- Method: ContextTest>>testSimulationSideEffectWarningSkip (in category 'tests - simulation') ----- + testSimulationSideEffectWarningSkip + + self + should: + [[(SimulationSideEffectWarning forPrimitive: 42) + unsuppress; + signalIfSkipped: [self fail]. + true] + on: SimulationSideEffectWarning do: [:ex | ex resume]]. + + [:exit | + [(SimulationSideEffectWarning forPrimitive: 42) + unsuppress; + signalIfSkipped: exit. + self fail] + on: SimulationSideEffectWarning do: [:ex | ex skipPrimitive]] + valueWithExit.!
Item was added: + ----- Method: ContextTest>>testSimulationSideEffectWarningSuppress (in category 'tests - simulation') ----- + testSimulationSideEffectWarningSuppress + + self + shouldnt: [(SimulationSideEffectWarning forPrimitive: 42) + suppress; + defaultAction] raise: UnhandledWarning; + should: [(SimulationSideEffectWarning forPrimitive: 42) + unsuppress; + defaultAction] raise: UnhandledWarning.!
packages@lists.squeakfoundation.org