[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