Eliot Miranda uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-eem.325.mcz==================== Summary ====================
Name: KernelTests-eem.325
Author: eem
Time: 30 March 2017, 5:14:42.144182 pm
UUID: d5ee2084-6cd3-4c9c-8000-58e3713a970a
Ancestors: KernelTests-eem.324
Make MethodContextTest Context-aware/sensitive/savvy...
=============== Diff against KernelTests-eem.324 ===============
Item was changed:
----- Method: MethodContextTest>>setUp (in category 'running') -----
setUp
super setUp.
aCompiledMethod := Rectangle methodDict at: #rightCenter.
aReceiver := 100@100 corner: 200@200.
aSender := thisContext.
+ aMethodContext := Context sender: aSender receiver: aReceiver method: aCompiledMethod arguments: #(). !
- aMethodContext := MethodContext sender: aSender receiver: aReceiver method: aCompiledMethod arguments: #(). !
Item was changed:
----- Method: MethodContextTest>>testActivateReturnValue (in category 'tests') -----
testActivateReturnValue
+ self assert: (aSender activateReturn: aMethodContext value: #()) isContext.
- self assert: ((aSender activateReturn: aMethodContext value: #()) isKindOf: MethodContext).
self assert: ((aSender activateReturn: aMethodContext value: #()) receiver = aMethodContext).!
Item was changed:
----- Method: MethodContextTest>>testSetUp (in category 'tests') -----
testSetUp
"Note: In addition to verifying that the setUp worked the way it was expected to, testSetUp is used to illustrate the meaning of the simple access methods, methods that are not normally otherwise 'tested'"
self assert: aMethodContext isContext.
+ self deny: aMethodContext isExecutingBlock.
- self assert: aMethodContext isMethodContext.
self deny: aMethodContext isClosure.
self deny: aMethodContext isDead.
"self assert: aMethodContext home = aReceiver."
"self assert: aMethodContext blockHome = aReceiver."
self assert: aMethodContext receiver = aReceiver.
self assert: aMethodContext method isCompiledMethod.
self assert: aMethodContext method = aCompiledMethod.
self assert: aMethodContext methodNode selector = #rightCenter.
self assert: (aMethodContext methodNodeFormattedAndDecorated: true) selector = #rightCenter.
self assert: aMethodContext client printString = 'MethodContextTest>>#testSetUp'.
!