The Trunk: Tests-fbs.180.mcz

Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.180.mcz

==================== Summary ====================

Name: Tests-fbs.180
Author: fbs
Time: 2 January 2013, 11:53:05.464 am
UUID: 92a01e46-c207-431d-9433-5dbd5c9fc712
Ancestors: Tests-fbs.179

This does _not_ fix the failing test. I'm renaming in a separate commit so that the actual fix is apparent (when someone does so).

=============== Diff against Tests-fbs.179 ===============

Item was added:
+ ----- Method: ClassRemovalTest>>testClassRemovalAndRecompilationWontCreateDuplicateVariableBindings (in category 'tests') -----
+ testClassRemovalAndRecompilationWontCreateDuplicateVariableBindings
+
+ self
+ assert: isClean
+ description: 'The system category or the classes about to be created already exist.'.
+ "Create a class"
+ Object subclass: self className1
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: self systemCategoryName.
+ "Create another"
+ Object subclass: self className2
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: self systemCategoryName.
+ "Compile a method in the second which references the first"
+ (Smalltalk at: self className2)
+ compile: 'foo ^', self className1
+ classified: 'accessing'.
+ "Remove the first class"
+ (Smalltalk at: self className1) removeFromSystem.
+ "Compile the first class again"
+ Object subclass: self className1
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: self systemCategoryName.
+ self
+ deny: (Smalltalk at: self className2) new foo isObsolete
+ description: '#foo refers to an obsolete class'.
+ self
+ assert: (Smalltalk at: self className1) ==
+ (Smalltalk at: self className2) new foo
+ description: '#foo refers to a different class'!

Item was removed:
- ----- Method: ClassRemovalTest>>testClassRemovalAndRecompilcationWontCreateDuplicateVariableBindings (in category 'tests') -----
- testClassRemovalAndRecompilcationWontCreateDuplicateVariableBindings
-
- self
- assert: isClean
- description: 'The system category or the classes about to be created already exist.'.
- "Create a class"
- Object subclass: self className1
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: self systemCategoryName.
- "Create another"
- Object subclass: self className2
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: self systemCategoryName.
- "Compile a method in the second which references the first"
- (Smalltalk at: self className2)
- compile: 'foo ^', self className1
- classified: 'accessing'.
- "Remove the first class"
- (Smalltalk at: self className1) removeFromSystem.
- "Compile the first class again"
- Object subclass: self className1
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: self systemCategoryName.
- self
- deny: (Smalltalk at: self className2) new foo isObsolete
- description: '#foo refers to an obsolete class'.
- self
- assert: (Smalltalk at: self className1) ==
- (Smalltalk at: self className2) new foo
- description: '#foo refers to a different class'!