[squeak-dev] The Trunk: KernelTests-nice.314.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Oct 20 19:58:26 UTC 2016


Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.314.mcz

==================== Summary ====================

Name: KernelTests-nice.314
Author: nice
Time: 20 October 2016, 9:58:13.488357 pm
UUID: 20ecfbfa-83c2-4e4c-a272-93619cccc78c
Ancestors: KernelTests-nice.313, KernelTests-nice.312

Merge nice.312 (tests for 16 and 64 bits integer array)

Adopt Eliot's protocol:
HalfWord -> DoubleByte
isHalfWords -> isShorts
isDoubleWords -> isLongs

=============== Diff against KernelTests-nice.313 ===============

Item was added:
+ ----- Method: ClassBuilderTest>>makeDoubleByteVariableSubclassOf: (in category 'utilities') -----
+ makeDoubleByteVariableSubclassOf: aClass
+ 	^ aClass variableDoubleByteSubclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: self categoryNameForTemporaryClasses!

Item was added:
+ ----- Method: ClassBuilderTest>>makeDoubleWordVariableSubclassOf: (in category 'utilities') -----
+ makeDoubleWordVariableSubclassOf: aClass
+ 	^ aClass variableDoubleWordSubclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: self categoryNameForTemporaryClasses!

Item was changed:
  ----- Method: ClassBuilderTest>>testByteVariableSubclass (in category 'testing - format') -----
  testByteVariableSubclass
  	"Ensure that the invariants for superclass/subclass format are preserved"
  	baseClass := Object variableByteSubclass: self baseClassName
  		instanceVariableNames: ''
  		classVariableNames: ''
  		poolDictionaries: ''
  		category: self categoryNameForTemporaryClasses.
  	[
  
  	subClass := self makeNormalSubclassOf: baseClass.
  	self deny: (subClass isPointers).
  	self assert: (subClass isVariable).
  	self deny: (subClass isWeak).
  	self assert: (subClass isBytes).
+ 	self deny: (subClass isWords).
+ 	self deny: (subClass isShorts).
+ 	self deny: (subClass isLongs).
  	subClass removeFromSystem.
  
  	"pointer classes"
  	self should:[self makeIVarsSubclassOf: baseClass] raise: Error.
  	self should:[self makeVariableSubclassOf: baseClass] raise: Error.
  	self should:[self makeWeakSubclassOf: baseClass] raise: Error.
  
  	"bit classes"
  	subClass := self makeByteVariableSubclassOf: baseClass.
  	self deny: (subClass isPointers).
  	self assert: (subClass isVariable).
  	self deny: (subClass isWeak).
  	self assert: (subClass isBytes).
+ 	self deny: (subClass isWords).
+ 	self deny: (subClass isShorts).
+ 	self deny: (subClass isLongs).
  	subClass removeFromSystem.
  
  	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeDoubleByteVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeDoubleWordVariableSubclassOf: baseClass] raise: Error.
  
  	] ensure:[self cleanup].!

Item was added:
+ ----- Method: ClassBuilderTest>>testDoubleByteVariableSubclass (in category 'testing - format') -----
+ testDoubleByteVariableSubclass
+ 	"Ensure that the invariants for superclass/subclass format are preserved"
+ 	baseClass := Object variableDoubleByteSubclass: self baseClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: self categoryNameForTemporaryClasses.
+ 	[
+ 	subClass := self makeNormalSubclassOf: baseClass.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self assert: (subClass isShorts).
+ 	self deny: (subClass isWeak).
+ 	self deny: (subClass isBytes).
+ 	self deny: (subClass isWords).
+ 	self deny: (subClass isLongs).
+ 	subClass removeFromSystem.
+ 
+ 	"pointer classes"
+ 	self should:[self makeIVarsSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeWeakSubclassOf: baseClass] raise: Error.
+ 
+ 	"bit classes"
+ 	self should:[self makeByteVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeDoubleWordVariableSubclassOf: baseClass] raise: Error.
+ 	subClass := self makeDoubleByteVariableSubclassOf: baseClass.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self assert: (subClass isShorts).
+ 	self deny: (subClass isWeak).
+ 	self deny: (subClass isBytes).
+ 	self deny: (subClass isWords).
+ 	self deny: (subClass isLongs).
+ 	subClass removeFromSystem.
+ 	] ensure:[self cleanup].!

Item was added:
+ ----- Method: ClassBuilderTest>>testDoubleWordVariableSubclass (in category 'testing - format') -----
+ testDoubleWordVariableSubclass
+ 	"Ensure that the invariants for superclass/subclass format are preserved"
+ 	baseClass := Object variableDoubleWordSubclass: self baseClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: self categoryNameForTemporaryClasses.
+ 	[
+ 	subClass := self makeNormalSubclassOf: baseClass.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self assert: (subClass isLongs).
+ 	self deny: (subClass isWeak).
+ 	self deny: (subClass isBytes).
+ 	self deny: (subClass isShorts).
+ 	self deny: (subClass isWords).
+ 	subClass removeFromSystem.
+ 
+ 	"pointer classes"
+ 	self should:[self makeIVarsSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeWeakSubclassOf: baseClass] raise: Error.
+ 
+ 	"bit classes"
+ 	self should:[self makeByteVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeDoubleByteVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
+ 	subClass := self makeDoubleWordVariableSubclassOf: baseClass.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self assert: (subClass isLongs).
+ 	self deny: (subClass isWeak).
+ 	self deny: (subClass isBytes).
+ 	self deny: (subClass isShorts).
+ 	self deny: (subClass isWords).
+ 	subClass removeFromSystem.
+ 	] ensure:[self cleanup].!

Item was changed:
  ----- Method: ClassBuilderTest>>testWordVariableSubclass (in category 'testing - format') -----
  testWordVariableSubclass
  	"Ensure that the invariants for superclass/subclass format are preserved"
  	baseClass := Object variableWordSubclass: self baseClassName
  		instanceVariableNames: ''
  		classVariableNames: ''
  		poolDictionaries: ''
  		category: self categoryNameForTemporaryClasses.
  	[
  	subClass := self makeNormalSubclassOf: baseClass.
  	self deny: (subClass isPointers).
  	self assert: (subClass isVariable).
+ 	self assert: (subClass isWords).
  	self deny: (subClass isWeak).
  	self deny: (subClass isBytes).
+ 	self deny: (subClass isShorts).
+ 	self deny: (subClass isLongs).
  	subClass removeFromSystem.
  
  	"pointer classes"
  	self should:[self makeIVarsSubclassOf: baseClass] raise: Error.
  	self should:[self makeVariableSubclassOf: baseClass] raise: Error.
  	self should:[self makeWeakSubclassOf: baseClass] raise: Error.
  
  	"bit classes"
  	self should:[self makeByteVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeDoubleByteVariableSubclassOf: baseClass] raise: Error.
+ 	self should:[self makeDoubleWordVariableSubclassOf: baseClass] raise: Error.
  	subClass := self makeWordVariableSubclassOf: baseClass.
  	self deny: (subClass isPointers).
  	self assert: (subClass isVariable).
+ 	self assert: (subClass isWords).
  	self deny: (subClass isWeak).
  	self deny: (subClass isBytes).
+ 	self deny: (subClass isShorts).
+ 	self deny: (subClass isLongs).
  	subClass removeFromSystem.
  	] ensure:[self cleanup].!



More information about the Squeak-dev mailing list