Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.347.mcz
==================== Summary ====================
Name: KernelTests-eem.347 Author: eem Time: 3 August 2018, 6:09:13.151209 pm UUID: 3f1b38be-71e3-43ff-8a57-d9921d2f2fb1 Ancestors: KernelTests-eem.346
Additional test cases for process termination from Andreas.
=============== Diff against KernelTests-eem.346 ===============
Item was added: + ----- Method: MutexTest>>testTerminationOfLowPriorityProcessDoesNotShutOutHighPriorityProcess (in category 'testing') ----- + testTerminationOfLowPriorityProcessDoesNotShutOutHighPriorityProcess + | m p s | + m := Mutex new. + p := [m critical: [Semaphore new wait]] forkAt: Processor activePriority - 10. + (Delay forMilliseconds: 100) wait. "Allow p to enter critical section, owning m" + [m critical: [s := #in]] forkAt: Processor activePriority + 10. + "r := { p suspendedContext pc. p suspendedContext copyStack }." + p terminate. + self deny: m isOwned. + self assert: s == #in. + "(m isOwned not and: [s == #in]) ifFalse: + [Debugger openContext: r last label: 'p' contents: nil]"!
Item was added: + ----- Method: MutexTest>>testTerminationOfOneOfTwoLowPriorityProcesses (in category 'testing') ----- + testTerminationOfOneOfTwoLowPriorityProcesses + | mutex p1 p2 entered1 entered2 | + mutex := Mutex new. + entered1 := entered2 := false. + p1 := [mutex critical:[entered1 := true]] + forkAt: Processor activePriority - 1. + p2 := [mutex critical:[entered2 := true]] + forkAt: Processor activePriority - 2. + mutex critical:[(Delay forMilliseconds: 100) wait]. + p1 terminate. + (Delay forMilliseconds: 100) wait. + self deny: entered1. + self assert: entered2!