Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.488.mcz

==================== Summary ====================

Name: Tests-mt.488
Author: mt
Time: 31 May 2022, 3:27:37.152029 pm
UUID: 79004a69-f3a7-b342-8257-59f21a42d5dd
Ancestors: Tests-mt.487

Complements KernelTests-mt.424

=============== Diff against Tests-mt.487 ===============

Item was removed:
- TestCase subclass: #ProcessTerminateBug
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Exceptions'!

Item was removed:
- ----- Method: ProcessTerminateBug>>testSchedulerTermination (in category 'tests') -----
- testSchedulerTermination
-    | process sema gotHere sema2 |
-    gotHere := false.
-    sema := Semaphore new.
-    sema2 := Semaphore new.
-    process := [
-        sema signal.
-        sema2 wait.
-        "will be suspended here"
-        gotHere := true. "e.g., we must *never* get here"
-    ] forkAt: Processor activeProcess priority.
-    sema wait. "until process gets scheduled"
-    process terminate.
-    sema2 signal.
-    Processor yield. "will give process a chance to continue and
- horribly screw up"
-    self assert: gotHere not.
- !

Item was removed:
- ----- Method: ProcessTerminateBug>>testTerminationDuringUnwind (in category 'tests') -----
- testTerminationDuringUnwind
- 	"An illustration of the issue of process termination during unwind.
- 	This uses a well-behaved unwind block that we should allow to complete
- 	if at all possible."
- 	| unwindStarted unwindFinished p |
- 	unwindStarted := unwindFinished := false.
- 	p := [[] ensure:[
- 			unwindStarted := true.
- 			Processor yield.
- 			unwindFinished := true.
- 		]] fork.
- 	self deny: unwindStarted.
- 	Processor yield.
- 	self assert: unwindStarted.
- 	self deny: unwindFinished.
- 	p terminate.
- 	self assert: unwindFinished.!

Item was removed:
- ----- Method: ProcessTerminateBug>>testUnwindFromActiveProcess (in category 'tests') -----
- testUnwindFromActiveProcess
- 	| sema process |
- 	sema := Semaphore forMutualExclusion.
- 	self assert:(sema isSignaled).
- 	process := [
- 		sema critical:[
- 			self deny: sema isSignaled.
- 			Processor activeProcess terminate.
- 		]
- 	] forkAt: Processor userInterruptPriority.
- 	self assert: sema isSignaled.!

Item was removed:
- ----- Method: ProcessTerminateBug>>testUnwindFromForeignProcess (in category 'tests') -----
- testUnwindFromForeignProcess
- 	| sema process |
- 	sema := Semaphore forMutualExclusion.
- 	self assert: sema isSignaled.
- 	process := [
- 		sema critical:[
- 			self deny: sema isSignaled.
- 			sema wait. "deadlock"
- 		]
- 	] forkAt: Processor userInterruptPriority.
- 	self deny: sema isSignaled.
- 	"This is for illustration only - the BlockCannotReturn cannot 
- 	be handled here (it's truncated already)"
- 	self shouldnt: [process terminate] raise: BlockCannotReturn.
- 	self assert: sema isSignaled.
- 	!