The Trunk: KernelTests-tbn.149.mcz

Torsten Bergmann uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-tbn.149.mcz

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

Name: KernelTests-tbn.149
Author: tbn
Time: 14 April 2010, 1:29:03.606 pm
UUID: 1a50fa91-e680-5745-943e-853da93a98f2
Ancestors: KernelTests-cmm.148

categorize methods

=============== Diff against KernelTests-cmm.148 ===============

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testEncodingNoTrailer (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testEncodingNoTrailer (in category 'as yet unclassified') -----
  testEncodingNoTrailer
 
  | trailer |
 
  trailer := CompiledMethodTrailer new.
 
  "by default it should be a no-trailer"
  self assert: (trailer kind == #NoTrailer ).
  self assert: (trailer size = 1).
 
  trailer := trailer testEncoding.
 
  self assert: (trailer kind == #NoTrailer ).
  self assert: (trailer size = 1).
  "the last bytecode index must be at 0"
  self assert: (trailer endPC = 0).
  !

Item was changed:
+ ----- Method: CategorizerTest>>testClassifyNewElementOldCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testClassifyNewElementOldCategory (in category 'as yet unclassified') -----
  testClassifyNewElementOldCategory
  categorizer classify: #f under: #unreal.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  (''unreal'' f)
  '!

Item was changed:
+ ----- Method: CategorizerTest>>testRemoveThenRename (in category 'testing') -----
- ----- Method: CategorizerTest>>testRemoveThenRename (in category 'as yet unclassified') -----
  testRemoveThenRename
  categorizer removeCategory: #unreal.
  categorizer renameCategory: #abc toBe: #unreal.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''unreal'' a b c)
  '!

Item was changed:
+ ----- Method: CategorizerTest>>testRemoveExistingElement (in category 'testing') -----
- ----- Method: CategorizerTest>>testRemoveExistingElement (in category 'as yet unclassified') -----
  testRemoveExistingElement
  categorizer removeElement: #a.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' b c)
  (''unreal'')
  '!

Item was changed:
+ ----- Method: CategorizerTest>>setUp (in category 'running') -----
- ----- Method: CategorizerTest>>setUp (in category 'as yet unclassified') -----
  setUp
  categorizer := Categorizer defaultList: #(a b c d e).
  categorizer classifyAll: #(a b c) under: 'abc'.
  categorizer addCategory: 'unreal'.!

Item was changed:
+ ----- Method: CategorizerTest>>testClassifyOldElementOldCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testClassifyOldElementOldCategory (in category 'as yet unclassified') -----
  testClassifyOldElementOldCategory
  categorizer classify: #e under: #unreal.
  self assert: categorizer printString =
  '(''as yet unclassified'' d)
  (''abc'' a b c)
  (''unreal'' e)
  '!

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testEncodingVarLengthSourcePointer (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testEncodingVarLengthSourcePointer (in category 'as yet unclassified') -----
  testEncodingVarLengthSourcePointer
 
  | trailer newTrailer |
 
  trailer := CompiledMethodTrailer new.
 
  trailer sourcePointer: 1.
  newTrailer := trailer testEncoding.
 
  self assert: (newTrailer sourcePointer = 1).
 
  trailer sourcePointer: 16r100000000000000.
  newTrailer := trailer testEncoding.
  self assert: (newTrailer sourcePointer = 16r100000000000000).
  "the last bytecode index must be at 0"
  self assert: (newTrailer endPC = 0).
  !

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testSourceBySelectorEncoding (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testSourceBySelectorEncoding (in category 'as yet unclassified') -----
  testSourceBySelectorEncoding
 
  | trailer |
 
  trailer := CompiledMethodTrailer new.
 
  trailer setSourceBySelector.
 
  self assert: (trailer kind == #SourceBySelector ).
  self assert: (trailer size = 1).
 
  trailer := trailer testEncoding.
 
  self assert: (trailer kind == #SourceBySelector ).
  self assert: (trailer size = 1).
  "the last bytecode index must be at 0"
  self assert: (trailer endPC = 0).
  !

Item was changed:
+ ----- Method: CategorizerTest>>testNullCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testNullCategory (in category 'as yet unclassified') -----
  testNullCategory
  "Test that category 'as yet unclassified' disapears when all it's elements are removed'"
  | aCategorizer |
  aCategorizer := Categorizer defaultList: #().
  self assert: aCategorizer printString =
  '(''as yet unclassified'')
  '.
  self assert: aCategorizer categories = #('no messages').
  aCategorizer classify: #a under: #b.
  self assert: aCategorizer printString =
  '(''b'' a)
  '.
  self assert: aCategorizer categories = #(b).!

Item was changed:
+ ----- Method: CategorizerTest>>testRemoveEmptyCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testRemoveEmptyCategory (in category 'as yet unclassified') -----
  testRemoveEmptyCategory
  categorizer removeCategory: #unreal.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  '!

Item was changed:
+ ----- Method: BehaviorTest>>testBinding (in category 'tests') -----
- ----- Method: BehaviorTest>>testBinding (in category 'as yet unclassified') -----
  testBinding
  self assert: Object binding value = Object.
  self assert: Object binding key = #Object.
 
  self assert: Object class binding value = Object class.
 
  "returns nil for Metaclasses... like Encoder>>#associationFor:"
 
  self assert: Object class binding key = nil.!

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testSourceByIdentifierEncoding (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testSourceByIdentifierEncoding (in category 'as yet unclassified') -----
  testSourceByIdentifierEncoding
 
  | trailer id |
 
  trailer := CompiledMethodTrailer new.
 
  id := UUID new asString.
  trailer sourceIdentifier: id.
 
  self assert: (trailer kind == #SourceByStringIdentifier ).
 
  trailer := trailer testEncoding.
 
  self assert: (trailer kind == #SourceByStringIdentifier ).
  self assert: (trailer sourceIdentifier = id).
  "the last bytecode index must be at 0"
  self assert: (trailer endPC = 0).
  !

Item was changed:
+ ----- Method: CategorizerTest>>testDefaultCategoryIsTransient (in category 'testing') -----
- ----- Method: CategorizerTest>>testDefaultCategoryIsTransient (in category 'as yet unclassified') -----
  testDefaultCategoryIsTransient
  "Test that category 'as yet unclassified' disapears when all it's elements are removed'"
  categorizer classifyAll: #(d e) under: #abc.
  self assert: categorizer printString =
  '(''abc'' a b c d e)
  (''unreal'')
  '!

Item was changed:
+ ----- Method: CategorizerTest>>testRemoveNonEmptyCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testRemoveNonEmptyCategory (in category 'as yet unclassified') -----
  testRemoveNonEmptyCategory
  self should: [categorizer removeCategory: #abc] raise: Error.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  (''unreal'')
  '!

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testEmbeddingTempNames (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testEmbeddingTempNames (in category 'as yet unclassified') -----
  testEmbeddingTempNames
 
  | trailer newTrailer code |
 
  trailer := CompiledMethodTrailer new.
 
  code := 'foo'.
  trailer tempNames: code.
  newTrailer := trailer testEncoding.
 
  self assert: (trailer kind == #TempsNamesQCompress ).
  self assert: (newTrailer tempNames = code).
  "the last bytecode index must be at 0"
  self assert: (newTrailer endPC = 0).
 
 
  code := 'testEmbeddingSourceCode
 
  | trailer newTrailer code |
 
  trailer := CompiledMethodTrailer new.
 
  trailer sourceCode: code.
  newTrailer := trailer testEncoding.
 
  self assert: (newTrailer sourceCode = code).'.
 
  trailer tempNames: code.
  self assert: (trailer kind == #TempsNamesZip ).
  newTrailer := trailer testEncoding.
 
  self assert: (newTrailer tempNames = code).
  "the last bytecode index must be at 0"
  self assert: (newTrailer endPC = 0).
  !

Item was changed:
+ ----- Method: CategorizerTest>>testClassifyNewElementNewCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testClassifyNewElementNewCategory (in category 'as yet unclassified') -----
  testClassifyNewElementNewCategory
  categorizer classify: #f under: #nice.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  (''unreal'')
  (''nice'' f)
  '!

Item was changed:
+ ----- Method: BlockContextTest>>setUp (in category 'running') -----
- ----- Method: BlockContextTest>>setUp (in category 'setup') -----
  setUp
  super setUp.
  aBlockContext := [100@100 corner: 200@200].
  contextOfaBlockContext := thisContext.!

Item was changed:
+ ----- Method: CategorizerTest>>testUnchanged (in category 'testing') -----
- ----- Method: CategorizerTest>>testUnchanged (in category 'as yet unclassified') -----
  testUnchanged
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  (''unreal'')
  '!

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testEncodingSourcePointer (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testEncodingSourcePointer (in category 'as yet unclassified') -----
  testEncodingSourcePointer
 
  | trailer |
 
  trailer := CompiledMethodTrailer new.
 
  CompiledMethod allInstancesDo: [:method | | ptr |
  trailer method: method.
  self assert: ( (ptr := method sourcePointer) == trailer sourcePointer).
  "the last bytecode index must be at 0"
  ptr ~= 0 ifTrue: [
  self assert: (method endPC = trailer endPC) ].
  ].!

Item was changed:
+ ----- Method: CategorizerTest>>testRemoveNonExistingCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testRemoveNonExistingCategory (in category 'as yet unclassified') -----
  testRemoveNonExistingCategory
  categorizer removeCategory: #nice.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  (''unreal'')
  '!

Item was changed:
+ ----- Method: CompledMethodTrailerTest>>testEmbeddingSourceCode (in category 'testing') -----
- ----- Method: CompledMethodTrailerTest>>testEmbeddingSourceCode (in category 'as yet unclassified') -----
  testEmbeddingSourceCode
 
  | trailer newTrailer code |
 
  trailer := CompiledMethodTrailer new.
 
  code := 'foo'.
  trailer sourceCode: code.
  newTrailer := trailer testEncoding.
 
  self assert: (trailer kind == #EmbeddedSourceQCompress ).
  self assert: (newTrailer sourceCode = code).
 
  "the last bytecode index must be at 0"
  self assert: (newTrailer endPC = 0).
 
  code := 'testEmbeddingSourceCode
 
  | trailer newTrailer code |
 
  trailer := CompiledMethodTrailer new.
 
  trailer sourceCode: code.
  newTrailer := trailer testEncoding.
 
  self assert: (newTrailer sourceCode = code).'.
 
  trailer sourceCode: code.
  self assert: (trailer kind == #EmbeddedSourceZip ).
  newTrailer := trailer testEncoding.
 
  self assert: (newTrailer sourceCode = code).
  "the last bytecode index must be at 0"
  self assert: (newTrailer endPC = 0).
  !

Item was changed:
+ ----- Method: CategorizerTest>>testRemoveNonExistingElement (in category 'testing') -----
- ----- Method: CategorizerTest>>testRemoveNonExistingElement (in category 'as yet unclassified') -----
  testRemoveNonExistingElement
  categorizer removeElement: #f.
  self assert: categorizer printString =
  '(''as yet unclassified'' d e)
  (''abc'' a b c)
  (''unreal'')
  '!

Item was changed:
+ ----- Method: CategorizerTest>>testClassifyOldElementNewCategory (in category 'testing') -----
- ----- Method: CategorizerTest>>testClassifyOldElementNewCategory (in category 'as yet unclassified') -----
  testClassifyOldElementNewCategory
  categorizer classify: #e under: #nice.
  self assert: categorizer printString =
  '(''as yet unclassified'' d)
  (''abc'' a b c)
  (''unreal'')
  (''nice'' e)
  '!