[Pkg] The Trunk: KernelTests-dtl.191.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed 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 Packages
mailing list