[squeak-dev] The Trunk: MorphicTests-nice.40.mczcommits at source.squeak.org commits at source.squeak.orgWed Apr 26 21:18:18 UTC 2017
Nicolas Cellier uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-nice.40.mcz ==================== Summary ==================== Name: MorphicTests-nice.40 Author: nice Time: 26 April 2017, 11:18:11.635198 pm UUID: e709833d-000f-471c-abed-23c75c36b9ad Ancestors: MorphicTests-mt.39 Classify a few 'as yet unclassified' methods =============== Diff against MorphicTests-mt.39 =============== Item was changed: + ----- Method: CircleMorphBugs>>testCircleInstance (in category 'tests') ----- - ----- Method: CircleMorphBugs>>testCircleInstance (in category 'as yet unclassified') ----- testCircleInstance "" "self run: #testCircleInstance" | circ | self assert: (circ := CircleMorph initializedInstance) extent = circ extent x asPoint ! Item was changed: + ----- Method: LayoutFrameTest>>testInset (in category 'tests') ----- - ----- Method: LayoutFrameTest>>testInset (in category 'as yet unclassified') ----- testInset | lf rectangle | lf := LayoutFrame new leftFraction: 0 offset: 10; topFraction: 0 offset: 10; rightFraction: 1 offset: -10; bottomFraction: 1 offset: -10; yourself. rectangle := lf layout: nil in: (50 at 10 corner: 150 at 70). self assert: (60 at 20 corner: 140 at 60) = rectangle! Item was changed: + ----- Method: LayoutFrameTest>>testLeftTopAligned (in category 'tests') ----- - ----- Method: LayoutFrameTest>>testLeftTopAligned (in category 'as yet unclassified') ----- testLeftTopAligned | lf rectangle | lf := LayoutFrame new leftFraction: 0 offset: 10; topFraction: 0 offset: 10; rightFraction: 0 offset: 60; bottomFraction: 0 offset: 25; yourself. rectangle := lf layout: nil in: (50 at 10 corner: 150 at 70). self assert: (60 at 20 corner: 110 at 35) = rectangle! Item was changed: + ----- Method: LayoutFrameTest>>testRightBottomQuadrant (in category 'tests') ----- - ----- Method: LayoutFrameTest>>testRightBottomQuadrant (in category 'as yet unclassified') ----- testRightBottomQuadrant | lf rectangle | lf := LayoutFrame new leftFraction: 1/2 offset: 1; topFraction: 1/2 offset: 1; rightFraction: 1 offset: -2; bottomFraction: 1 offset: -2; yourself. rectangle := lf layout: nil in: (50 at 10 corner: 150 at 70). self assert: (101 at 41 corner: 148 at 68) = rectangle! Item was changed: + ----- Method: LayoutFrameTest>>testSpaceFill (in category 'tests') ----- - ----- Method: LayoutFrameTest>>testSpaceFill (in category 'as yet unclassified') ----- testSpaceFill | lf rectangle | lf := LayoutFrame new leftFraction: 0 offset: 0; topFraction: 0 offset: 0; rightFraction: 1 offset: 0; bottomFraction: 1 offset: 0; yourself. rectangle := lf layout: nil in: (50 at 10 corner: 150 at 70). self assert: (50 at 10 corner: 150 at 70) = rectangle! Item was changed: + ----- Method: MorphicTestTextModel>>flags (in category 'accessing') ----- - ----- Method: MorphicTestTextModel>>flags (in category 'as yet unclassified') ----- flags ^ flags ifNil: [flags := Bag new]! Item was changed: + ----- Method: MorphicTestTextModel>>hasFlag: (in category 'accessing') ----- - ----- Method: MorphicTestTextModel>>hasFlag: (in category 'as yet unclassified') ----- hasFlag: aSymbol ^ self flags includes: aSymbol! Item was changed: + ----- Method: MorphicTestTextModel>>result (in category 'accessing') ----- - ----- Method: MorphicTestTextModel>>result (in category 'as yet unclassified') ----- result ^ result! Item was changed: + ----- Method: MorphicTestTextModel>>result: (in category 'accessing') ----- - ----- Method: MorphicTestTextModel>>result: (in category 'as yet unclassified') ----- result: anObject result := anObject.! Item was changed: + ----- Method: MorphicUIManagerTest>>defaultTimeout (in category 'accessing') ----- - ----- Method: MorphicUIManagerTest>>defaultTimeout (in category 'as yet unclassified') ----- defaultTimeout ^ 60 "seconds"! Item was changed: + ----- Method: MorphicUIManagerTest>>findWindowInWorldLabeled: (in category 'private') ----- - ----- Method: MorphicUIManagerTest>>findWindowInWorldLabeled: (in category 'as yet unclassified') ----- findWindowInWorldLabeled: aLabel "Look in the world and in the hand for windows. Yes, windows may spawn in the hand." ^ World submorphs, (World hands gather: [:hand | hand submorphs]) detect: [ :each | each isSystemWindow and: [ each label = aLabel ] ] ifNone: [].! Item was changed: + ----- Method: MorphicUIManagerTest>>setUp (in category 'initialize-release') ----- - ----- Method: MorphicUIManagerTest>>setUp (in category 'as yet unclassified') ----- setUp "default. tests will add morphs to list. Teardown will delete." cases := #(). uiManager := MorphicUIManager new.! Item was changed: + ----- Method: MorphicUIManagerTest>>tearDown (in category 'initialize-release') ----- - ----- 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 changed: + ----- Method: MorphicUIManagerTest>>testOpenWorkspace (in category 'tests') ----- - ----- Method: MorphicUIManagerTest>>testOpenWorkspace (in category 'as yet unclassified') ----- testOpenWorkspace "self new testOpenWorkspace" "MorphicUIBugTest run: #testOpenWorkspace" | window myLabel foundWindow myModel | myLabel := 'Workspace from SUnit test' . foundWindow := self findWindowInWorldLabeled: myLabel . self assert: foundWindow isNil. window := uiManager edit: '"MorphicUIBugTest run: #openWorkspaceTest"' label: myLabel. 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.! Item was changed: + ----- Method: MorphicUIManagerTest>>testOpenWorkspaceAns (in category 'tests') ----- - ----- 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 | myLabel := 'Workspace from ', 'SUnit test' . foundWindow := self findWindowInWorldLabeled: myLabel . self assert: ( foundWindow isNil ) . window := uiManager edit: '"MorphicUIBugTest run: #openWorkspaceTest"' label: myLabel. foundWindow := self findWindowInWorldLabeled: myLabel . cases := Array with: foundWindow . "For teardown." self assert: ( window == foundWindow ) .! Item was changed: + ----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'tests') ----- - ----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'as yet unclassified') ----- testShowAllBinParts "self new testShowAllBinParts" "MorphicUIBugTest run: #testShowAllBinParts" | tool | self shouldnt: [tool := ObjectsTool initializedInstance showAll openCenteredInWorld] raise: Error. cases := Array with: tool.! Item was changed: + ----- Method: MorphicUIManagerTest>>testUIManagerNoAcceptInitially (in category 'tests') ----- - ----- 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 edit: Text new label: 'Test' accept: [:val| accepted := true]. window delete. self deny: accepted.! Item was changed: + ----- Method: SimpleSwitchMorphTest>>classToBeTested (in category 'accessing') ----- - ----- Method: SimpleSwitchMorphTest>>classToBeTested (in category 'as yet unclassified') ----- classToBeTested ^ SimpleSwitchMorph ! Item was changed: + ----- Method: SimpleSwitchMorphTest>>setUp (in category 'initialize-release') ----- - ----- Method: SimpleSwitchMorphTest>>setUp (in category 'as yet unclassified') ----- setUp super setUp. testSwitch := SimpleSwitchMorph new! Item was changed: + ----- Method: SimpleSwitchMorphTest>>testName (in category 'tests') ----- - ----- Method: SimpleSwitchMorphTest>>testName (in category 'as yet unclassified') ----- testName self assert: testSwitch externalName = 'SimpleSwitch'! Item was changed: + ----- Method: SimpleSwitchMorphTest>>testState (in category 'tests') ----- - ----- Method: SimpleSwitchMorphTest>>testState (in category 'as yet unclassified') ----- testState self assert: testSwitch isOff. self deny: testSwitch isOn. testSwitch toggleState. self assert: testSwitch isOn. self deny: testSwitch isOff! Item was changed: + ----- Method: SimpleSwitchMorphTest>>testSwitching (in category 'tests') ----- - ----- Method: SimpleSwitchMorphTest>>testSwitching (in category 'as yet unclassified') ----- testSwitching testSwitch setSwitchState: false. self assert: testSwitch isOff. self assert: testSwitch color = testSwitch offColor. testSwitch setSwitchState: true. self assert: testSwitch isOn. self assert: testSwitch color = testSwitch onColor.! Item was changed: + ----- Method: StickynessBugz>>testForTiltedStickyness (in category 'tests') ----- - ----- Method: StickynessBugz>>testForTiltedStickyness (in category 'as yet unclassified') ----- testForTiltedStickyness "self new testForTiltedStickyness" "self run: #testForTiltedStickyness" | m | m := RectangleMorph new openCenteredInWorld . cases := Array with: m . "save for tear down." self assert: ( m topRendererOrSelf isSticky not ) . m beSticky . self assert: ( m topRendererOrSelf isSticky ) . m addFlexShell . cases := Array with: m topRendererOrSelf . m topRendererOrSelf rotationDegrees: 45.0 . self assert: ( m topRendererOrSelf isSticky ) . m beUnsticky . self assert: ( m topRendererOrSelf isSticky not ) . m topRendererOrSelf delete. ^true ! Item was changed: + ----- Method: TestInWorldMorph>>initialize (in category 'initialization') ----- - ----- Method: TestInWorldMorph>>initialize (in category 'as yet unclassified') ----- initialize super initialize. outOfWorldCount := intoWorldCount := 0.! Item was changed: + ----- Method: TestInWorldMorph>>intoWorld: (in category 'accessing') ----- - ----- Method: TestInWorldMorph>>intoWorld: (in category 'as yet unclassified') ----- intoWorld: aWorld aWorld ifNil:[^self]. super intoWorld: aWorld. intoWorldCount := intoWorldCount + 1. ! Item was changed: + ----- Method: TestInWorldMorph>>intoWorldCount (in category 'accessing') ----- - ----- Method: TestInWorldMorph>>intoWorldCount (in category 'as yet unclassified') ----- intoWorldCount ^intoWorldCount! Item was changed: + ----- Method: TestInWorldMorph>>outOfWorld: (in category 'accessing') ----- - ----- Method: TestInWorldMorph>>outOfWorld: (in category 'as yet unclassified') ----- outOfWorld: aWorld aWorld ifNil:[^self]. super outOfWorld: aWorld. outOfWorldCount := outOfWorldCount + 1. ! Item was changed: + ----- Method: TestInWorldMorph>>outOfWorldCount (in category 'accessing') ----- - ----- Method: TestInWorldMorph>>outOfWorldCount (in category 'as yet unclassified') ----- outOfWorldCount ^outOfWorldCount! Item was changed: + ----- Method: UnimplementedCallBugz>>testPolyIntersect (in category 'tests') ----- - ----- Method: UnimplementedCallBugz>>testPolyIntersect (in category 'as yet unclassified') ----- testPolyIntersect "self run: #testPolyIntersect" "This should not throw an exception." PolygonMorph initializedInstance intersects: ( Rectangle center: Display center extent: 100 asPoint ).!
More information about the Squeak-dev mailing list |