The Trunk: Tests-cwp.201.mcz

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