The Inbox: KernelTests-ct.405.mcz

A new version of KernelTests was added to project The Inbox:
http://source.squeak.org/inbox/KernelTests-ct.405.mcz

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

Name: KernelTests-ct.405
Author: ct
Time: 9 May 2021, 3:54:39.03261 am
UUID: 0504450e-33b8-1148-bd08-8f013c07a926
Ancestors: KernelTests-nice.404

Documents a bug in the simulation of objects as methods (OaM) when the object implements #isCompiledMethod, e.g. via dynamic forwarding. This is actually the case for TestCoverage and for that reason, debugging of SUnit test coverage collection is broken at the moment.

=============== Diff against KernelTests-nice.404 ===============

Item was added:
+ ----- Method: ContextTest>>testObjectsAsMethod (in category 'tests') -----
+ testObjectsAsMethod
+
+ | result error |
+ SystemChangeNotifier uniqueInstance doSilently: [
+ self class addSelector: #foo withMethod: (TestObjectForMethod new xxxMethod: thisContext homeMethod)].
+
+ result := Context runSimulated: [[self foo] on: Error do: [:ex | error := ex]].
+ error ifNotNil: [self fail: error].
+
+ [self assert: self foo equals: result]
+ ensure: [self class removeSelector: #foo].!

Item was added:
+ ProtoObject subclass: #TestObjectForMethod
+ instanceVariableNames: 'method'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'KernelTests-Methods'!

Item was added:
+ ----- Method: TestObjectForMethod>>doesNotUnderstand: (in category 'dynamic forwarding') -----
+ doesNotUnderstand: aMessage
+
+ ^ aMessage sendTo: method!

Item was added:
+ ----- Method: TestObjectForMethod>>flushCache (in category 'compatibility') -----
+ flushCache
+ ^ self!

Item was added:
+ ----- Method: TestObjectForMethod>>methodClass: (in category 'compatibility') -----
+ methodClass: aMethodClass!

Item was added:
+ ----- Method: TestObjectForMethod>>run:with:in: (in category 'evaluating') -----
+ run: oldSelector with: arguments in: receiver
+ ^ {oldSelector. arguments. receiver}!

Item was added:
+ ----- Method: TestObjectForMethod>>selector: (in category 'compatibility') -----
+ selector: aSymbol!

Item was added:
+ ----- Method: TestObjectForMethod>>xxxMethod: (in category 'accessing') -----
+ xxxMethod: aCompiledMethod
+
+ method := aCompiledMethod!