[squeak-dev] The Trunk: MorphicTests-fbs.23.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Nov 6 18:34:15 UTC 2013
Frank Shearar uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-fbs.23.mcz
==================== Summary ====================
Name: MorphicTests-fbs.23
Author: fbs
Time: 6 November 2013, 6:34:14.575 pm
UUID: 0e3eb6f1-238b-3247-a9ef-66945de6a16a
Ancestors: MorphicTests-fbs.22
More #shouldnt:raise: Error fixes.
=============== Diff against MorphicTests-fbs.22 ===============
Item was changed:
----- Method: FormCanvasTest>>testFrameAndFillDegenerateRoundRect01 (in category 'tests') -----
testFrameAndFillDegenerateRoundRect01
| fill canvas smallRect |
fill := GradientFillStyle sample.
canvas := FormCanvas extent: 100 at 100.
canvas fillColor: Color black.
smallRect := 0 at 0 corner: 20 at 20.
+
+ "This should not throw an exception."
+ canvas
+ frameAndFillRoundRect: smallRect
+ radius: smallRect width / 2 + 1
+ fillStyle: fill
+ borderWidth: 0
+ borderColor: Color lightGray.!
- self shouldnt: [
- canvas
- frameAndFillRoundRect: smallRect
- radius: smallRect width / 2 + 1
- fillStyle: fill
- borderWidth: 0
- borderColor: Color lightGray]
- raise: Error.!
Item was changed:
----- Method: FormCanvasTest>>testFrameAndFillDegenerateRoundRect02 (in category 'tests') -----
testFrameAndFillDegenerateRoundRect02
| fill canvas smallRect |
fill := GradientFillStyle sample.
canvas := FormCanvas extent: 100 at 100.
canvas fillColor: Color black.
smallRect := 0 at 0 corner: 20 at 20.
+
+ "This should not throw an exception."
+ canvas
+ frameAndFillRoundRect: smallRect
+ radius: 0
+ fillStyle: fill
+ borderWidth: 0
+ borderColor: Color lightGray.!
- self shouldnt: [
- canvas
- frameAndFillRoundRect: smallRect
- radius: 0
- fillStyle: fill
- borderWidth: 0
- borderColor: Color lightGray]
- raise: Error.!
Item was changed:
----- Method: MorphBugs>>adhereToEdgeTest (in category 'as yet unclassified') -----
adhereToEdgeTest
+ "self new adhereToEdgeTest"
+ "self run: #adhereToEdgeTest"
- "self new adhereToEdgeTest"
- "self run: #adhereToEdgeTest"
+ | r |
+ r := RectangleMorph new openInWorld .
- | r |
- r := RectangleMorph new openInWorld .
+ "This should not throw an exception."
+ [ r adhereToEdge: #eternity ] ensure: [ r delete ].
+ r delete .
- self shouldnt: [ [ r adhereToEdge: #eternity ] ensure: [ r delete ] ] raise: Error .
- r delete .
^true !
Item was changed:
----- Method: MorphTest>>testOpenInWorld (in category 'testing - initialization') -----
testOpenInWorld
+ "This should not throw an exception."
+ morph openInWorld.!
- self shouldnt: [morph openInWorld] raise: Error.!
Item was changed:
----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'as yet unclassified') -----
testShowAllBinParts
"self new testShowAllBinParts"
"MorphicUIBugTest run: #testShowAllBinParts"
+ self assert: Smalltalk isMorphic.
+ "This should not throw an exception."
+ cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld!
- self assert: ( Smalltalk isMorphic ) .
- self shouldnt: [cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld ] raise: Error .
-
-
-
-
- !
Item was changed:
----- Method: TextMorphTest>>testInitialize (in category 'testing') -----
testInitialize
"For now, just make sure initialization doesn't throw exception"
+ TextMorph initialize.!
-
- self shouldnt: [TextMorph initialize] raise: Error.!
Item was changed:
----- Method: UnimplementedCallBugz>>testPolyIntersect (in category 'as yet unclassified') -----
testPolyIntersect
+ "self run: #testPolyIntersect"
+ "This should not throw an exception."
+ PolygonMorph initializedInstance
+ intersects: ( Rectangle
+ center: Display center
+ extent: 100 asPoint ).!
-
- "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
|