[Pkg] The Trunk: Tests-fbs.208.mcz

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


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



More information about the Packages mailing list