A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-fbs.109.mcz==================== Summary ====================
Name: Tests-fbs.109
Author: fbs
Time: 9 January 2011, 7:03:47.373 pm
UUID: b7a979d9-86be-a34e-a3fe-d11775ff4f74
Ancestors: Tests-ar.108
Tests for System-fbs.108: ensuring that classOrTraitNamed: doesn't return globals.
=============== Diff against Tests-ar.108 ===============
Item was added:
+ TestCase subclass: #SystemDictionaryTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-System-Support'!
Item was added:
+ ----- Method: SystemDictionaryTest>>testClassOrTraitNamedReturnsClassForClasses (in category 'testing - classes and traits') -----
+ testClassOrTraitNamedReturnsClassForClasses
+ self assert: Object == (Smalltalk globals classOrTraitNamed: 'Object').
+ self assert: Object == (Smalltalk globals classOrTraitNamed: #Object).!
Item was added:
+ ----- Method: SystemDictionaryTest>>testClassOrTraitNamedReturnsNilForGlobals (in category 'testing - classes and traits') -----
+ testClassOrTraitNamedReturnsNilForGlobals
+ self assert: nil = (Smalltalk globals classOrTraitNamed: 'Undeclared').
+ self assert: nil = (Smalltalk globals classOrTraitNamed: #Undeclared).!