'From Pharo1.4a of ''16 June 2011'' [Latest update: #14090] on 25 November 2011 at 4:09:53 pm'!

!FLPluggableSubstitutionTest methodsFor: 'tests' stamp: 'YanniChiu 11/25/2011 16:05'!
testTransientPairChange

	| result |
	self analyzer when: [:x | FLPair = x class and: [x left isNil not] ] substituteBy: [:x | x copy left: $A ].

	result := self resultOfSerializeAndMaterialize: (FLPair new left: $a; right: $b; yourself).
	
	self assert: result left = $A.! !