[Pkg] The Trunk: SystemChangeNotification-Tests-fbs.21.mcz

[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.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).
  		]
  
  !