[Pkg] The Trunk: KernelTests-tbn.149.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 14 11:29:22 UTC 2010


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 at 100 corner: 200 at 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)
  '!



More information about the Packages mailing list