[squeak-dev] The Trunk: Tests-cwp.201.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Apr 29 07:00:26 UTC 2013


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

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

Name: Tests-cwp.201
Author: cwp
Time: 28 April 2013, 1:05:18.1 pm
UUID: 04c1e394-6df1-4dd6-8eec-c7c9ef7b597a
Ancestors: Tests-ul.200

Updated binding tests to ensure that binding identity is preserved whenever possible.

=============== Diff against Tests-ul.200 ===============

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

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

Item was changed:
+ ----- Method: GlobalTest>>testArrowBinding (in category 'tests') -----
- ----- Method: GlobalTest>>testArrowBinding (in category 'as yet unclassified') -----
  testArrowBinding
  	| binding |
  	binding := #Griffle => value.
  	self assert: binding class = Global.
  	self assert: binding key = #Griffle.
  	self assert: binding value == value!

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

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

Item was changed:
+ ----- Method: GlobalTest>>testLiteralEqual (in category 'tests') -----
- ----- Method: GlobalTest>>testLiteralEqual (in category 'as yet unclassified') -----
  testLiteralEqual
  	| global |
  	global := #Griffle => value.
  	self assert: (global literalEqual: global)!

Item was changed:
+ ----- Method: GlobalTest>>testLiteralUnequal (in category 'tests') -----
- ----- Method: GlobalTest>>testLiteralUnequal (in category 'as yet unclassified') -----
  testLiteralUnequal
  	| g1 g2 |
  	g1 := #Griffle => value.
  	g2 := #Griffle => value.
  	self deny: (g1 literalEqual: g2)!



More information about the Squeak-dev mailing list