Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-ct.61.mcz==================== Summary ====================
Name: MorphicTests-ct.61
Author: ct
Time: 20 March 2020, 8:07:43.181237 pm
UUID: e1d09ce3-9d2a-6440-ad10-b469b1163316
Ancestors: MorphicTests-mt.60
Renames misspelled test selector.
=============== Diff against MorphicTests-mt.60 ===============
Item was added:
+ ----- Method: MorphicEventTests>>test02MouseOver (in category 'tests') -----
+ test02MouseOver
+
+ | m1 m2 |
+ m1 := MorphForEventTests new.
+ m2 := MorphForEventTests new.
+
+ m1 extent: 20@20; topLeft: 0@0.
+ m2 extent: 20@20; topLeft: 40@0.
+
+ m1 openInWorld: world.
+ m2 openInWorld: world.
+
+ hand handleEvent: (self redMouseDownAt: m1 center).
+ hand handleEvent: (self redMouseUpAt: m1 center).
+ hand handleEvent: (self redMouseDownAt: m2 center).
+ hand handleEvent: (self redMouseUpAt: m2 center).
+
+ self
+ checkEventOrder: #(mouseMove mouseEnter mouseDown mouseUp mouseLeave)
+ forEvents: m1 eventsDuringBubble
+ ignoreMouseOver: true.
+
+ self
+ checkEventOrder: #(mouseMove mouseEnter mouseDown mouseUp)
+ forEvents: m2 eventsDuringBubble
+ ignoreMouseOver: true.
+ !
Item was removed:
- ----- Method: MorphicEventTests>>test02MouserOver (in category 'tests') -----
- test02MouserOver
-
- | m1 m2 |
- m1 := MorphForEventTests new.
- m2 := MorphForEventTests new.
-
- m1 extent: 20@20; topLeft: 0@0.
- m2 extent: 20@20; topLeft: 40@0.
-
- m1 openInWorld: world.
- m2 openInWorld: world.
-
- hand handleEvent: (self redMouseDownAt: m1 center).
- hand handleEvent: (self redMouseUpAt: m1 center).
- hand handleEvent: (self redMouseDownAt: m2 center).
- hand handleEvent: (self redMouseUpAt: m2 center).
-
- self
- checkEventOrder: #(mouseMove mouseEnter mouseDown mouseUp mouseLeave)
- forEvents: m1 eventsDuringBubble
- ignoreMouseOver: true.
-
- self
- checkEventOrder: #(mouseMove mouseEnter mouseDown mouseUp)
- forEvents: m2 eventsDuringBubble
- ignoreMouseOver: true.
- !