Index: vhUnitTest/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r38166 -r40255
--- vhUnitTest/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 38166)
+++ vhUnitTest/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 40255)
@@ -8,35 +8,36 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="Identifier">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/display=all","Derde.Agenda.Agenda")</Description>
 <Type>%String</Type>
+<Private>1</Private>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Datum">
 <Type>%String</Type>
 <InitialExpression>"61894"</InitialExpression>
+<Private>1</Private>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Gebruiker">
 <Type>%String</Type>
 <InitialExpression>"22"</InitialExpression>
+<Private>1</Private>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="SubID">
 <Type>%String</Type>
 <InitialExpression>"42"</InitialExpression>
+<Private>1</Private>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+ 	 do ##super()
  	 set ..Identifier = ..Gebruiker_"||"_..Datum_"||"_..SubID
- 	 Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -55,9 +56,10 @@
 	set pxBezoek.Type = "B"
 	set pxBezoek.SubID = ..SubID
 
-	set blAgenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
+	#dim blAgenda As BL.Derde.Agenda.Agenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
 	
-	set pxStatus = blAgenda.StoreAgenda(pxBezoek,.ID)
+	#dim ID As %String
+	do blAgenda.StoreAgenda(pxBezoek,.ID)
 ]]></Implementation>
 </Method>
 
@@ -71,7 +73,7 @@
   	do Bezoek.%Save()
   	set Bezoek=""
   	
-  	set blAgenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
+  	#dim blAgenda As BL.Derde.Agenda.Agenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
   	do blAgenda.MarkHoliday(..Datum)
   	
   	set Bezoek = ##class(Derde.Agenda.Agenda).%OpenId(..Identifier)
@@ -104,6 +106,7 @@
 
 	#dim blAgenda As BL.Derde.Agenda.Agenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
 	
+	#dim ID As %String 
 	#dim pxStatus As %Status = blAgenda.StoreAgenda(pxBezoek,.ID)
 	
 	do $$$AssertTrue(pxBezoek.IsValid())
@@ -126,6 +129,7 @@
 
 	#dim blAgenda As BL.Derde.Agenda.Agenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
 	
+	#dim ID As %String
 	#dim pxStatus As %Status = blAgenda.StoreAgenda(pxBezoek,.ID)
 	
 	do $$$AssertTrue(pxBezoek.IsValid())
@@ -176,7 +180,7 @@
 	do ..AanmakenTestBezoek()
 	do $$$AssertTrue(##class(Derde.Agenda.Agenda).%ExistsId(..Identifier))
 
-	set blAgenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
+	#dim blAgenda As BL.Derde.Agenda.Agenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
 	do blAgenda.VerwijderAgendaObject(..Identifier)
 	
 	do $$$AssertFalse(##class(Derde.Agenda.Agenda).%ExistsId(..Identifier))