Index: vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml
===================================================================
diff -u -r34809 -r34825
--- vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34809)
+++ vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34825)
@@ -14,7 +14,9 @@
 </Property>
 
 <Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	do ##super(aTestName)
 	Set ..Consument = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()
 	
 	Set ^KKL(..Consument.GeefKlantIndexKKL(),999)="Deze wil niet te zien krijgen, nummer te kort"
@@ -29,15 +31,15 @@
 
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	 Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Consument.GeefID())
-	 Quit $$$OK
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Consument.GeefID())
+	do ##super()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Openen van bestaande OpenstaandeVerkoopFactuur">
 <Implementation><![CDATA[
 	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeVerkoopFactuur
-	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.OpenViaKlantIDEnFactuurID(..Consument.GeefID(),123455)
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.GeefViaKlantIDEnFactuurID(..Consument.GeefID(),123455)
 		
 	Do $$$AssertTrue($IsObject(OpenstaandeVerkoopFactuur))
 	Do $$$AssertEquals(OpenstaandeVerkoopFactuur.GeefVervalDatum(),"21.05.16","")
@@ -62,7 +64,7 @@
 	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeVerkoopFactuur
 	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.MaakViaKlantIDEnFactuurID(..Consument.GeefID(),987654)
 	
-	Do $$$AssertEquals(OpenstaandeVerkoopFactuur.GeefFactuurID(),987654,"")
+	Do $$$AssertEquals(OpenstaandeVerkoopFactuur.GeefFactuurID(),987654)
 ]]></Implementation>
 </Method>
 
@@ -71,12 +73,13 @@
 	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeVerkoopFactuur
 	
 	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.MaakViaKlantIDEnFactuurID(..Consument.GeefID(),654321)
-	Do $$$AssertTrue($IsObject(OpenstaandeVerkoopFactuur))	
+	Do ..OpenstaandeVerkoopFactuurRepository.Bewaar(OpenstaandeVerkoopFactuur)
 	
+	do $$$AssertTrue(..OpenstaandeVerkoopFactuurRepository.BestaatViaKlantIDEnFactuurID(..Consument.GeefID(),654321))
+	
 	Do ..OpenstaandeVerkoopFactuurRepository.VerwijderViaKlantIDEnFactuurID(..Consument.GeefID(),654321)
 	
-	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.OpenViaKlantIDEnFactuurID(..Consument.GeefID(),654321)	
-	Do $$$AssertFalse($IsObject(OpenstaandeVerkoopFactuur))
+	Do $$$AssertFalse(..OpenstaandeVerkoopFactuurRepository.BestaatViaKlantIDEnFactuurID(..Consument.GeefID(),654321))
 ]]></Implementation>
 </Method>
 
@@ -99,7 +102,7 @@
 	
 	Do ..OpenstaandeVerkoopFactuurRepository.Bewaar(OpenstaandeVerkoopFactuur)
 	
-	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.OpenViaKlantIDEnFactuurID(..Consument.GeefID(),987654)
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.GeefViaKlantIDEnFactuurID(..Consument.GeefID(),987654)
 	#dim Code As %String = OpenstaandeVerkoopFactuur.GeefCode()
 	Do $$$AssertEquals(Code,"C","")
 ]]></Implementation>