[Pkg] The Trunk: MorphicTests-cmm.15.mcz

[commits at source.squeak.org]

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