Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.201.mcz
==================== Summary ====================
Name: Tests-cwp.201 Author: cwp Time: 28 April 2013, 1:05:18.1 pm UUID: 04c1e394-6df1-4dd6-8eec-c7c9ef7b597a Ancestors: Tests-ul.200
Updated binding tests to ensure that binding identity is preserved whenever possible.
=============== Diff against Tests-ul.200 ===============
Item was added: + ----- Method: AliasTest>>testAsBindingOriginal (in category 'tests') ----- + testAsBindingOriginal + | alias imported original | + original := #Griffle => value. + alias := original asBinding: #Plonk. + imported := alias asBinding: #Griffle. + self assert: imported == original!
Item was added: + ----- Method: ClassBindingTest>>testAsBindingOriginal (in category 'as yet unclassified') ----- + testAsBindingOriginal + | binding imported | + binding := ClassBinding key: #Griffle value: value. + imported := binding asBinding: #Griffle. + self assert: binding == imported!
Item was changed: + ----- Method: GlobalTest>>testArrowBinding (in category 'tests') ----- - ----- Method: GlobalTest>>testArrowBinding (in category 'as yet unclassified') ----- testArrowBinding | binding | binding := #Griffle => value. self assert: binding class = Global. self assert: binding key = #Griffle. self assert: binding value == value!
Item was added: + ----- Method: GlobalTest>>testAsBindingOriginal (in category 'tests') ----- + testAsBindingOriginal + | global imported | + global := Global key: #Griffle value: Object new. + imported := global asBinding: #Griffle. + self assert: imported == global!
Item was changed: ----- Method: GlobalTest>>testAsBindingWrite (in category 'tests') ----- testAsBindingWrite | global imported | global := Global key: key value: Object new. imported := global asBinding: #Griffle. imported value: value. + self assert: global value == value. - self assert: imported value == value. !
Item was changed: + ----- Method: GlobalTest>>testLiteralEqual (in category 'tests') ----- - ----- Method: GlobalTest>>testLiteralEqual (in category 'as yet unclassified') ----- testLiteralEqual | global | global := #Griffle => value. self assert: (global literalEqual: global)!
Item was changed: + ----- Method: GlobalTest>>testLiteralUnequal (in category 'tests') ----- - ----- Method: GlobalTest>>testLiteralUnequal (in category 'as yet unclassified') ----- testLiteralUnequal | g1 g2 | g1 := #Griffle => value. g2 := #Griffle => value. self deny: (g1 literalEqual: g2)!
packages@lists.squeakfoundation.org