Andreas Raab uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-rkrk.11.mcz

==================== Summary ====================

Name: MorphicTests-rkrk.11
Author: rkrk
Time: 24 September 2009, 3:39:36 am
UUID: 7168c8d1-f45b-4968-bbd1-677b6783b81b
Ancestors: MorphicTests-ar.10

Tests for FormCanvas>>frameAndFillRoundRect:radius:fillStyle:borderWidth:borderColor:. It raises errors in degenerate cases when fillStyle is more than a Color (e.g. a GradientFillStyle).

=============== Diff against MorphicTests-ar.10 ===============

Item was added:
+ ----- 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.
+ 	self shouldnt: [
+ 		canvas
+ 			frameAndFillRoundRect: smallRect
+ 			radius: 0
+ 			fillStyle: fill
+ 			borderWidth: 0
+ 			borderColor: Color lightGray]
+ 		raise: Error.!

Item was changed:
  SystemOrganization addCategory: #'MorphicTests-Basic'!
  SystemOrganization addCategory: #'MorphicTests-Kernel'!
  SystemOrganization addCategory: #'MorphicTests-Text Support'!
  SystemOrganization addCategory: #'MorphicTests-Widgets'!
+ SystemOrganization addCategory: #'MorphicTests-Support'!
  SystemOrganization addCategory: #'MorphicTests-Worlds'!

Item was added:
+ TestCase subclass: #FormCanvasTest
+ 	instanceVariableNames: 'morph'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'MorphicTests-Support'!

Item was added:
+ ----- 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.
+ 	self shouldnt: [
+ 		canvas
+ 			frameAndFillRoundRect: smallRect
+ 			radius: smallRect width / 2 + 1
+ 			fillStyle: fill
+ 			borderWidth: 0
+ 			borderColor: Color lightGray]
+ 		raise: Error.!