Index: vhUnitTest/TECH/Exception/TemplateBaseException/Test.cls.xml
===================================================================
diff -u -r2263 -r2265
--- vhUnitTest/TECH/Exception/TemplateBaseException/Test.cls.xml	(.../Test.cls.xml)	(revision 2263)
+++ vhUnitTest/TECH/Exception/TemplateBaseException/Test.cls.xml	(.../Test.cls.xml)	(revision 2265)
@@ -36,15 +36,38 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als een Object toegevoegd is, bevat de ToString() een lijst met die ObjectInfo.">
+<Method name="Test: Als een Object meegegeven is, bevat de ToString() een lijst met die ObjectInfo.">
 <Implementation><![CDATA[
 	#dim MissingProperty As TECH.String = "MissingProperty1" 
 	#dim Exceptie As TECH.Exception.TemplateBaseException = ##class(TECH.Exception.TemplateBaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(), MissingProperty)
 	
-	Do ##class(Tools.Wlip).%New(26).String(Exceptie.ToString())
 	do $$$AssertEquals(Exceptie.ToString(), MissingProperty)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Als AddObject uitgevoerd is, bevat de GeefData() een lijst met 2 items.">
+<Implementation><![CDATA[
+	#dim MissingProperty1 As TECH.String = "MissingProperty1" 
+	#dim MissingProperty2 As TECH.String = "MissingProperty2" 
+	#dim Exceptie As TECH.Exception.TemplateBaseException = ##class(TECH.Exception.TemplateBaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(), MissingProperty1)
+	
+	Do Exceptie.AddObject(MissingProperty2)
+	Set Data = Exceptie.GeefData()
+	do $$$AssertEquals(Data.Next(), MissingProperty1)
+	do $$$AssertEquals(Data.Next(), MissingProperty2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als AddObject uitgevoerd is, bevat de ToString() een lijst met 2 items.">
+<Implementation><![CDATA[
+	#dim MissingProperty1 As TECH.String = "MissingProperty1" 
+	#dim MissingProperty2 As TECH.String = "MissingProperty2" 
+	#dim Exceptie As TECH.Exception.TemplateBaseException = ##class(TECH.Exception.TemplateBaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(), MissingProperty1)
+	
+	Do Exceptie.AddObject(MissingProperty2)
+	do $$$AssertEquals(Exceptie.ToString(), "MissingProperty1,MissingProperty2")
+]]></Implementation>
+</Method>
 </Class>