The Trunk: Tests-cwp.196.mcz

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!