[Pkg] SystemEditor: SystemEditor-Tests-mtf.157.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of SystemEditor-Tests was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-Tests-mtf.157.mcz

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

Name: SystemEditor-Tests-mtf.157
Author: mtf
Time: 11 December 2008, 3:09:19 pm
UUID: 6c5dd334-2b2e-4742-89b5-0567d72112f2
Ancestors: SystemEditor-Tests-mtf.156

made the test suite yellow

=============== Diff against SystemEditor-Tests-mtf.156 ===============

Item was added:
+ ----- Method: TestCategoryEditor>>removeElement: (in category 'private') -----
+ removeElement: element
+ 	removedElements add: element!

Item was added:
+ ----- Method: TestCategoryEditor>>changedElementsAndCategoriesDo: (in category 'private') -----
+ changedElementsAndCategoriesDo: aBlock
+ 	changes keysAndValuesDo: [:element :cat | aBlock value: element value: cat]!

Item was changed:
  CategorizerEditor subclass: #TestCategoryEditor
  	instanceVariableNames: 'changes removedElements'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'SystemEditor-Tests'!
  
+ !TestCategoryEditor commentStamp: 'mtf 12/11/2008 15:00' prior: 0!
+ A demo editor for Categorizers.!
- !TestCategoryEditor commentStamp: 'mtf 9/11/2007 12:54' prior: 0!
- A editor for Categorizers. I don't preserve order of changed categories. changes is a categorizer that handles all changes!

Item was changed:
  ----- Method: MethodEditorTest>>test03RecompilationIsLogged (in category 'tests') -----
  test03RecompilationIsLogged
  	| editor actual expected |
  	editor := MethodEditor
  				source: 'one ^ 1'
  				classified: 'numbers'
  				stamp: 'cwp 12/11/2005 21:58'
  				notifying: nil
  				logging: true.
  	editor repository: SourceRepository newInternal.
+ 	editor compileFrom: self for: self classEditor.
- 	editor compileFrom: self for: self class.
  	actual := editor repository changesStream contents.
  	expected := 'xxx
  !!MethodEditorTest methodsFor: ''numbers'' stamp: ''cwp 12/11/2005 21:58'' prior: 42!!
  one ^ 1!! !!'.
  	self assert: actual = expected!

Item was changed:
  ----- Method: MethodEditorTest>>test02LoggingCanBeSupressed (in category 'tests') -----
  test02LoggingCanBeSupressed
  	| editor actual |
  	editor := MethodEditor
  				source: 'one ^ 1'
  				classified: 'numbers'
  				stamp: 'cwp 12/11/2005 21:58'
  				notifying: nil
  				logging: false.
  	editor repository: SourceRepository newInternal.
+ 	editor compileFrom: nil for: self classEditor.
- 	editor compileFrom: nil for: self class.
  	actual := editor repository changesStream contents.
  	self assert: actual = 'xxx'!

Item was changed:
  ----- Method: MethodEditorTest>>test04SourcePointerIsSet (in category 'tests') -----
  test04SourcePointerIsSet
  	| editor cm |
  	editor := MethodEditor
  			source: 'one ^ 1'
  			classified: 'numbers'
  			stamp: 'cwp 12/11/2005 21:58'
  			notifying: nil
  			logging: true.
  	editor repository: SourceRepository newInternal.
+ 	cm := editor compileFrom: self for: self classEditor.
- 	cm := editor compileFrom: self for: self class.
  	self assert: cm sourcePointer = 33554517!

Item was changed:
  ----- Method: MetaclassEditorBuildTest>>test04ExistingMethods (in category 'tests') -----
  test04ExistingMethods
  	
  	| result |
  	editor compile: 'pe ^ 2'.
+ 	result := editor theNonMetaClass edBuild class.
- 	result := editor edBuild.
  	self assert: (result compiledMethodAt: #ayin) == (editor subject compiledMethodAt: #ayin)!

Item was added:
+ ----- Method: TestCategoryEditor>>hasChangedElements (in category 'private') -----
+ hasChangedElements
+ 	^ changes notEmpty!

Item was changed:
  ----- Method: TestCategoryEditor>>setSubject: (in category 'initialize-release') -----
  setSubject: aCategorizer
  	super setSubject: aCategorizer.
+ 	changes := Dictionary new.
+ 	removedElements := Set new.!
- 	changes := Categorizer defaultList: Array new.
- 	removedElements := Set new!

Item was added:
+ ----- Method: MethodEditorTest>>classEditor (in category 'emulating') -----
+ classEditor	
+ 	^ ClassEditor on: self class!

Item was changed:
  ----- Method: MethodEditorTest>>test01FirstCompilationIsLogged (in category 'tests') -----
  test01FirstCompilationIsLogged
  	| editor actual expected |
  	editor := MethodEditor
  				source: 'one ^ 1'
  				classified: 'numbers'
  				stamp: 'cwp 12/11/2005 21:58'
  				notifying: nil
  				logging: true.
  	editor repository: SourceRepository newInternal.
+ 	editor compileFrom: nil for: self classEditor.
- 	editor compileFrom: nil for: self class.
  	actual := editor repository changesStream contents.
  	expected := 'xxx
  !!MethodEditorTest methodsFor: ''numbers'' stamp: ''cwp 12/11/2005 21:58''!!
  one ^ 1!! !!'.
  	self assert: actual = expected!

Item was removed:
- ----- Method: TestCategoryEditor>>changesInCategory: (in category 'accessing') -----
- changesInCategory: category
- 	^ changes listAtCategoryNamed: category!

Item was removed:
- ----- Method: TestCategoryEditor>>changedElements (in category 'private') -----
- changedElements
- 	^ changes elementArray!

Item was removed:
- ----- Method: TestCategoryEditor>>changesRemoveCategory: (in category 'accessing') -----
- changesRemoveCategory: category
- 	changes removeCategory: category!

Item was removed:
- ----- Method: TestCategoryEditor>>changesRemoveElement: (in category 'accessing') -----
- changesRemoveElement: element
- 	changes removeElement: element!

Item was removed:
- ----- Method: TestCategoryEditor>>changesRenameCategory:toBe: (in category 'accessing') -----
- changesRenameCategory: oldCategory toBe: newCategory
- 	changes renameCategory: oldCategory toBe: newCategory!

Item was removed:
- ----- Method: TestCategoryEditor>>classifyChange:under:suppressIfDefault: (in category 'accessing') -----
- classifyChange: element under: category suppressIfDefault: aBoolean
- 	changes classify: element under: category suppressIfDefault: aBoolean!

Item was removed:
- ----- Method: TestCategoryEditor>>categoryOfChange: (in category 'accessing') -----
- categoryOfChange: element
- 	^ changes categoryOfElement: element!

Item was removed:
- ----- Method: TestCategoryEditor>>changesAddCategory:before: (in category 'accessing') -----
- changesAddCategory: newCategory before: nextCategory
- 	"I don't support ordering"
- 	changes addCategory: newCategory!