The Trunk: MethodMassage-dtl.74.mcz

[email protected] Tue, 9 Jun 2026 00:45:09 0000
Newsgroups gmane.comp.lang.smalltalk.squeak.general
Message-ID <[email protected]>
David T. Lewis uploaded a new version of MethodMassage to project The Trunk:
http://source.squeak.org/trunk/MethodMassage-dtl.74.mcz

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

Name: MethodMassage-dtl.74
Author: dtl
Time: 25 May 2026, 11:12:51.264248 am
UUID: bdf308fb-abcb-4c1a-8a68-5c017ebfce70
Ancestors: MethodMassage-dtl.73

Remove a test covering functionality that is not expected to be impleented. Reference 
https://lists.squeakfoundation.org/archives/list/[email protected]/thread/SS3G7Y5JBUGBHXGMDQZQ6BSAVVNRTZSB/

=============== Diff against MethodMassage-dtl.73 ===============

Item was removed:
- ----- Method: BytecodeCoverageTests>>coverTestBasicBlockLabelsForMethod (in category 'tests support') -----
- coverTestBasicBlockLabelsForMethod
- 
- 	self thisPackage actualMethodsDo:
- 		[:m| self testBasicBlockLabelsFor: m]!

Item was removed:
- ----- Method: BytecodeCoverageTests>>expectedFailures (in category 'failures') -----
- expectedFailures
- 	"Alas this class's single test only passes if there are methods in the MethodMassage package that are compiled without full blocks."
- 
- 	^#(testCoverageOfTestBasicBlockLabelsForMethod)!

Item was removed:
- ----- Method: BytecodeCoverageTests>>testCoverageOfTestBasicBlockLabelsForMethod (in category 'tests') -----
- testCoverageOfTestBasicBlockLabelsForMethod
- 	"[| me |
- 	me := self new.
- 	[me setUp; testCoverageOfTestBasicBlockLabelsForMethod]
- 		ensure: [me tearDown]] timeToRun"
- 	"[| me |
- 	me := self new.
- 	[me setUp; coverTestBasicBlockLabelsForMethod]
- 		ensure: [me tearDown]] timeToRun"
- 	| theMethod |
- 	theMethod := self class >> #testBasicBlockLabelsFor:.
- 	theMethod removeProperty: #coverage.
- 	BytecodeCoverer new coverMethod: theMethod.
- 	self assert: (theMethod propertyValueAt: #coverage) notNil.
- 	self assert: (theMethod propertyValueAt: #coverage) notEmpty.
- 
- 	self coverTestBasicBlockLabelsForMethod.
- 
- 	self assert: (theMethod propertyValueAt: #coverage) isEmpty!

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