Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.417.mcz
==================== Summary ====================
Name: KernelTests-ct.417 Author: ct Time: 29 December 2021, 6:16:09.754165 pm UUID: 3f9894ac-a774-b44d-85bf-0846ac062cb2 Ancestors: KernelTests-ct.416
Acceptance tests for #runUntilErrorOrReturnFrom:.
Given the complexity of the underlying method, I would like to gently request a short feedback from the author (Eliot) whether all assumptions in these tests are correct. :-)
=============== Diff against KernelTests-ct.416 ===============
Item was added: + ----- Method: ContextTest>>testRunUntilErrorOrReturnFromError (in category 'tests') ----- + testRunUntilErrorOrReturnFromError + + | context process result sender error | + process := [self error] newProcess. + process runUntil: [:ctxt | ctxt receiver == self]. + context := process suspendedContext. + sender := context sender. + + result := context runUntilErrorOrReturnFrom: context. + context := result first. + error := result second. + + self assert: (context hasSender: sender). + self assert: (Error handles: error).!
Item was added: + ----- Method: ContextTest>>testRunUntilErrorOrReturnFromNoError (in category 'tests') ----- + testRunUntilErrorOrReturnFromNoError + + | context process result sender error | + process := [6 * 7] newProcess. + process runUntil: [:ctxt | ctxt receiver == self]. + context := process suspendedContext. + sender := context sender. + + result := context runUntilErrorOrReturnFrom: context. + context := result first. + error := result second. + + self assert: sender equals: context. + self assert: nil equals: error. + self assert: 42 equals: context top.!
packages@lists.squeakfoundation.org