[Pkg] The Trunk: KernelTests-fbs.247.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 23 08:44:16 UTC 2013

Frank Shearar uploaded a new version of KernelTests to project The Trunk:

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

Name: KernelTests-fbs.247
Author: fbs
Time: 23 April 2013, 8:43:44.916 am
UUID: 109dd8aa-6861-42a0-a1c1-ac58d4720ee1
Ancestors: KernelTests-nice.246

This test doesn't need class refererences from MVC or Morphic to be a good test: a Project always #canDiscardEdits.

=============== Diff against KernelTests-nice.246 ===============

Item was changed:
  ----- Method: DependentsArrayTest>>testCanDiscardEdits (in category 'testing') -----
  	"self debug: #testCanDiscardEdits."
  	| anObject aView  |
  	anObject := Object new.
+ 	"A Project may always discard edits."
+ 	aView := Project new.
- 	(Smalltalk hasClassNamed: #StringHolderView)
- 		ifTrue: ["Use MVC view if available"
- 			aView := (Smalltalk at: #StringHolderView) new
- 				model: Transcript;
- 				window: (0 at 0 extent: 60 at 60);
- 				borderWidth: 1.]
- 		ifFalse: ["Otherwise use a Morphic view"
- 			aView := (Smalltalk at: #PluggableTextMorph) new model: Transcript].
- 	self assert: aView notNil. "require either a StringHolderView or PluggableTextMorph"
- 	aView := PluggableTextMorph new model: Transcript.
- 	aView hasUnacceptedEdits: true.
  	anObject addDependent: Object new. "this entry should be garbage collected"
  	anObject addDependent: aView.
  	Smalltalk garbageCollect. "force garbage collection"
  		should: [anObject dependents size = 1]
  		description: 'first dependent of anObject should have been collected, second should not'.
  		shouldnt: [anObject canDiscardEdits]
  		description: 'anObject cannot discard edits because aView is a dependent of anObject and aView has unaccepted edits'.!

More information about the Packages mailing list