Context.extension.st

Extension { #name : #Context }

{ #category : #'*Fuel-Tests-Core' }
Context >> assertWellMaterializedInto: aMethodContext in: aTestCase [

	aTestCase assert: self ~~ aMethodContext.
	aTestCase assert: self class == aMethodContext class.
	aTestCase assert: self tempNames = aMethodContext tempNames.
	aTestCase assert: pc = aMethodContext pc.
	aTestCase assert: stackp = aMethodContext stackPtr.
	closureOrNil
		ifNil: [ aTestCase assert: aMethodContext closure isNil ]
		ifNotNil: [ closureOrNil assertWellMaterializedInto: aMethodContext closure in: aTestCase ].
	aTestCase assert: receiver = aMethodContext receiver.
	aTestCase assert: ( method isEqualRegardlessTrailerTo: aMethodContext compiledCode ).
	sender
		ifNil: [ aTestCase assert: aMethodContext sender isNil ]
		ifNotNil: [ sender assertWellMaterializedInto: aMethodContext sender in: aTestCase ]
]

{ #category : #'*Fuel-Tests-Core' }
Context >> initializeWith: aPc stackPtr: aStackPtr method: aMethod receiver: aReceiver sender: aSender [
	pc := aPc.
	stackp := aStackPtr.
	method := aMethod.
	receiver := aReceiver.
	sender := aSender.
	
]