[squeak-dev] The Trunk: KernelTests-dtl.191.mczcommits at source.squeak.org commits at source.squeak.orgWed May 11 00:46:27 UTC 2011
David T. Lewis uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-dtl.191.mcz ==================== Summary ==================== Name: KernelTests-dtl.191 Author: dtl Time: 10 May 2011, 8:46:12.618 pm UUID: 08000000-1508-661d-1508-661d14000000 Ancestors: KernelTests-nice.190 Rename CompledMethodTrailerTest to CompiledMethodTrailerTest (fix typo). Add Igor's CompledMethodTrailerTest>>testEncodingZeroSourcePointer <http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-May/159823.html> =============== Diff against KernelTests-nice.190 =============== Item was added: + TestCase subclass: #CompiledMethodTrailerTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Methods'! Item was added: + ----- Method: CompiledMethodTrailerTest>>testEmbeddingSourceCode (in category 'testing') ----- + 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 added: + ----- Method: CompiledMethodTrailerTest>>testEmbeddingTempNames (in category 'testing') ----- + 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 added: + ----- Method: CompiledMethodTrailerTest>>testEncodingNoTrailer (in category 'testing') ----- + 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 added: + ----- Method: CompiledMethodTrailerTest>>testEncodingSourcePointer (in category 'testing') ----- + 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 added: + ----- Method: CompiledMethodTrailerTest>>testEncodingVarLengthSourcePointer (in category 'testing') ----- + 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 added: + ----- Method: CompiledMethodTrailerTest>>testEncodingZeroSourcePointer (in category 'tests') ----- + testEncodingZeroSourcePointer + + | trailer | + + trailer := CompiledMethodTrailer new. + + self assert: + (trailer sourcePointer: 0) testEncoding sourcePointer = 0 + ! Item was added: + ----- Method: CompiledMethodTrailerTest>>testSourceByIdentifierEncoding (in category 'testing') ----- + 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 added: + ----- Method: CompiledMethodTrailerTest>>testSourceBySelectorEncoding (in category 'testing') ----- + 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 removed: - TestCase subclass: #CompledMethodTrailerTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'KernelTests-Methods'! Item was removed: - ----- Method: CompledMethodTrailerTest>>testEmbeddingSourceCode (in category 'testing') ----- - 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 removed: - ----- Method: CompledMethodTrailerTest>>testEmbeddingTempNames (in category 'testing') ----- - 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 removed: - ----- Method: CompledMethodTrailerTest>>testEncodingNoTrailer (in category 'testing') ----- - 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 removed: - ----- Method: CompledMethodTrailerTest>>testEncodingSourcePointer (in category 'testing') ----- - 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 removed: - ----- Method: CompledMethodTrailerTest>>testEncodingVarLengthSourcePointer (in category 'testing') ----- - 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 removed: - ----- Method: CompledMethodTrailerTest>>testSourceByIdentifierEncoding (in category 'testing') ----- - 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 removed: - ----- Method: CompledMethodTrailerTest>>testSourceBySelectorEncoding (in category 'testing') ----- - 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). - !
More information about the Squeak-dev mailing list |