Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.196.mcz
==================== Summary ====================
Name: Tests-cwp.196 Author: cwp Time: 3 April 2013, 9:50:31.378 am UUID: 21fbacb5-b2ee-45ab-b002-94a47b9ebf71 Ancestors: Tests-cwp.195
Add a test that ensures that assignments to globals evaluate to the value assigned, rather than the variable binding.
=============== Diff against Tests-cwp.195 ===============
Item was added: + ----- Method: EnvironmentTest>>storeValueMethod (in category 'running') ----- + storeValueMethod + ^ 'doStore + | expr result | + expr := Object new. + result := Plonk := expr. + ^ { expr. result } + '!
Item was added: + ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') ----- + testStoreDomesticValue + | griffle values | + self createClass: #Griffle. + env at: #Plonk put: 'v1'. + + griffle := env at: #Griffle. + griffle compile: self storeValueMethod. + values := griffle new doStore. + + self assert: values isArray. + self assert: values size = 2. + self assert: values first == values last. + self assert: (env at: #Plonk) == values first!
Item was added: + ----- Method: EnvironmentTest>>testStoreImportedValue (in category 'compiling tests') ----- + testStoreImportedValue + | griffle foreign values | + self createClass: #Griffle. + foreign := Environment withName: #Foreign. + foreign exportSelf. + foreign at: #Plonk put: 'v1'. + env from: foreign import: #Plonk. + + griffle := env at: #Griffle. + griffle compile: self storeValueMethod. + values := griffle new doStore. + + self assert: values isArray. + self assert: values size = 2. + self assert: values first == values last. + self assert: (foreign at: #Plonk) == values first!
packages@lists.squeakfoundation.org