The Trunk: SystemChangeNotification-Tests-fbs.21.mcz

Frank Shearar uploaded a new version of SystemChangeNotification-Tests to project The Trunk:
http://source.squeak.org/trunk/SystemChangeNotification-Tests-fbs.21.mcz

==================== Summary ====================

Name: SystemChangeNotification-Tests-fbs.21
Author: fbs
Time: 24 July 2013, 7:07:57.846 am
UUID: 6474bbc8-9898-664a-956d-d44d80c3ba64
Ancestors: SystemChangeNotification-Tests-fbs.20

Take Nicolas Cellier's suggestion to heart and use #includesKey:.

=============== Diff against SystemChangeNotification-Tests-fbs.20 ===============

Item was changed:
  ----- Method: SystemChangeFileTest>>testClassAdded (in category 'testing') -----
  testClassAdded
  | aClassName |
  aClassName := self genericClassName.
  self
  change: [
  self createClass: aClassName.
  ]
  verify: [
+ self assert: (Smalltalk globals includesKey: aClassName).
- self assert: (Smalltalk globals 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 includesKey: aClassName).
- self deny: (Smalltalk globals 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 includesKey: aNewClassName).
+ self deny: (Smalltalk globals includesKey: anOldClassName).
- self assert: (Smalltalk globals keys includes: aNewClassName).
- self deny: (Smalltalk globals 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 includesKey: aClassName).
- self deny: (Smalltalk globals keys includes: aClassName).
  ].!

Item was changed:
  ----- Method: SystemChangeFileTest>>testMethodAdded (in category 'testing') -----
  testMethodAdded
  | aClassName aClass aSelector |
  aClassName := self genericClassName.
  self
  prepare: [
  aClass := self createClass: aClassName.
  ]
  change: [
  aSelector := self genericSelector.
  aClass compile: aSelector.
  ]
  verify: [
+ self assert: (aClass methodDict includesKey: aSelector).
- self assert: (aClass methodDict keys includes: aSelector).
  ]
 
  !

Item was changed:
  ----- Method: SystemChangeFileTest>>testMethodRemoved (in category 'testing') -----
  testMethodRemoved
  | aClassName aClass aSelector |
  aClassName := self genericClassName.
  aSelector := self genericSelector.
  self
  prepare: [
  aClass := self createClass: aClassName.
  aClass compile: aSelector.
  ]
  change: [
  aClass removeSelector: aSelector.
  ]
  verify: [
+ self deny: (aClass methodDict includesKey: aSelector).
- self deny: (aClass methodDict keys includes: aSelector).
  ]
 
  !