The Trunk: MorphicTests-fbs.23.mcz

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@100.
  canvas fillColor: Color black.
  smallRect := 0@0 corner: 20@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@100.
  canvas fillColor: Color black.
  smallRect := 0@0 corner: 20@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 .!