That might be even better! Commits welcome!

(I just wanted to fix the test, which failed because that image now
doesn't have 45Deprecated loaded.)

frank

On 23 July 2013 22:20, Nicolas Cellier
<nicolas.cellier.aka.nice at gmail.com> wrote:
> includesKey: ?
>
>
> 2013/7/23 <commits at source.squeak.org>
>
>> Frank Shearar uploaded a new version of SystemChangeNotification-Tests to
>> project The Trunk:
>> http://source.squeak.org/trunk/SystemChangeNotification-Tests-fbs.20.mcz
>>
>> ==================== Summary ====================
>>
>> Name: SystemChangeNotification-Tests-fbs.20
>> Author: fbs
>> Time: 23 July 2013, 9:16:27.988 pm
>> UUID: 2e5843bc-9a94-7b48-a658-8fc3a944d576
>> Ancestors: SystemChangeNotification-Tests-ul.19
>>
>> "Smalltalk keys" is deprecated; use "Smalltalk globals keys" instead.
>>
>> =============== Diff against SystemChangeNotification-Tests-ul.19
>> ===============
>>
>> Item was changed:
>>   ----- Method: SystemChangeFileTest>>testClassAdded (in category
>> 'testing') -----
>>   testClassAdded
>>         | aClassName |
>>         aClassName := self genericClassName.
>>         self
>>                 change: [
>>                         self createClass: aClassName.
>>                 ]
>>                 verify: [
>> +                       self assert: (Smalltalk globals keys includes:
>> aClassName).
>> -                       self assert: (Smalltalk keys includes:
>> aClassName).
>>                 ]
>>
>>   !
>>
>> Item was changed:
>>   ----- Method: SystemChangeFileTest>>testClassRemoved (in category
>> 'testing') -----
>>   testClassRemoved
>>         | aClass aClassName |
>>         aClassName := self genericClassName.
>>         self
>>                 prepare: [
>>                         aClass := self createClass: aClassName.
>>                 ]
>>                 change: [
>>                         aClass removeFromSystem.
>>                 ]
>>                 verify: [
>> +                       self deny: (Smalltalk globals keys includes:
>> aClassName).
>> -                       self deny: (Smalltalk keys includes: aClassName).
>>                 ].
>>   !
>>
>> Item was changed:
>>   ----- Method: SystemChangeFileTest>>testClassRenamed (in category
>> 'testing') -----
>>   testClassRenamed
>>         | aClass aNewClassName anOldClassName |
>>         anOldClassName := self genericClassName.
>>         aNewClassName := self genericClassName.
>>         self
>>                 prepare: [
>>                         aClass := self createClass: anOldClassName.
>>                 ]
>>                 change: [
>>                         aClass rename: aNewClassName.
>>                 ]
>>                 verify: [
>> +                       self assert: (Smalltalk globals keys includes:
>> aNewClassName).
>> +                       self deny: (Smalltalk globals keys includes:
>> anOldClassName).
>> -                       self assert: (Smalltalk keys includes:
>> aNewClassName).
>> -                       self deny: (Smalltalk keys includes:
>> anOldClassName).
>>                 ].!
>>
>> Item was changed:
>>   ----- Method: SystemChangeFileTest>>testExpressionDoIt (in category
>> 'testing') -----
>>   testExpressionDoIt
>>         | aClassName |
>>         aClassName := self genericClassName..
>>         self
>>                 prepare: [
>>                         self createClass: aClassName.
>>                 ]
>>                 change: [
>>                         Compiler evaluate: '(Smalltalk at: ', aClassName
>> storeString, ') removeFromSystem'.
>>                 ]
>>                 verify: [
>> +                       self deny: (Smalltalk globals keys includes:
>> aClassName).
>> -                       self deny: (Smalltalk keys includes: aClassName).
>>                 ].!
>>
>>
>
>
>
>