The Trunk: KernelTests-mt.484.mcz

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

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

Name: KernelTests-mt.484
Author: mt
Time: 4 August 2026, 10:26:07.814447 am
UUID: 4e6c1066-a306-0748-ae16-086f5566f62e
Ancestors: KernelTests-mt.483

Complement System-mt.1529

=============== Diff against KernelTests-mt.483 ===============

Item was changed:
  ----- Method: MethodPropertiesTest>>testAllMethodsHaveMethodClass (in category 'tests') -----
  testAllMethodsHaveMethodClass
+ 	
+ 	| methodsWithoutMethodClass prototype |
  	Smalltalk garbageCollect.
+ 	methodsWithoutMethodClass := (CompiledMethod allInstances
+ 		reject: [:cm | | lastLiteral |
+ 			lastLiteral := cm literalAt: cm numLiterals.
+ 			lastLiteral isVariableBinding
+ 			and: [(lastLiteral key
+ 					ifNil: [false]
+ 					ifNotNil: [:key| key beginsWith: 'ClassForTestToBeDeleted']) "noise from deleted classes generated by ClassFactoryForTestCase clients"
+ 				or: [lastLiteral value isBehavior
+ 					or: [lastLiteral value isTrait]]]]).
+ 	
+ 	prototype := CompiledMethod toReturnSelf.
+ 	methodsWithoutMethodClass := methodsWithoutMethodClass
+ 		reject: [:cm | cm = prototype].
+ 	
+ 	self
+ 		assert: methodsWithoutMethodClass isEmpty
+ 		description: 'CompiledMethods must have methodClass literal'.!
- 	self assert: (CompiledMethod allInstances
- 			reject: [:cm | | lastLiteral |
- 				lastLiteral := cm literalAt: cm numLiterals.
- 				lastLiteral isVariableBinding
- 				and: [(lastLiteral key
- 						ifNil: [false]
- 						ifNotNil: [:key| key beginsWith: 'ClassForTestToBeDeleted']) "noise from deleted classes generated by ClassFactoryForTestCase clients"
- 					or: [lastLiteral value isBehavior
- 						or: [lastLiteral value isTrait]]]]) isEmpty
- 			description: 'CompiledMethods must have methodClass literal'!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]