[Pkg] The Trunk: KernelTests-ar.136.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 13 23:16:28 UTC 2010 

Andreas Raab uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ar.136.mcz

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

Name: KernelTests-ar.136
Author: ar
Time: 13 February 2010, 3:15:57.866 pm
UUID: 983ff31a-55a5-1e4d-a5e3-e060e6bfb7be
Ancestors: KernelTests-nice.135

Refactor ClassBuilderTest, removing separate ClassBuilderChangeClassTypeType and ClassBuilderFormatTest (now all part of ClassBuilderTest)

=============== Diff against KernelTests-nice.135 ===============

Item was added:
+ ----- Method: ClassBuilderTest>>testDuplicateClassVariableError (in category 'testing - reshape') -----
+ testDuplicateClassVariableError
+ 	baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: 'TestVar'
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 
+ 	self should:[
+ 		subClass := baseClass subclass: self subClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: 'TestVar'
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'
+ 	] raise: DuplicateVariableError.
+ 
+ 	[subClass := baseClass subclass: self subClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: 'TestVar'
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'
+ 	] on: DuplicateVariableError do:[:ex|
+ 		self assert: ex superclass == baseClass.
+ 		self assert: ex variable = 'TestVar'.
+ 		ex resume.
+ 	].
+ 
+ 	self shouldnt:[
+ 		baseClass := Object subclass: self baseClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'.
+ 	] raise: Error.
+ 
+ 	self should:[
+ 		baseClass := Object subclass: self baseClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: 'TestVar'
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'.
+ 	] raise: DuplicateVariableError.
+ 
+ 	[baseClass := Object subclass: self baseClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: 'TestVar'
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'.
+ 	] on: DuplicateVariableError do:[:ex|
+ 		self assert: ex superclass == baseClass.
+ 		self assert: ex variable = 'TestVar'.
+ 		ex resume.
+ 	].!

Item was added:
+ ----- Method: ClassBuilderTest>>subClassName (in category 'utilities') -----
+ subClassName
+ 	^#DummyClassBuilderFormatTestSubClass!

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

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

Item was added:
+ ----- Method: ClassBuilderTest>>tearDown (in category 'running') -----
+ tearDown
+ 	self cleanup.!

Item was added:
+ ----- Method: ClassBuilderTest>>makeWordVariableSubclassOf: (in category 'utilities') -----
+ makeWordVariableSubclassOf: aClass
+ 	subClass := aClass variableWordSubclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'!

Item was added:
+ ----- Method: ClassBuilderTest>>makeWeakSubclassOf: (in category 'utilities') -----
+ makeWeakSubclassOf: aClass
+ 	subClass := aClass weakSubclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'!

Item was added:
+ ----- Method: ClassBuilderTest>>makeVariableSubclassOf: (in category 'utilities') -----
+ makeVariableSubclassOf: aClass
+ 	subClass := aClass variableSubclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.!

Item was added:
+ ----- Method: ClassBuilderTest>>makeNormalSubclassOf: (in category 'utilities') -----
+ makeNormalSubclassOf: aClass
+ 	subClass := aClass subclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'!

Item was added:
+ ----- Method: ClassBuilderTest>>testDuplicateInstanceVariableError (in category 'testing - reshape') -----
+ testDuplicateInstanceVariableError
+ 	baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: 'var'
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 
+ 	self should:[
+ 		subClass := baseClass subclass: self subClassName
+ 			instanceVariableNames: 'var'
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'
+ 	] raise: DuplicateVariableError.
+ 
+ 	[subClass := baseClass subclass: self subClassName
+ 			instanceVariableNames: 'var'
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'
+ 	] on: DuplicateVariableError do:[:ex|
+ 		self assert: ex superclass == baseClass.
+ 		self assert: ex variable = 'var'.
+ 		ex resume.
+ 	].
+ 
+ 	self shouldnt:[
+ 		baseClass := Object subclass: self baseClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'.
+ 	] raise: Error.
+ 
+ 	self should:[
+ 		baseClass := Object subclass: self baseClassName
+ 			instanceVariableNames: 'var'
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'.
+ 	] raise: DuplicateVariableError.
+ 
+ 	[baseClass := Object subclass: self baseClassName
+ 			instanceVariableNames: 'var'
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'.
+ 	] on: DuplicateVariableError do:[:ex|
+ 		self assert: ex superclass == baseClass.
+ 		self assert: ex variable = 'var'.
+ 		ex resume.
+ 	].!

Item was added:
+ ----- Method: ClassBuilderTest>>testChangeToVariableSubclass (in category 'testing - format') -----
+ testChangeToVariableSubclass
+ 	"Ensure that the invariants for superclass/subclass format are preserved"
+ 	baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 	[
+ 		self shouldnt:[baseClass := Object variableSubclass: self baseClassName
+ 			instanceVariableNames: ''
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'] raise: Error.
+ 
+ 	] ensure:[self cleanup].!

Item was added:
+ ----- 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: 'Kernel-Tests-ClassBuilder'.
+ 	[
+ 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self deny: (subClass isWeak).
+ 	self deny: (subClass isBytes).
+ 	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 shouldnt:[self makeWordVariableSubclassOf: baseClass] raise: Error.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self deny: (subClass isWeak).
+ 	self deny: (subClass isBytes).
+ 	subClass removeFromSystem.
+ 
+ 	] ensure:[self cleanup].!

Item was added:
+ ClassTestCase subclass: #ClassBuilderTest
+ 	instanceVariableNames: 'baseClass subClass'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'KernelTests-Classes'!

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

Item was added:
+ ----- Method: ClassBuilderTest>>baseClassName (in category 'utilities') -----
+ baseClassName
+ 	^#DummyClassBuilderFormatTestSuperClass!

Item was added:
+ ----- 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: 'Kernel-Tests-ClassBuilder'.
+ 	[
+ 
+ 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self deny: (subClass isWeak).
+ 	self assert: (subClass isBytes).
+ 	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 shouldnt:[self makeByteVariableSubclassOf: baseClass] raise: Error.
+ 	self deny: (subClass isPointers).
+ 	self assert: (subClass isVariable).
+ 	self deny: (subClass isWeak).
+ 	self assert: (subClass isBytes).
+ 	subClass removeFromSystem.
+ 
+ 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
+ 
+ 	] ensure:[self cleanup].!

Item was added:
+ ----- Method: ClassBuilderTest>>makeIVarsSubclassOf: (in category 'utilities') -----
+ makeIVarsSubclassOf: aClass
+ 	subClass := aClass subclass: self subClassName
+ 		instanceVariableNames: 'var3 var4'
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'!

Item was added:
+ ----- Method: ClassBuilderTest>>testMoveVarFromSuperToSubclass (in category 'testing - reshape') -----
+ testMoveVarFromSuperToSubclass
+ 	| baseInst subInst |
+ 	baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: 'var'
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 	baseClass compile: 'superGet ^var'.
+ 	baseClass compile: 'superSet: v var := v'.
+ 
+ 	subClass := baseClass subclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 	subClass compile: 'subGet ^var'.
+ 	subClass compile: 'subSet: v var := v'.
+ 
+ 	self assert:[baseClass instSize = 1].
+ 	self assert:[subClass instSize = 1].
+ 
+ 	baseInst := baseClass new.
+ 	subInst := subClass new.
+ 	baseInst instVarAt: 1 put: 42.
+ 	subInst instVarAt: 1 put: 123.
+ 
+ 	self assert: (baseInst instVarAt: 1) = 42.
+ 	self assert: (subInst instVarAt: 1) = 123.
+ 	self assert: (subInst subGet) = 123.
+ 
+ 	[subClass := baseClass subclass: self subClassName
+ 			instanceVariableNames: 'var'
+ 			classVariableNames: ''
+ 			poolDictionaries: ''
+ 			category: 'Kernel-Tests-ClassBuilder'
+ 	] on: DuplicateVariableError do:[:ex| ex resume].
+ 
+ 	self assert:[baseClass instSize = 1].
+ 	self assert:[subClass instSize = 2].
+ 
+ 	self assert: (baseInst instVarAt: 1) = 42.
+ 
+ 	"the assumption below is that for duplicate variables the values get duplicated too.
+ 	this isn't strictly necessary; what we really need is that the old var doesn't get 
+ 	nuked but it has some advantages when moving vars up the hierarchy"
+ 	self assert: (subInst instVarAt: 1) = 123.
+ 	self assert: (subInst instVarAt: 2) = 123.
+ 	self assert: (subInst superGet) = 123.
+ 	self assert: (subInst subGet) = 123.
+ 
+ 	"the assumption below is that the subclass binds to the local scope not
+ 	the outer one, which is in line with common name space approaches."
+ 	subInst superSet: 666.
+ 	subInst subSet: 321.
+ 
+ 	self assert: (subInst instVarAt: 1) = 666.
+ 	self assert: (subInst instVarAt: 2) = 321.
+ 	self assert: (subInst superGet) = 666.
+ 	self assert: (subInst subGet) = 321.
+ 
+ 	baseClass removeSelector: #superGet.
+ 	baseClass removeSelector: #superSet:.
+ 	baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 
+ 	self assert:[baseClass instSize = 0].
+ 	self assert:[subClass instSize = 1].
+ 
+ 	self assert: (subInst instVarAt: 1) = 321.
+ 	self assert: (subInst subGet) = 321.
+ !

Item was added:
+ ----- Method: ClassBuilderTest>>makeByteVariableSubclassOf: (in category 'utilities') -----
+ makeByteVariableSubclassOf: aClass
+ 	subClass := aClass variableByteSubclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'!

Item was added:
+ ----- Method: ClassBuilderTest>>cleanup (in category 'utilities') -----
+ cleanup
+ 	subClass ifNotNil:[subClass removeFromSystem].
+ 	baseClass ifNotNil:[baseClass removeFromSystem].!

Item was added:
+ ----- Method: ClassBuilderTest>>testMoveVarFromSubToSuperclass (in category 'testing - reshape') -----
+ testMoveVarFromSubToSuperclass
+ 	| baseInst subInst |
+ 
+ 	baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 
+ 	subClass := baseClass subclass: self subClassName
+ 		instanceVariableNames: 'var'
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 	subClass compile: 'subGet ^var'.
+ 	subClass compile: 'subSet: v var := v'.
+ 
+ 	self assert:[baseClass instSize = 0].
+ 	self assert:[subClass instSize = 1].
+ 
+ 	baseInst := baseClass new.
+ 	subInst := subClass new.
+ 	subInst instVarAt: 1 put: 123.
+ 
+ 	self assert: (subInst instVarAt: 1) = 123.
+ 	self assert: (subInst subGet) = 123.
+ 
+ 	[baseClass := Object subclass: self baseClassName
+ 		instanceVariableNames: 'var'
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 	] on: DuplicateVariableError do:[:ex| ex resume].
+ 	baseClass compile: 'superGet ^var'.
+ 	baseClass compile: 'superSet: v var := v'.
+ 
+ 	self assert:[baseClass instSize = 1].
+ 	self assert:[subClass instSize = 2].
+ 
+ 	"the assumption here is that an existing value is propagated up"
+ 	self assert: (baseInst instVarAt: 1) = nil.
+ 	self assert: (subInst instVarAt: 1) = 123.
+ 	self assert: (subInst instVarAt: 2) = 123.
+ 
+ 	"the assumption below is that the subclass binds to the local scope not
+ 	the outer one, which is in line with common name space approaches."
+ 	subInst superSet: 666.
+ 	subInst subSet: 321.
+ 
+ 	self assert: (subInst instVarAt: 1) = 666.
+ 	self assert: (subInst instVarAt: 2) = 321.
+ 	self assert: (subInst superGet) = 666.
+ 	self assert: (subInst subGet) = 321.
+ 
+ 	subClass := baseClass subclass: self subClassName
+ 		instanceVariableNames: ''
+ 		classVariableNames: ''
+ 		poolDictionaries: ''
+ 		category: 'Kernel-Tests-ClassBuilder'.
+ 
+ 	self assert:[baseClass instSize = 1].
+ 	self assert:[subClass instSize = 1].
+ 
+ 	"the assumption here is that the current (subclass) value is propagated up"
+ 	self assert: (subInst instVarAt: 1) = 321.
+ 	self assert: (subInst subGet) = 321.
+ !

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

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testChangeToVariableSubclass (in category 'testing') -----
- testChangeToVariableSubclass
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object subclass: self baseClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 		self shouldnt:[baseClass := Object variableSubclass: self baseClassName
- 			instanceVariableNames: ''
- 			classVariableNames: ''
- 			poolDictionaries: ''
- 			category: 'Kernel-Tests-ClassBuilder'] raise: Error.
- 
- 	] ensure:[self cleanup].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testWordVariableSubclass (in category 'testing') -----
- testWordVariableSubclass
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object variableWordSubclass: self baseClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
- 	self deny: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	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 shouldnt:[self makeWordVariableSubclassOf: baseClass] raise: Error.
- 	self deny: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	] ensure:[self cleanup].!

Item was removed:
- ----- Method: ClassBuilderChangeClassTypeTest>>baseClassName (in category 'utilities') -----
- baseClassName
- 
-    ^'TestClassForClassChangeTest'!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testSubclass (in category 'testing') -----
- testSubclass
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object subclass: self baseClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self deny: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	"pointer classes"
- 	self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self deny: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert:(subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert:(subClass isVariable).
- 	self assert:(subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	"bit classes"
- 	self shouldnt:[self makeByteVariableSubclassOf: baseClass] raise: Error.
- 	self deny: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self assert: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeWordVariableSubclassOf: baseClass] raise: Error.
- 	self deny: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 	] ensure:[self cleanup].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>baseClassName (in category 'utilities') -----
- baseClassName
- 	^#DummyClassBuilderFormatTestSuperClass!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testByteVariableSubclass (in category 'testing') -----
- testByteVariableSubclass
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object variableByteSubclass: self baseClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 
- 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
- 	self deny: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self assert: (subClass isBytes).
- 	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 shouldnt:[self makeByteVariableSubclassOf: baseClass] raise: Error.
- 	self deny: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self assert: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
- 
- 	] ensure:[self cleanup].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>makeIVarsSubclassOf: (in category 'utilities') -----
- makeIVarsSubclassOf: aClass
- 	subClass := aClass subclass: self subClassName
- 		instanceVariableNames: 'var3 var4'
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'!

Item was removed:
- ----- Method: ClassBuilderChangeClassTypeTest>>cleanup (in category 'utilities') -----
- cleanup
- 	baseClass ifNotNil:[baseClass removeFromSystem].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>makeByteVariableSubclassOf: (in category 'utilities') -----
- makeByteVariableSubclassOf: aClass
- 	subClass := aClass variableByteSubclass: self subClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'!

Item was removed:
- TestCase subclass: #ClassBuilderChangeClassTypeTest
- 	instanceVariableNames: 'baseClass subClass'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'KernelTests-Classes'!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>cleanup (in category 'utilities') -----
- cleanup
- 	subClass ifNotNil:[subClass removeFromSystem].
- 	baseClass ifNotNil:[baseClass removeFromSystem].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testVariableSubclass (in category 'testing') -----
- testVariableSubclass
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object variableSubclass: self baseClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 	"pointer classes"
- 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self assert: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	"bit classes"
- 	self should:[self makeByteVariableSubclassOf: baseClass] raise: Error.
- 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
- 	] ensure:[self cleanup].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testWeakSubclass (in category 'testing') -----
- testWeakSubclass
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object weakSubclass: self baseClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 	"pointer classes"
- 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self assert: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self assert: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self assert: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	"bit classes"
- 	self should:[self makeByteVariableSubclassOf: baseClass] raise: Error.
- 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
- 	] ensure:[self cleanup].!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>subClassName (in category 'utilities') -----
- subClassName
- 	^#DummyClassBuilderFormatTestSubClass!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>testSubclassWithInstanceVariables (in category 'testing') -----
- testSubclassWithInstanceVariables
- 	"Ensure that the invariants for superclass/subclass format are preserved"
- 	baseClass := Object subclass: self baseClassName
- 		instanceVariableNames: 'var1 var2'
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.
- 	[
- 	self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self deny: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	"pointer classes"
- 	self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self deny: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self deny: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error.
- 	self assert: (subClass isPointers).
- 	self assert: (subClass isVariable).
- 	self assert: (subClass isWeak).
- 	self deny: (subClass isBytes).
- 	subClass removeFromSystem.
- 
- 	"bit classes"
- 	self should:[self makeByteVariableSubclassOf: baseClass] raise: Error.
- 	self should:[self makeWordVariableSubclassOf: baseClass] raise: Error.
- 	] ensure:[self cleanup].!

Item was removed:
- TestCase subclass: #ClassBuilderFormatTests
- 	instanceVariableNames: 'baseClass subClass'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'KernelTests-Classes'!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>makeWordVariableSubclassOf: (in category 'utilities') -----
- makeWordVariableSubclassOf: aClass
- 	subClass := aClass variableWordSubclass: self subClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>makeWeakSubclassOf: (in category 'utilities') -----
- makeWeakSubclassOf: aClass
- 	subClass := aClass weakSubclass: self subClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>makeVariableSubclassOf: (in category 'utilities') -----
- makeVariableSubclassOf: aClass
- 	subClass := aClass variableSubclass: self subClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'.!

Item was removed:
- ----- Method: ClassBuilderFormatTests>>makeNormalSubclassOf: (in category 'utilities') -----
- makeNormalSubclassOf: aClass
- 	subClass := aClass subclass: self subClassName
- 		instanceVariableNames: ''
- 		classVariableNames: ''
- 		poolDictionaries: ''
- 		category: 'Kernel-Tests-ClassBuilder'!

More information about the Packages mailing list