The Trunk: KernelTests-ul.341.mcz

> On 01.06.2018, at 20:10, [hidden email] 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'
>  
>  
>   !
>
>