The Trunk: Tests-ul.43.mcz

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