[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