missed commit mails

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

missed commit mails

Tobias Pape


Begin forwarded message:

>
> 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!
>