[squeak-dev] The Trunk: KernelTests-ul.341.mcz
Tobias Pape
Das.Linux at gmx.de
Fri Jun 1 18:22:06 UTC 2018
thanks a lot for this :)
> On 01.06.2018, at 20:10, commits at source.squeak.org wrote:
>
> Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
> http://source.squeak.org/trunk/KernelTests-ul.341.mcz
>
> ==================== Summary ====================
>
> Name: KernelTests-ul.341
> Author: ul
> Time: 31 May 2018, 10:59:41.493595 pm
> UUID: 964ae9e4-9717-442b-8e2e-dc8d11ed65c1
> Ancestors: KernelTests-mt.340
>
> Make tests work even if AuthorInitials is not initialized.
> - #setUp of ClassTest, ClassVarScopeTest and CompiledMethodTest use #compileSilently: instead of #compile:.
> - #performTest of the above classes explicltly sets AuthorInitials to the name of the class
> - CompiledMethodTest >> #testDecompile uses #compileSilently:, because testing compilation is not the goal of that test
> - BehaviorTest >> #testChange temporarily sets AuthorInitials
>
> =============== Diff against KernelTests-mt.340 ===============
>
> Item was changed:
> ----- Method: BehaviorTest>>testChange (in category 'tests') -----
> testChange
> "self debug: #testChange"
>
> | behavior model |
> behavior := Behavior new.
> behavior superclass: Model.
> behavior setFormat: Model format.
> model := Model new.
> model primitiveChangeClassTo: behavior new.
> + Utilities
> + useAuthorInitials: self className
> + during: [ behavior compile: 'thisIsATest ^ 2' ].
> - behavior compile: 'thisIsATest ^ 2'.
> self assert: model thisIsATest = 2.
> self should: [Model new thisIsATest] raise: MessageNotUnderstood.
>
>
> !
>
> Item was added:
> + ----- Method: ClassBuilderTest>>performTest (in category 'private') -----
> + performTest
> +
> + Utilities
> + useAuthorInitials: self className
> + during: [ super performTest ]!
>
> Item was added:
> + ----- Method: ClassTest>>performTest (in category 'private') -----
> + performTest
> +
> + Utilities
> + useAuthorInitials: self className
> + during: [ super performTest ]!
>
> Item was changed:
> ----- Method: ClassTest>>setUp (in category 'setup') -----
> setUp
> className := #TUTU.
> renamedName := #RenamedTUTU.
> self deleteClass.
> self deleteRenamedClass.
> Object subclass: className
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: self categoryNameForTemporaryClasses.
> #('foo' 'bar self foo' 'baz self bar') do:
> + [:s| (Smalltalk at: className) compileSilently: s]!
> - [:s| (Smalltalk at: className) compile: s]!
>
> Item was added:
> + ----- Method: ClassVarScopeTest>>performTest (in category 'private') -----
> + performTest
> +
> + Utilities
> + useAuthorInitials: self className
> + during: [ super performTest ]!
>
> Item was changed:
> ----- Method: ClassVarScopeTest>>setUp (in category 'command') -----
> setUp
>
> parent := Object
> subclass: #ClassVarScopeParent
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: 'Dummy-Tests-Class'.
> child := parent
> subclass: #ClassVarScopeChild
> instanceVariableNames: ''
> classVariableNames: 'ClassVarScopeFoo'
> poolDictionaries: ''
> category: 'Dummy-Tests-Class'.
> grandchild := child
> subclass: #ClassVarScopeGrandchild
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: 'Dummy-Tests-Class'.
> foo := Smalltalk globals at: #ClassVarScopeFoo put: Object basicNew.
>
> + parent compileSilently: self sourceOfParentGetFoo.
> + parent compileSilently: self sourceOfParentSetFoo.
> - parent compile: self sourceOfParentGetFoo.
> - parent compile: self sourceOfParentSetFoo.
>
> + parent class compileSilently: self sourceOfParentGetFoo.
> + parent class compileSilently: self sourceOfParentSetFoo.
> - parent class compile: self sourceOfParentGetFoo.
> - parent class compile: self sourceOfParentSetFoo.
>
> + child compileSilently: self sourceOfChildGetFoo.
> + child compileSilently: self sourceOfChildSetFoo.
> - child compile: self sourceOfChildGetFoo.
> - child compile: self sourceOfChildSetFoo.
>
> + child class compileSilently: self sourceOfChildGetFoo.
> + child class compileSilently: self sourceOfChildSetFoo.
> - child class compile: self sourceOfChildGetFoo.
> - child class compile: self sourceOfChildSetFoo.
>
> + grandchild compileSilently: self sourceOfGrandchildGetFoo.
> + grandchild compileSilently: self sourceOfGrandchildSetFoo.
> - grandchild compile: self sourceOfGrandchildGetFoo.
> - grandchild compile: self sourceOfGrandchildSetFoo.
>
> + grandchild class compileSilently: self sourceOfGrandchildGetFoo.
> + grandchild class compileSilently: self sourceOfGrandchildSetFoo!
> - grandchild class compile: self sourceOfGrandchildGetFoo.
> - grandchild class compile: self sourceOfGrandchildSetFoo.
> - !
>
> Item was added:
> + ----- Method: CompiledMethodTest>>performTest (in category 'private') -----
> + performTest
> +
> + Utilities
> + useAuthorInitials: self className
> + during: [ super performTest ]!
>
> Item was changed:
> ----- Method: CompiledMethodTest>>testDecompile (in category 'tests - decompiling') -----
> testDecompile
> "self debug: #testDecompileTree"
> | method cls stream |
>
> Smalltalk removeClassNamed: #TUTU.
>
> cls := Object subclass: #TUTU
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: 'KernelTests-Methods'.
> + cls compileSilently: 'foo ^ 10'.
> - cls compile: 'foo ^ 10'.
> method := cls >> #foo.
> Smalltalk removeClassNamed: #TUTU.
> stream := String new writeStream.
> method decompile printOn: stream.
> self assert: stream contents = 'foo
> ^ 10'
>
>
> !
>
>
More information about the Squeak-dev
mailing list
|