[squeak-dev] The Trunk: MorphicTests-fbs.19.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 8 11:25:11 UTC 2013


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



More information about the Squeak-dev mailing list