The Trunk: KernelTests-ul.341.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: KernelTests-ul.341.mcz

commits-2
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'
 
 
  !


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: KernelTests-ul.341.mcz

Tobias Pape
thanks a lot for this :)


> 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'
>  
>  
>   !
>
>