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' !
packages@lists.squeakfoundation.org