Ah, so the lookups are done once when the method is compiled and then stored
in the CompiledMethod...
My vision is to write something like:
cannedNow := DateAndTime stub: #now; andReturn: [ DateAndTime year: 2011
month: 12 day: 24 hour: 12 minute: 34 second: 55 ].
testableClass := MyClass usingDouble: cannedNow.
The first line seems easy, and for the second line, I have so far (very
rough, but working):
| class copy |
class := MyClass.
copy := MyClass copy.
copy methods do: [ :m | | classRef |
(m hasLiteralSuchThat: [ :l | ((l isKindOf: Association) and: [
l key =
#DateAndTime])])
ifTrue: [ | newMeth refIndex |
newMeth := copy methodDictionary at: m selector
put: m copy.
refIndex := newMeth indexOfLiteralSuchThat: [
:l | ((l isKindOf:
Association) and: [ l key = #DateAndTime])].
newMeth literalAt: refIndex put:
#DateAndTime->MockedClass ] ].
^ copy.
Where CompiledMethod>>indexOfLiteralSuchThat: aBlock
"Answer the literal index of the argument, literal, or zero if none."
2 to: self numLiterals - 1 "exclude superclass + selector/properties"
do:
[:index |
(aBlock value: (self objectAt: index)) ifTrue: [^index - 1]].
^0
Thanks again.
Sean
--
View this message in context:
http://forum.world.st/Stubbing-class-side-methods-tp3674065p3676637.html
Sent from the Pharo Smalltalk mailing list archive at Nabble.com.
