Begin forwarded message:
From: commits@source.squeak.org To: squeak-dev@lists.squeakfoundation.org, packages@lists.squeakfoundation.org Reply-To: squeak-dev@lists.squeakfoundation.org Subject: The Trunk: Tests-nice.357.mcz Message-Id: E1byiXK-0007G9-I2@andreas
Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.357.mcz
==================== Summary ====================
Name: Tests-nice.357 Author: nice Time: 24 October 2016, 6:55:45.875833 pm UUID: e92aa9b0-5e9c-7742-8bfd-8daaf6662145 Ancestors: Tests-mt.356
We must explicitely import #Object from Smalltalk globals when we want to compile method accessing Object into another environment.
=============== Diff against Tests-mt.356 ===============
Item was changed: ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') ----- testStoreDomesticValue "Create a class that implements #doStore. (see the comment in #storeValueMethod.) Send the message, then examine the results. The two values should be identical."
| griffle values | env importSelf.
env from: Smalltalk globals import: #Object. self createClass: #Griffle. env bind: #Plonk to: value.
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 valueOf: #Plonk) == values first!
Item was changed: ----- Method: EnvironmentTest>>testStoreImportedValue (in category 'compiling tests') ----- testStoreImportedValue "Create a class that implements #doStore. Import #Plonk from another environment. (see the comment in #storeValueMethod.) Send the message, then examine the results. The two values should be identical."
| griffle foreign values | self createClass: #Griffle. foreign := Environment withName: #Foreign. foreign exportSelf. foreign at: #Plonk put: 'v1'. env from: foreign import: #Plonk.
env from: Smalltalk globals import: #Object.
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!
squeak-dev@lists.squeakfoundation.org