The Trunk: MorphicTests-cmm.15.mcz

Chris Muller uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-cmm.15.mcz

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

Name: MorphicTests-cmm.15
Author: cmm
Time: 12 June 2010, 11:25:33.322 am
UUID: f64da5f8-000c-4d5c-af8f-8fdf5fd90e50
Ancestors: MorphicTests-bp.14

Added TextAnchorTest >> #testBeginWithAnAnchor.

=============== Diff against MorphicTests-bp.14 ===============

Item was added:
+ ----- Method: TextAnchorTest>>testBeginWithAnAnchor (in category 'initialize-release') -----
+ testBeginWithAnAnchor
+ | text morph model |
+ text := Text streamContents:
+ [ : stream | stream
+ nextPut: Morph new ;
+ nextPutAll: ' should be able to begin with an embedded object. ' ].
+ model := text -> nil.
+ morph := PluggableTextMorph
+ on: model
+ text: #key
+ accept: nil.
+ [morph openInWorld] ensure: [ morph delete ]!