<div dir="ltr">includesKey: ?<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/7/23 <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Frank Shearar uploaded a new version of SystemChangeNotification-Tests to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/SystemChangeNotification-Tests-fbs.20.mcz" target="_blank">http://source.squeak.org/trunk/SystemChangeNotification-Tests-fbs.20.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: SystemChangeNotification-Tests-fbs.20<br>
Author: fbs<br>
Time: 23 July 2013, 9:16:27.988 pm<br>
UUID: 2e5843bc-9a94-7b48-a658-8fc3a944d576<br>
Ancestors: SystemChangeNotification-Tests-ul.19<br>
<br>
"Smalltalk keys" is deprecated; use "Smalltalk globals keys" instead.<br>
<br>
=============== Diff against SystemChangeNotification-Tests-ul.19 ===============<br>
<br>
Item was changed:<br>
----- Method: SystemChangeFileTest>>testClassAdded (in category 'testing') -----<br>
testClassAdded<br>
| aClassName |<br>
aClassName := self genericClassName.<br>
self<br>
change: [<br>
self createClass: aClassName.<br>
]<br>
verify: [<br>
+ self assert: (Smalltalk globals keys includes: aClassName).<br>
- self assert: (Smalltalk keys includes: aClassName).<br>
]<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: SystemChangeFileTest>>testClassRemoved (in category 'testing') -----<br>
testClassRemoved<br>
| aClass aClassName |<br>
aClassName := self genericClassName.<br>
self<br>
prepare: [<br>
aClass := self createClass: aClassName.<br>
]<br>
change: [<br>
aClass removeFromSystem.<br>
]<br>
verify: [<br>
+ self deny: (Smalltalk globals keys includes: aClassName).<br>
- self deny: (Smalltalk keys includes: aClassName).<br>
].<br>
!<br>
<br>
Item was changed:<br>
----- Method: SystemChangeFileTest>>testClassRenamed (in category 'testing') -----<br>
testClassRenamed<br>
| aClass aNewClassName anOldClassName |<br>
anOldClassName := self genericClassName.<br>
aNewClassName := self genericClassName.<br>
self<br>
prepare: [<br>
aClass := self createClass: anOldClassName.<br>
]<br>
change: [<br>
aClass rename: aNewClassName.<br>
]<br>
verify: [<br>
+ self assert: (Smalltalk globals keys includes: aNewClassName).<br>
+ self deny: (Smalltalk globals keys includes: anOldClassName).<br>
- self assert: (Smalltalk keys includes: aNewClassName).<br>
- self deny: (Smalltalk keys includes: anOldClassName).<br>
].!<br>
<br>
Item was changed:<br>
----- Method: SystemChangeFileTest>>testExpressionDoIt (in category 'testing') -----<br>
testExpressionDoIt<br>
| aClassName |<br>
aClassName := self genericClassName..<br>
self<br>
prepare: [<br>
self createClass: aClassName.<br>
]<br>
change: [<br>
Compiler evaluate: '(Smalltalk at: ', aClassName storeString, ') removeFromSystem'.<br>
]<br>
verify: [<br>
+ self deny: (Smalltalk globals keys includes: aClassName).<br>
- self deny: (Smalltalk keys includes: aClassName).<br>
].!<br>
<br>
<br>
</blockquote></div><br></div>