Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.232.mcz ==================== Summary ==================== Name: Tests-fbs.232 Author: fbs Time: 3 July 2013, 5:28:04.016 pm UUID: 7c1ec4a6-75b3-5d43-8530-c20c43e743be Ancestors: Tests-fbs.231 MorphicUIManagerTest belongs in the MorphicTests package. =============== Diff against Tests-fbs.231 =============== Item was removed: - TestCase subclass: #MorphicUIManagerTest - instanceVariableNames: 'cases' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! - - !MorphicUIManagerTest commentStamp: 'wiz 1/3/2007 13:57' prior: 0! - A MorphicUIBugTest is a class for testing the shortcomings and repairs of the MorphicUI manager. - . - - Instance Variables - cases: <aCollection> - - cases - - a list of morphs that may need to be deleted during teardown. - the tests are expected to fill this list it starts out empty by default. - - - ! Item was removed: - ----- Method: MorphicUIManagerTest>>defaultTimeout (in category 'as yet unclassified') ----- - defaultTimeout - ^ 60 "seconds"! Item was removed: - ----- Method: MorphicUIManagerTest>>findWindowInWorldLabeled: (in category 'as yet unclassified') ----- - findWindowInWorldLabeled: aLabel - - ^World submorphs - detect: [ :each | - (each isKindOf: SystemWindow) - and: [ each label = aLabel ] ] - ifNone: nil.! Item was removed: - ----- Method: MorphicUIManagerTest>>setUp (in category 'as yet unclassified') ----- - setUp - "default. tests will add morphs to list. Teardown will delete." - - cases := #() .! Item was removed: - ----- Method: MorphicUIManagerTest>>tearDown (in category 'as yet unclassified') ----- - tearDown - "default. tests will add morphs to list. Teardown will delete." - - cases do: [ :each | each delete ] .! Item was removed: - ----- Method: MorphicUIManagerTest>>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! Item was removed: - ----- Method: MorphicUIManagerTest>>testOpenWorkspaceAns (in category 'as yet unclassified') ----- - testOpenWorkspaceAns - "Test if method opening a workspace answers the window opened" - - "MorphicUIBugTest run: #testOpenWorkspaceAns" - - - | window myLabel foundWindow | - - 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 . - - foundWindow := self findWindowInWorldLabeled: myLabel . - - cases := Array with: foundWindow . "For teardown." - - self assert: ( window == foundWindow ) . - - foundWindow delete .! Item was removed: - ----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'as yet unclassified') ----- - testShowAllBinParts - "self new testShowAllBinParts" - "MorphicUIBugTest run: #testShowAllBinParts" - - self assert: ( Smalltalk isMorphic ) . - self shouldnt: [cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld ] raise: Error . - - - - - ! Item was removed: - ----- Method: MorphicUIManagerTest>>testUIManagerNoAcceptInitially (in category 'as yet unclassified') ----- - testUIManagerNoAcceptInitially - "Ensure that UIManager does not invoke the accept: action initially." - - | accepted window | - accepted := false. - window := UIManager default edit: Text new label: 'Test' accept: [:val| accepted := true]. - window delete. - self deny: accepted.! |
Free forum by Nabble | Edit this page |