[Pkg] The Trunk: MorphicTests-fbs.23.mcz

[commits at source.squeak.org]

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