[Pkg] The Trunk: Tests-ul.43.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.43.mcz

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

Name: Tests-ul.43
Author: ul
Time: 11 January 2010, 9:00:13.975 am
UUID: b08ea357-5483-7445-b078-3a2299e28bbb
Ancestors: Tests-ar.42

- code critics

=============== Diff against Tests-ar.42 ===============

Item was changed:
  ----- Method: MorphicUIBugTest>>testOpenWorkspace (in category 'as yet unclassified') -----
  testOpenWorkspace
+ 	"self new testOpenWorkspace"
+ 	"MorphicUIBugTest run: #testOpenWorkspace"
+ 	
+ 	| window myLabel foundWindow myModel |
+ 	self assert: Smalltalk isMorphic.
+ 	myLabel := 'Workspace from SUnit test' .
+ 	foundWindow := self findWindowInWorldLabeled: myLabel .
+ 	self assert: foundWindow isNil.
+ 	window := UIManager default edit: '"MorphicUIBugTest run: #openWorkspaceTest"'  label: myLabel.
+ 	window := window.
+ 	foundWindow := self findWindowInWorldLabeled: myLabel.
+ 	cases := Array with: foundWindow . "For teardown."
+ 	myModel := foundWindow submorphs detect: #isMorphicModel.
+ 	self assert: myModel model class == Workspace.
+ 	self assert: foundWindow model class == Workspace.
+ 	foundWindow delete!
- "self new testOpenWorkspace"
- "MorphicUIBugTest run: #testOpenWorkspace"
- 
- | window myLabel foundWindow myModel |
- 
- self assert: ( Smalltalk isMorphic ) .
- 
- myLabel := 'Workspace from ', 'SUnit test' .
- foundWindow := self findWindowInWorldLabeled: myLabel .
- self assert: ( foundWindow isNil ) .
- 
- window := 
- UIManager default edit: '"MorphicUIBugTest run: #openWorkspaceTest"'  label: myLabel .
- 
- window = window. 
- 
- foundWindow := self findWindowInWorldLabeled: myLabel .
- 
- cases := Array with: foundWindow . "For teardown."
- 
- myModel := (foundWindow submorphs detect: [ :each |
- 	each isMorphicModel ] )  .
- 
- self assert: ( myModel model class == Workspace ) .
- self assert: ( foundWindow model class == Workspace ) .
- 
- foundWindow delete .!