>
> From:
[hidden email]
> To:
[hidden email],
[hidden email]
> Reply-To:
[hidden email]
> 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!
>