<div dir="ltr">includesKey: ?<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/7/23  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</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>
&quot;Smalltalk keys&quot; is deprecated; use &quot;Smalltalk globals keys&quot; instead.<br>
<br>
=============== Diff against SystemChangeNotification-Tests-ul.19 ===============<br>
<br>
Item was changed:<br>
  ----- Method: SystemChangeFileTest&gt;&gt;testClassAdded (in category &#39;testing&#39;) -----<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&gt;&gt;testClassRemoved (in category &#39;testing&#39;) -----<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&gt;&gt;testClassRenamed (in category &#39;testing&#39;) -----<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&gt;&gt;testExpressionDoIt (in category &#39;testing&#39;) -----<br>
  testExpressionDoIt<br>
        | aClassName |<br>
        aClassName := self genericClassName..<br>
        self<br>
                prepare: [<br>
                        self createClass: aClassName.<br>
                ]<br>
                change: [<br>
                        Compiler evaluate: &#39;(Smalltalk at: &#39;, aClassName storeString, &#39;) removeFromSystem&#39;.<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>