Index: vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml
===================================================================
diff -u -r3623 -r3631
--- vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml	(.../Test.cls.xml)	(revision 3623)
+++ vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml	(.../Test.cls.xml)	(revision 3631)
@@ -6,10 +6,18 @@
 <Method name="Test bestaan rect klasse">
 <Implementation><![CDATA[
 	Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
-	Do ..AssertSvg(Rect, "<rect x=""0"" y=""0"" width=""150"" height=""105"" fill=""black"" stroke=""black""></rect>")
+	Do ..AssertSvg(Rect, "<rect x=""0"" y=""0"" width=""150"" height=""105""></rect>")
 ]]></Implementation>
 </Method>
 
+<Method name="Test bestaan rect klasse met def">
+<Implementation><![CDATA[
+	Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
+	Do Rect.SetParameters()
+	Do ..AssertSvg(Rect, "<rect fill=""black"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" x=""0"" y=""0"" width=""150"" height=""105""></rect>")
+]]></Implementation>
+</Method>
+
 <Method name="AssertSvg">
 <FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
 <Private>1</Private>