Index: vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml
===================================================================
diff -u -r1230 -r1288
--- vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 1230)
+++ vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 1288)
@@ -214,35 +214,47 @@
 <Method name="AanmakenOnderwerpen">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set Groep = ##class(DOM.CRM.BehandeldOnderwerp.Groep).%New()
-	set Groep.Omschrijving = "UnitTestGroep"
-	do Groep.%Save()
+	if '##class(DOM.CRM.BehandeldOnderwerp.Groep).%ExistsId("UnitTestGroep") {
+		set Groep = ##class(DOM.CRM.BehandeldOnderwerp.Groep).%New()
+		set Groep.Omschrijving = "UnitTestGroep"
+		do Groep.%Save()
+	}
+
+	if '##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%ExistsId("UnitTestGroep||UnitTestOnderwerp") {	
+		set Onderwerp = ##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%New()
+		do Onderwerp.GroepSetObjectId("UnitTestGroep")
+		set Onderwerp.Omschrijving = "UnitTestOnderwerp"
+		do Onderwerp.%Save()
+	}
 	
-	set Onderwerp = ##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%New()
-	do Onderwerp.GroepSetObjectId("UnitTestGroep")
-	set Onderwerp.Omschrijving = "UnitTestOnderwerp"
-	do Onderwerp.%Save()
+	if '##class(DOM.CRM.Interacties.MetadataActie).%ExistsId("UnitTestActie1") {
+		set Actie = ##class(DOM.CRM.Interacties.MetadataActie).%New()
+		set Actie.Omschrijving = "UnitTestActie1"
+		do Actie.%Save()
+	}
 	
-	set Actie = ##class(DOM.CRM.Interacties.MetadataActie).%New()
-	set Actie.Omschrijving = "UnitTestActie1"
-	do Actie.%Save()
+	if '##class(DOM.CRM.Interacties.MetadataActie).%ExistsId("UnitTestActie2") {
+		set Actie = ##class(DOM.CRM.Interacties.MetadataActie).%New()
+		set Actie.Omschrijving = "UnitTestActie2"
+		do Actie.%Save()
+	}
 	
-	set Actie = ##class(DOM.CRM.Interacties.MetadataActie).%New()
-	set Actie.Omschrijving = "UnitTestActie2"
-	do Actie.%Save()
+	if '##class(DOM.CRM.Interacties.Metadata).%ExistsId("UnitTestGroep||UnitTestOnderwerp||UnitTestActie1") {
+		set Metadata = ##class(DOM.CRM.Interacties.Metadata).%New()
+		do Metadata.OnderwerpSetObjectId("UnitTestGroep||UnitTestOnderwerp")
+		do Metadata.ActieSetObjectId("UnitTestActie1")
+		set Metadata.Actief = 1
+		do Metadata.%Save()
+	}
 	
-	set Metadata = ##class(DOM.CRM.Interacties.Metadata).%New()
-	do Metadata.OnderwerpSetObjectId("UnitTestGroep||UnitTestOnderwerp")
-	do Metadata.ActieSetObjectId("UnitTestActie1")
-	set Metadata.Actief = 1
-	do Metadata.%Save()
+	if '##class(DOM.CRM.Interacties.Metadata).%ExistsId("UnitTestGroep||UnitTestOnderwerp||UnitTestActie2") {
+		set Metadata = ##class(DOM.CRM.Interacties.Metadata).%New()
+		do Metadata.OnderwerpSetObjectId("UnitTestGroep||UnitTestOnderwerp")
+		do Metadata.ActieSetObjectId("UnitTestActie2")
+		set Metadata.Actief = 1
+		do Metadata.%Save()
+	}
 	
-	set Metadata = ##class(DOM.CRM.Interacties.Metadata).%New()
-	do Metadata.OnderwerpSetObjectId("UnitTestGroep||UnitTestOnderwerp")
-	do Metadata.ActieSetObjectId("UnitTestActie2")
-	set Metadata.Actief = 1
-	do Metadata.%Save()
-	
 	quit
 ]]></Implementation>
 </Method>