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).
>                 ].!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20130723/51689862/attachment-0001.htm