[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