Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.208.mcz==================== Summary ====================
Name: Tests-fbs.208
Author: fbs
Time: 8 May 2013, 12:24:01.232 pm
UUID: 73073943-565c-4a7c-b56a-4a5d75cda712
Ancestors: Tests-fbs.207
Move a bunch of Morphic-specific tests to MorphicTests.
=============== Diff against Tests-fbs.207 ===============
Item was removed:
- TestCase subclass: #CircleMorphBugs
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tests-Bugs'!
Item was removed:
- ----- 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 removed:
- TestCase subclass: #MorphBugs
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tests-Bugs'!
Item was removed:
- ----- 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 removed:
- MorphicUIBugTest subclass: #StickynessBugz
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tests-Bugs'!
-
- !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 removed:
- ----- 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 removed:
- TestCase subclass: #UnimplementedCallBugz
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tests-Bugs'!
Item was removed:
- ----- 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 .!
Locked
