The Trunk: MorphicTests-fbs.19.mcz

Frank Shearar uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-fbs.19.mcz

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

Name: MorphicTests-fbs.19
Author: fbs
Time: 8 May 2013, 12:24:48.068 pm
UUID: 0161ff16-70b0-4ec8-b136-c35bdab65823
Ancestors: MorphicTests-ar.18

Move a bunch of Morphic-specific tests to MorphicTests.

=============== Diff against MorphicTests-ar.18 ===============

Item was added:
+ TestCase subclass: #CircleMorphBugs
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicTests-Basic'!

Item was added:
+ ----- 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 added:
+ TestCase subclass: #MorphBugs
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicTests-Basic'!

Item was added:
+ ----- Method: MorphBugs>>adhereToEdgeTest (in category 'as yet unclassified') -----
+ adhereToEdgeTest
+ "self new adhereToEdgeTest"
+ "self run: #adhereToEdgeTest"
+
+ | r |
+ r := RectangleMorph new openInWorld .
+
+ self shouldnt: [ [ r adhereToEdge: #eternity ] ensure: [ r delete ] ] raise: Error .
+  r delete .
+
+ ^true !

Item was added:
+ MorphicUIBugTest subclass: #StickynessBugz
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicTests-Basic'!
+
+ !StickynessBugz commentStamp: 'wiz 11/24/2006 00:24' prior: 0!
+ A StickynessBugz is for mantis #5500 rectangles and ellipses don't act sticky when rotated even when they are..
+
+ Instance Variables
+ !

Item was added:
+ ----- 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 added:
+ TestCase subclass: #UnimplementedCallBugz
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicTests-Basic'!

Item was added:
+ ----- Method: UnimplementedCallBugz>>testPolyIntersect (in category 'as yet unclassified') -----
+ testPolyIntersect
+
+ "self run: #testPolyIntersect"
+
+ self shouldnt: [ PolygonMorph initializedInstance
+ intersects: ( Rectangle center: Display center
+ extent: 100 asPoint ) ]
+ raise: Error .!