[Pkg] The Trunk: SystemChangeNotification-Tests-fbs.20.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jul 23 20:16:31 UTC 2013
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).
].!
More information about the Packages
mailing list