[Pkg] The Trunk: Tests-cwp.282.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jan 4 19:08:13 UTC 2014


Colin Putney uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-cwp.282.mcz

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

Name: Tests-cwp.282
Author: cwp
Time: 4 January 2014, 2:07:01.106 pm
UUID: 4f29905f-c283-4f6f-a828-63dd030b1b94
Ancestors: Tests-fbs.281, Tests-cwp.281

merge

=============== Diff against Tests-fbs.281 ===============

Item was added:
+ ----- Method: AliasTest>>testSource (in category 'tests') -----
+ testSource
+ 	| alias source |
+ 	source := #Griffle => value.
+ 	alias := source asBinding: #Plonk.
+ 	self assert: alias source == source!

Item was changed:
  TestCase subclass: #BindingPolicyTest
+ 	instanceVariableNames: 'environment policy value notified notifiedBinding'
- 	instanceVariableNames: 'namespace policy value'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-Environments'!

Item was removed:
- ----- Method: BindingPolicyTest class>>isAbstract (in category 'as yet unclassified') -----
- isAbstract
- 	^ self name = #BindingPolicyTest!

Item was added:
+ ----- Method: BindingPolicyTest>>addBinding: (in category 'emulating') -----
+ addBinding: aBinding
+ 	notified := #add.
+ 	notifiedBinding := aBinding!

Item was added:
+ ----- Method: BindingPolicyTest>>bindingPolicyWithNamePolicy: (in category 'tests') -----
+ bindingPolicyWithNamePolicy: aPolicy
+ 	^ BindingPolicy
+ 		environment: environment
+ 		policy: aPolicy
+ 		addSelector: #addBinding:
+ 		removeSelector: #removeBinding:!

Item was added:
+ ----- Method: BindingPolicyTest>>removeBinding: (in category 'emulating') -----
+ removeBinding: aBinding
+ 	notified := #remove.
+ 	notifiedBinding := aBinding!

Item was changed:
  ----- Method: BindingPolicyTest>>setUp (in category 'running') -----
  setUp
+ 	environment := Environment withName: #test.
- 	namespace := IdentityDictionary new.
  	value := Object new!

Item was added:
+ ----- Method: BindingPolicyTest>>tearDown (in category 'running') -----
+ tearDown
+ 	environment destroy.
+ 	environment := nil.
+ 	value := nil.!

Item was added:
+ ----- Method: BindingPolicyTest>>testAddHonorsEnvironment (in category 'tests') -----
+ testAddHonorsEnvironment
+ 	| binding other |
+ 	other := Environment withName: #other.
+ 	policy := self bindingPolicyWithNamePolicy: AllNamePolicy new.
+ 	binding := #Griffle => value.
+ 	policy binding: binding addedTo: other notify: self.
+ 	self assert: notified = nil!

Item was added:
+ ----- Method: BindingPolicyTest>>testAddHonorsName (in category 'tests') -----
+ testAddHonorsName
+ 	| binding |
+ 	policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Griffle -> #Nurp).
+ 	binding := #Griffle => value.
+ 	policy binding: binding addedTo: environment notify: self.
+ 	self assert: notified == #add!

Item was added:
+ ----- Method: BindingPolicyTest>>testAddHonorsPolicy (in category 'tests') -----
+ testAddHonorsPolicy
+ 	| binding |
+ 	policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Nurp).
+ 	binding := #Griffle => value.
+ 	policy binding: binding addedTo: environment notify: self.
+ 	self assert: notified = nil!

Item was added:
+ ----- Method: BindingPolicyTest>>testAdded (in category 'tests') -----
+ testAdded
+ 	| binding |
+ 	policy := self bindingPolicyWithNamePolicy: AllNamePolicy new.
+ 	binding := #Griffle => value.
+ 	policy binding: binding addedTo: environment notify: self.
+ 	self assert: notified = #add.!

Item was added:
+ ----- Method: BindingPolicyTest>>testRemoveHonorsEnvironment (in category 'tests') -----
+ testRemoveHonorsEnvironment
+ 	| binding other |
+ 	other := Environment withName: #other.
+ 	policy := self bindingPolicyWithNamePolicy: AllNamePolicy new.
+ 	binding := #Griffle => value.
+ 	policy binding: binding removedFrom: other notify: self. 
+ 	self assert: notified = nil!

Item was added:
+ ----- Method: BindingPolicyTest>>testRemoveHonorsName (in category 'tests') -----
+ testRemoveHonorsName
+ 	| binding |
+ 	policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Griffle -> #Nurp).
+ 	binding := #Griffle => value.
+ 	policy binding: binding removedFrom: environment notify: self.
+ 	self assert: notified = #remove.
+ 	self assert: notifiedBinding key = #Nurp.
+ 	self assert: notifiedBinding source == binding!

Item was added:
+ ----- Method: BindingPolicyTest>>testRemoveHonorsPolicy (in category 'tests') -----
+ testRemoveHonorsPolicy
+ 	| binding |
+ 	policy := self bindingPolicyWithNamePolicy: (ExplicitNamePolicy spec: #Nurp).
+ 	binding := #Griffle => value.
+ 	policy binding: binding removedFrom: environment notify: self.
+ 	self assert: notified = nil!

Item was added:
+ ----- Method: BindingPolicyTest>>testRemoved (in category 'tests') -----
+ testRemoved
+ 	| binding |
+ 	policy := self bindingPolicyWithNamePolicy: AllNamePolicy new.
+ 	binding := #Griffle => value.
+ 	policy binding: binding removedFrom: environment notify: self.
+ 	self assert: notified = #remove!

Item was added:
+ ----- Method: ClassBindingTest>>testSource (in category 'as yet unclassified') -----
+ testSource
+ 	| binding |
+ 	binding := ClassBinding key: #Griffle value: value.
+ 	self assert: binding source == binding!

Item was changed:
+ ----- Method: EnvironmentTest>>assertExports:value: (in category 'asserting') -----
- ----- Method: EnvironmentTest>>assertExports:value: (in category 'export tests') -----
  assertExports: aSymbol value: v2
+ 	| other |
+ 	other := Environment withName: #other.
+ 	other import: env.
+ 	self assert: (other bindingOf: aSymbol) value = v2!
- 	self assert: (env public includesKey: aSymbol).
- 	self assert: (env public at: aSymbol) == v2!

Item was added:
+ ----- Method: EnvironmentTest>>denyExports: (in category 'asserting') -----
+ denyExports: aSymbol
+ 	| other |
+ 	other := Environment withName: #other.
+ 	other import: env.
+ 	self assert: (other bindingOf: aSymbol) isNil!

Item was changed:
  ----- Method: EnvironmentTest>>tearDown (in category 'running') -----
  tearDown
+ 	env destroy.
+ 	env := nil!
- 	env destroy!

Item was changed:
  ----- Method: EnvironmentTest>>testAtPutDeclared (in category 'compatibility tests') -----
  testAtPutDeclared
  	| binding |
+ 	env importSelf.
+ 	env bind: #Griffle to: Object new.
- 	env at: #Griffle put: Object new.
  	binding := env bindingOf: #Griffle.
  	env at: #Griffle put: value.
  	self assert: binding value == value!

Item was added:
+ ----- Method: EnvironmentTest>>testDeclaredBecomeClassBinding (in category 'compatibility tests') -----
+ testDeclaredBecomeClassBinding
+ 	| binding class |
+ 	class := Behavior new.
+ 	binding := env 
+ 		bind: #Griffle to: value;
+ 		declarationOf: #Griffle.
+ 	env at: #Griffle put: class.
+ 	self assert: (binding class == ClassBinding).
+ 	self assert: binding value == class.!

Item was added:
+ ----- Method: EnvironmentTest>>testDeclaredBecomeGlobal (in category 'compatibility tests') -----
+ testDeclaredBecomeGlobal
+ 	| binding class |
+ 	class := Behavior new.
+ 	binding := env 
+ 		bind: #Griffle to: class;
+ 		declarationOf: #Griffle.
+ 	env at: #Griffle put: value.
+ 	self assert: (binding class == Global).
+ 	self assert: binding value == value.!

Item was changed:
  ----- Method: EnvironmentTest>>testExclusiveExplicitExport (in category 'export tests') -----
  testExclusiveExplicitExport
  	env export: #Plonk.
  	env at: #Griffle put: Object new.
+ 	self denyExports: #Griffle!
- 	self assert: env public isEmpty!

Item was changed:
  ----- Method: EnvironmentTest>>testExclusiveMultiExplicitExport (in category 'export tests') -----
  testExclusiveMultiExplicitExport
  	env export: #(Plonk #Griffle).
  	env at: #Nurp put: Object new.
+ 	self denyExports: #Nurp!
- 	self assert: env public isEmpty!

Item was changed:
  ----- Method: EnvironmentTest>>testExplicitExport (in category 'export tests') -----
  testExplicitExport
  	env export: #Griffle.
+ 	env bind: #Griffle to: value.
- 	env at: #Griffle put: value.
  	self assertExports: #Griffle value: value!

Item was changed:
  ----- Method: EnvironmentTest>>testImportAddingPrefixResolvesUndeclared (in category 'import tests') -----
  testImportAddingPrefixResolvesUndeclared
  	| binding foreign |
  	foreign := Environment withName: #Foreign.
  	foreign exportSelf.
+ 	foreign bind: #Griffle to: value.
+ 	binding := env undeclare: #XXGriffle.
- 	foreign at: #Griffle put: value.
- 	env undeclared at: #XXGriffle put: nil.
- 	binding := env undeclared associationAt: #XXGriffle.
  	env import: foreign addingPrefix: 'XX'.
  	self assert: (env bindingOf: #XXGriffle) == binding.
  	self assert: (env valueOf: #XXGriffle) == value!

Item was changed:
  ----- Method: EnvironmentTest>>testImportAlias (in category 'import tests') -----
  testImportAlias
  	| foreign binding |
  	foreign := Environment withName: #Foreign.
  	foreign exportSelf.
+ 	foreign bind: #Griffle to: value.
+ 	env from: foreign import: #Griffle -> #Plonk.
- 	foreign at: #Griffle put: value.
- 	env from: foreign import: #Plonk -> #Griffle.
  	binding := env bindingOf: #Plonk.
  	self assert: binding key = #Plonk.
  	self assert: binding value == value!

Item was changed:
  ----- Method: EnvironmentTest>>testImportAliases (in category 'import tests') -----
  testImportAliases
  	| foreign v2 v3 |
  	foreign := Environment withName: #Foreign.
  	foreign exportSelf.
  	foreign at: #Griffle put: value.
  	foreign at: #Nurp put: (v2 := Object new).
  	foreign at: #Ziffy put: (v3 := Object new).
+ 	env from: foreign import: {#Nurp -> #Plonk. #Ziffy -> #Wiffy}.
- 	env from: foreign import: {#Plonk -> #Nurp. #Wiffy -> #Ziffy}.
  	self assert: (env bindingOf: #Griffle) isNil.
  	self assert: (env bindingOf: #Plonk) value == v2.
  	self assert: (env bindingOf: #Wiffy) value == v3!

Item was changed:
  ----- Method: EnvironmentTest>>testImportRemovingPrefixResolvesUndeclared (in category 'import tests') -----
  testImportRemovingPrefixResolvesUndeclared
  	| binding foreign |
  	foreign := Environment withName: #Foreign.
  	foreign exportSelf.
  	foreign at: #XXGriffle put: value.
+ 	binding := env undeclare: #Griffle.
- 	env undeclared at: #Griffle put: nil.
- 	binding := env undeclared associationAt: #Griffle.
  	env import: foreign removingPrefix: 'XX'.
  	self assert: (env bindingOf: #Griffle) == binding.
  	self assert: (env valueOf: #Griffle) == value!

Item was changed:
  ----- Method: EnvironmentTest>>testImportResolvesUndeclared (in category 'import tests') -----
  testImportResolvesUndeclared
  	| binding foreign |
  	foreign := Environment withName: #Foreign.
  	foreign exportSelf.
  	foreign at: #Griffle put: value.
+ 	binding := env undeclare: #Griffle.
- 	env undeclared at: #Griffle put: nil.
- 	binding := env undeclared associationAt: #Griffle.
  	env import: foreign.
  	self assert: (env bindingOf: #Griffle) == binding.
  	self assert: (env valueOf: #Griffle) == value!

Item was changed:
  ----- Method: EnvironmentTest>>testImportWritable (in category 'import tests') -----
  testImportWritable
  	| foreign binding |
  	foreign := Environment withName: #Foreign.
  	foreign exportSelf.
+ 	foreign bind: #Griffle to: 'v1'.
+ 	env from: foreign import: #Griffle -> #Plonk.
- 	foreign at: #Griffle put: 'v1'.
- 	env from: foreign import: #Plonk -> #Griffle.
  	binding := env bindingOf: #Plonk.
  	binding value: 'v2'.
+ 	self assert: (foreign declarationOf: #Griffle) value = 'v2' !
- 	self assert: (foreign bindingOf: #Griffle) value == 'v2' !

Item was changed:
  ----- Method: EnvironmentTest>>testInternalVisibility (in category 'compiling tests') -----
  testInternalVisibility
  	| griffle plonk |
+ 	env importSelf.
  	self createClass: #Griffle.
  	self createClass: #Plonk.
  	griffle := env at: #Griffle.
  	griffle compile: 'plonk ^ Plonk'.
  	plonk := griffle new plonk.
  	self assert: (env at: #Plonk) == plonk!

Item was changed:
  ----- Method: EnvironmentTest>>testReadOnlyBindings (in category 'binding tests') -----
  testReadOnlyBindings
  	| binding class |
  	class := Behavior new.
+ 	env importSelf.
+ 	env bind: #Griffle to: class.
- 	env at: #Griffle put: class.
  	binding := env bindingOf: #Griffle.
  	self
  		should: [binding value: nil]
  		raise: AttemptToWriteReadOnlyGlobal!

Item was changed:
  ----- Method: EnvironmentTest>>testRequireExplicitExports (in category 'export tests') -----
  testRequireExplicitExports
+ 	env bind: #Griffle to: Object new.
+ 	self denyExports: #Griffle.!
- 	env at: #Griffle put: Object new.
- 	self assert: env public isEmpty!

Item was changed:
  ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') -----
  testStoreDomesticValue
  	| griffle values |
+ 	env importSelf.
  	self createClass: #Griffle.
+ 	env bind: #Plonk to: value.
- 	env at: #Plonk put: 'v1'.
  		
  	griffle := env at: #Griffle.
  	griffle compile: self storeValueMethod.
  	values := griffle new doStore.
  	
  	self assert: values isArray.
  	self assert: values size = 2.
  	self assert: values first == values last.
+ 	self assert: (env valueOf: #Plonk) == values first!
- 	self assert: (env at: #Plonk) == values first!

Item was added:
+ ----- Method: EnvironmentTest>>testUndeclare (in category 'binding tests') -----
+ testUndeclare
+ 	| one two |
+ 	one := env undeclare: #Griffle.
+ 	two := env bindingOf: #Griffle.
+ 	self assert: one == two. 
+ 	self assert: one class == Global!

Item was added:
+ ----- Method: EnvironmentTest>>testUndeclaredBecomeClassBinding (in category 'compatibility tests') -----
+ testUndeclaredBecomeClassBinding
+ 	| binding class |
+ 	class := Behavior new.
+ 	binding := env undeclared
+ 		add: (#Griffle => nil);
+ 		associationAt: #Griffle.
+ 	env at: #Griffle put: class.
+ 	self assert: (binding class == ClassBinding).
+ 	self assert: binding value == class.!

Item was added:
+ ----- Method: EnvironmentTest>>testUndeclaredBecomesGlobal (in category 'compatibility tests') -----
+ testUndeclaredBecomesGlobal
+ 	| binding class |
+ 	class := Behavior new.
+ 	binding := env undeclared
+ 		add: (#Griffle => class);
+ 		associationAt: #Griffle.
+ 	env bind: #Griffle to: value.
+ 	self assert: (binding class == Global).
+ 	self assert: binding value == value.!

Item was changed:
  ----- Method: EnvironmentTest>>testWriteAndLookup (in category 'binding tests') -----
  testWriteAndLookup
  	| assoc |
+ 	env importSelf.
  	env at: #Griffle put: value.
  	assoc := env bindingOf: #Griffle.
  	self assert: assoc key == #Griffle.
  	self assert: assoc value == value.
  	!

Item was removed:
- BindingPolicyTest subclass: #ExportTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Environments'!

Item was removed:
- ----- Method: ExportTest>>policyClass (in category 'running') -----
- policyClass
- 	^ Export!

Item was removed:
- ----- Method: ExportTest>>testExportAll (in category 'tests') -----
- testExportAll
- 	policy := Export namespace: namespace.
- 	policy bind: #Griffle to: value.
- 	self assert: (namespace at: #Griffle) == value!

Item was removed:
- ----- Method: ExportTest>>testExported (in category 'tests') -----
- testExported
- 	policy := Export namespace: namespace policy: (ExplicitNamePolicy spec: #(Griffle)).
- 	policy bind: #Griffle to: value.
- 	self assert: (namespace at: #Griffle) == value!

Item was removed:
- ----- Method: ExportTest>>testNotExported (in category 'tests') -----
- testNotExported
- 	policy := Export namespace: namespace policy: (ExplicitNamePolicy spec: #Nurp).
- 	policy bind: #Griffle to: value.
- 	self assert: namespace isEmpty!

Item was removed:
- ----- Method: ExportTest>>testStackedExports (in category 'tests') -----
- testStackedExports
- 	| griffle plonk |
- 	griffle := Export 
- 		namespace: namespace
- 		policy: (ExplicitNamePolicy spec: #Griffle).
- 	plonk := Export
- 		namespace: namespace
- 		policy: (ExplicitNamePolicy spec: #Plonk)
- 		next: griffle.
- 	plonk bind: #Griffle to: value.
- 	self assert: (namespace at: #Griffle) == value!

Item was added:
+ ----- Method: GlobalTest>>testSource (in category 'tests') -----
+ testSource
+ 	| global |
+ 	global := Global key: #Griffle value: Object new.
+ 	self assert: global source == global!

Item was removed:
- BindingPolicyTest subclass: #ImportTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Environments'!

Item was removed:
- ----- Method: ImportTest>>policyClass (in category 'running') -----
- policyClass
- 	^ Import!

Item was removed:
- ----- Method: ImportTest>>testImportAll (in category 'tests') -----
- testImportAll
- 	| binding |
- 	policy := Import namespace: namespace.
- 	namespace at: #Griffle put: value.
- 	binding := policy bindingOf: #Griffle.
- 	self assert: binding value == value!

Item was removed:
- ----- Method: ImportTest>>testImported (in category 'tests') -----
- testImported
- 	| binding |
- 	policy := Import namespace: namespace policy: (ExplicitNamePolicy spec: #Griffle).
- 	namespace at: #Griffle put: value.
- 	binding := policy bindingOf: #Griffle.
- 	self assert: binding value == value.!

Item was removed:
- ----- Method: ImportTest>>testNotImported (in category 'tests') -----
- testNotImported
- 	| binding |
- 	policy := Import namespace: namespace policy: (ExplicitNamePolicy spec: #Nurp).
- 	namespace at: #Griffle put: value.
- 	binding := policy bindingOf: #Griffle.
- 	self assert: binding value isNil!

Item was removed:
- ----- Method: ImportTest>>testStackedImports (in category 'tests') -----
- testStackedImports
- 	| griffle plonk binding |
- 	griffle := Import 
- 		namespace: namespace 
- 		policy: (ExplicitNamePolicy spec: #Griffle).
- 	plonk := Import
- 		namespace: namespace
- 		policy: (ExplicitNamePolicy spec: #Plonk)
- 		next: griffle.
- 	namespace at: #Griffle put: value.
- 	binding := plonk bindingOf: #Griffle.
- 	self assert: binding value == value.!



More information about the Packages mailing list