[squeak-dev] The Trunk: SystemChangeNotification-Tests-fbs.20.mcz
Nicolas Cellier
nicolas.cellier.aka.nice at gmail.com
Tue Jul 23 21:20:49 UTC 2013
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
More information about the Squeak-dev
mailing list
|